      SUBROUTINE  MAIN (MAXR, MAXI, NUMR, NUMI, LASTR, LASTI,
     1            NEXTR, NEXTI, RARRAY, RNAME, IARRAY, INAME,
     2            JRARAY, JIARAY,
     3            X, AJ, AJINV, AVE, B, BODY, C, CC, CEQ, COORD, D,
     4            DDOLD, DGH, DLG, DLH, E, EB, ELPROP, FLTEL, FLTBS,
     5            FLTMIS, FLTNP, FLUX, FLUXBS, G, GPT, GWT, H, HINTG,
     6            PLTSET, PRTLPT, PRTMAT, PT, RANGE, S, SATPT, SS, STRAIN,
     7            STRAN0, STRESS, SYSDAT, TMP, VALC, VALE, WT, XPT, XYZ,
     8            IBC, KODES, NODES, NRES, LTYPE, IADD, IDIAG, INDEX,
     9            LFIRST, LLAST, LNODE, LPFIX, NBSPFX, LPPROP, LPROP,
     1            LTDATA, MISFIX, NDXC, NODEF, NRANGE, NREQ, NPFIX,
