C        --- Call the real main program ---
      CALL  MAIN (MAXR, MAXI, NUMR, NUMI, LASTR, LASTI,
     +      NEXTR, NEXTI, R, RN, I, IN, J, K,
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     ,
     +      R(J(  1)), R(J(  2)), R(J(  3)), R(J(  4)), R(J(  5)),
     +      R(J(  6)), R(J(  7)), R(J(  8)), R(J(  9)), R(J( 10)),
     +      R(J( 11)), R(J( 12)), R(J( 13)), R(J( 14)), R(J( 15)),
     +      R(J( 16)), R(J( 17)), R(J( 18)), R(J( 19)), R(J( 20)),
     +      R(J( 21)), R(J( 22)), R(J( 23)), R(J( 24)), R(J( 25)),
     +      R(J( 26)), R(J( 27)), R(J( 28)), R(J( 29)), R(J( 30)),
     +      R(J( 31)), R(J( 32)), R(J( 33)), R(J( 34)), R(J( 35)),
     +      R(J( 36)), R(J( 37)), R(J( 38)), R(J( 39)), R(J( 40)),
     +      R(J( 41)), R(J( 42)), R(J( 43)), R(J( 44)), R(J( 45)),
     +      R(J( 47)), R(J( 48)), R(J(
     +      I(K(  1)), I(K(  2)), I(K(  3)), I(K(  4)), I(K(  5)),
     +      I(K(  6)), I(K(  7)), I(K(  8)), I(K(  9)), I(K( 10)),
     +      I(K( 11)), I(K( 12)), I(K( 13)), I(K( 14)), I(K( 15)),
     +      I(K( 16)), I(K( 17)), I(K( 18)), I(K( 19)), I(K( 20)),
     +      I(K( 22)), I(K( 23)), I(K(
      RETURN
      END
