Function OPS_PML2D

SRC/element/PML/PML2D.cpp:53–79

void* OPS_PML2D()
{
  if (OPS_GetNumRemainingInputArgs() < (5+PML2D_NUM_PROPS)) {
    opserr << "WARNING insufficient arguments\n";
    opserr << "Want: element PML2D eleTag? [PML2D_NUM_NODES integer nodeTags] [PML2D_NUM_PROPS material properties]\n";
    return 0;
  }
  
  int idata[5];
  int num = 5;
  if (OPS_GetIntInput(&num,idata)<0) {
    opserr<<"WARNING: invalid integer data\n";
    return 0;
  }
  
  double dData[PML2D_NUM_PROPS]; num = PML2D_NUM_PROPS;
  // make last two indicies zero 
  dData[PML2D_NUM_PROPS-2] = 0.0;
  dData[PML2D_NUM_PROPS-1] = 0.0;

  if (OPS_GetDoubleInput(&num,dData) < 0) {
    opserr<<"WARNING: invalid double data\n";
    return 0;
  }	

  return new PML2D(idata[0],&idata[1],dData);
}

//static data
Matrix PML2D::tangent;