allocgeom()

allocgeom

(

)

Allocates geometry arrays and structures

See also

geometry

               {
 geometry->nodes = calloc(modgeominfo->nnodb,sizeof(struct vector));
 geometry->jnodb    = calloc(modgeominfo->nvelb,sizeof(int));
 geometry->jphib    = calloc(modgeominfo->nelmb,sizeof(int));
 geometry->jpsib    = calloc(modgeominfo->nelmb,sizeof(int));
 geometry->mvrtb    = calloc(modgeominfo->nelmb,sizeof(int));
 geometry->kcreb    = calloc(modgeominfo->nelmb,sizeof(int));
 geometry->kelmb    = calloc(modgeominfo->nelmb,sizeof(int));
 geometry->mics     = calloc(modgeominfo->nmics,sizeof(struct vector));
 if(modgeominfo->nchief > 0) geometry->chief    = calloc(modgeominfo->nchief,sizeof(struct vector));
 geometry->cntrc    = calloc(modgeominfo->ncntr+modgeominfo->nchief,sizeof(struct vector));
 geometry->cntr     = calloc(modgeominfo->ncntr,sizeof(struct vector));
 geometry->elements = calloc(modgeominfo->nelmb,sizeof(struct panel4));
 if(modgeominfo->nemics > 0) geometry->jnodm    = calloc(4*modgeominfo->nemics,sizeof(int));
 if(modgeominfo->nemics > 0) geometry->kelmm    = calloc(modgeominfo->nemics,sizeof(int));
 

 return 1;
}