/*----------------------------------------------------------------------* | add a value to the Drow_ map mwgee 02/06| *----------------------------------------------------------------------*/ void MOERTEL::Node::AddMmodValue(int row, double val, int col) { if (Mmodrow_ == Teuchos::null) Mmodrow_ = Teuchos::rcp(new std::vector<std::map<int,double> >(Ndof())); if ((int)Mmodrow_->size() <= row) Mmodrow_->resize(row+1); std::map<int,double>& Mmap = (*Mmodrow_)[row]; Mmap[col] += val; return; }
int NdofInterface(char *fname) { static int un = 1, nddl; /* Define minls=1, maxlhs */ static int minlhs = 1, maxlhs = 1; /* Check lhs */ CheckLhs(minlhs, maxlhs) ; CreateVar(1, "d", &un, &un, &nddl); Ndof(istk(nddl)); LhsVar(1) = 1; return 0; }