COMMON/CARD/NAME(1500),ISTACK(1500),IARRAY(1500),IFIG(1500),
     1ARG1(1500),ARG2(1500),ARG3(1500),ARG4(1500),ARG5(1500),
     2TEXT(18,1500)
      COMMON/STK/STACK(8,4000)
      COMMON/VAR/JMAX,X3DORG,Y3DORG,ISTKPT(8),JDO,JLP,LPCNT,LTIMES,
     1IARPT(8,100),INDPT(8,100),IARLST(8),VAR(10),IFRMCN
      CHARACTER*5  NAME
      CHARACTER*18 TEXT
      CHARACTER*5  NME
      CHARACTER*18 TXT