Function OPS_CrdTransf

SRC/interpreter/OpenSeesCrdTransfCommands.cpp:72–108

}

int OPS_CrdTransf()
{
    if (OPS_GetNumRemainingInputArgs() < 2) {
	opserr<<"WARNING too few arguments: geomTransf type? tag? ...\n";
	return -1;
    }

    const char* type = OPS_GetString();

    // create it
    CrdTransf* transf = 0;
    if (strcmp(type, "Linear") == 0) {
    	transf = (CrdTransf*)OPS_LinearCrdTransf();
    } else if(strcmp(type, "PDelta") == 0) {
    	transf = (CrdTransf*)OPS_PDeltaCrdTransf();
    } else if(strcmp(type, "Corotational") == 0) {
    	transf = (CrdTransf*)OPS_CorotCrdTransf();
    } else {
    	opserr << "WARNING geomTransf type "<< type <<" is unknown\n";
    	return -1;
    }

    // check
    if (transf == 0) {
	opserr << "WARNING failed to create geomTransf object\n";
	return -1;
    }

    // add it
    if (OPS_addCrdTransf(transf) == false) {
	opserr << "WARNING failed to add CrdTransf\n";
	delete transf;
	return -1;
    }

    return 0;
}