BLOCK DATA 
 
      INTEGER     CODE 
      INTEGER     NOUNLC 
      INTEGER     DATALC 
      INTEGER     COMLOC 
      INTEGER     FBLOCK 
      INTEGER     ZREL 
      INTEGER     ABSLC 
      INTEGER     CBTAB (15) 
      INTEGER     CBX 
      INTEGER     LCTAB (15) 
      COMMON      /LCFUNC/ CODE 
      COMMON      /LCFUNC/ NOUNLC 
      COMMON      /LCFUNC/ DATALC 
      COMMON      /LCFUNC/ COMLOC 
      COMMON      /LCFUNC/ FBLOCK 
      COMMON      /LCFUNC/ ZREL 
      COMMON      /LCFUNC/ ABSLC 
      COMMON      /LCFUNC/ CBTAB 
      COMMON      /LCFUNC/ CBX 
      COMMON      /LCFUNC/ LCTAB 
      DATA        CODE   / 1/ 
      DATA        NOUNLC / 2/ 
      DATA        DATALC / 3/ 
      DATA        COMLOC / 4/ 
      DATA        FBLOCK / 5/ 
      DATA        ZREL   /14/ 
      DATA        ABSLC  /15/ 
      DATA        CBTAB  /15*0/ 
      DATA        CBX    /   5/ 
      DATA        LCTAB  /15*0/ 
      END