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