      DIMEMSION  RARRAY(MAXR), RNAME(NUMR),         
     1           X(M,NSPACE), AJ(NSPACE,NSPACE), AJINV(NSPACE,NSPACE),
     2           AVE(0:M,NSPACE+1), B(NRB,NELFRE), BODY(NSPACE), C(NELFRE),
     3           CC(NDFREE), CEQ(MAXACT,NUMCE), COORD(N,NSPACE), D(NELFRE),
     4           DDOLD(NDFREE), DGH(NSPACE,N,0:NQP), DLG(NPARM,NGEOM,0:NQP),
     5           DLH(NSPACE,N,0:NQP), E(NRB,NRB), EB(NRB,NELFRE), ELPROP(0:NLPFLO),
     6           FLTEL(NE,0:NLPFLO), FLTBS(0:NSEG,0:NBSFLO), FLTMIS(0:MISCFL),
     7           FLTNP(M,0:NNPFLO), FLUX(0:NF), FLUXBS(0:NSEG,0:NFLUX), 
     8           G(NGEOM,0:NQP), GPT(0:NQP), GWT(0:NQP)
      DIMENSION  H(N,0:NQP), HINTG(N), PLTSET(0:NPLT), PRTLPT(N,0:NNPFLO), 
     1           PRTMAT(0:NLPFLO,0:NOMAT), PT(NPARM,NQP), RANGE(NG,2), 
     2           S(NELFRE,NELFRE), SATPT(NRB+2,N), SS(NCOEFF), STRAIN(NRB+2),
     3           STRAN0(NRB), STRESS(NRB+2), SYSDAT(0:NSYS), TMP(0:NTMP),
     4           VALC(NRB,0:NC), VALE(NRB,0:NC), WT(NQP), XPT(NSPACE,2), 
     5           XYZ(NSPACE)
      DIMEMSION  IARRAY(MAXI), INAME(NUMI), IBC(M), KODES(NG), NODES(NE,N), 
     1           NRES(MAXTYP), LTYPE(NE), IADD(0:M), IDIAG(NDFREE), INDEX(NELFRE),
     2           LFIRST(M), LLAST(M), LNODE(N), LPFIX(NE,0:NLPFIX), 
     3           NBSPFX(0:NSEG,0:NBSFIX), LPPROP(0:NNPFIX), LPROP(0:NLPFIX),
     4           LTDATA(6,NLTYPE), MISFIX(0:MISCFX), NDXC(MAXACT,NUMCE), 
     5           NODEF(0:NSEG,0:LBN), NRANGE(NG,2), NREQ(MAXACT), NPFIX(M,0:NNPFIX)
