*KEEP,CELSTC.
      COMMON/CELSTC/ELAS, FONE, SGELS(10),TOTELS,ID(10,1),LOCF1(21),
     +              LOCSIG(21),NELSTP,NLEDIT,NOEL(1),NOELAS
C