Ejemplo n.º 1
0
/*----------------------------------------------------------------------*
 |  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;
}
Ejemplo n.º 2
0
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;
}