BLOCK DATA
    
      INTEGER  GROUP1   
      INTEGER  IMPLID   
      INTEGER  NGROUP   
      INTEGER  NIMPLI   
      INTEGER  NOTHER   
      INTEGER  NRELTI   
      INTEGER  OTHERS   
      INTEGER  RELTIV   
      INTEGER  STAX 
      INTEGER  CSOW 
      INTEGER  CSWFA
      INTEGER  CSOFF
      INTEGER  CSNLX
      INTEGER  CSWFB
      COMMON   /CRUCH/  GROUP1 (24) 
      COMMON   /CRUCH/  IMPLID (75) 
      COMMON   /CRUCH/  NGROUP  
      COMMON   /CRUCH/  NIMPLI  
      COMMON   /CRUCH/  NOTHER  
      COMMON   /CRUCH/  NRELTI  
      COMMON   /CRUCH/  OTHERS (165)
      COMMON   /CRUCH/  RELTIV (24) 
      COMMON   /CRUCH/  STAX
      COMMON   /CRUCH/  CSOW, CSWFA, CSOFF, CSNLX, CSWFB
      DATA  IMPLID / 'BR','K ',  0,'CL','C ', 24,'CL','D ',216,'CL','I '
     1,88,'CL','V ',184,'DE','X ',202,'DE','Y ',136,'IN','X ',232,'IN','
     1Y ',200,'NO','P ',234,'PH','A ', 72,'PH','P ',  8,'PL','A ',104,'P
     1L','P ', 40,'RT','I ', 64,'RT','S ', 96,'SE','C ', 56,'SE','D ',24
     18,'SE','I ',120,'TA','X ',170,'TA','Y ',168,'TY','A ',152,'TS','X 
     1',186,'TX','A ',138,'TX','S ',154 /   
      DATA  NIMPLI / 75 /   
      DATA  RELTIV / 'BC','C ',144,'BC','S ',176,'BE','Q ',240,'BM','I '
     1,48,'BN','E ',208,'BP','L ', 16,'BV','C ', 80,'BV','S ',112 / 
      DATA  NRELTI / 24 /   
      DATA  GROUP1 / 'AD','C ', 97,'AN','D ', 33,'CM','P ',193,'EO','R '
     1,65,'LD','A ',161,'OR','A ',  1,'SB','C ',225,'ST','A ',129 / 
      DATA  NGROUP / 24 /   
      DATA  STAX   / 22 /   
      DATA  OTHERS /'AS','L ',  -1,   6,  22,  -1,  14,  30,  -1,  -1,  
     110,'BI','T ',  -1,  36,  -1,  -1,  44,  -1,  -1,  -1,  -1,'CP','X 
     1', 224, 228,  -1,  -1, 236,  -1,  -1,  -1,  -1,'CP','Y ', 192, 196
     1,-1,  -1, 204,  -1,  -1,  -1,  -1,'DE','C ',  -1, 198, 214,  -1, 2
     106, 222,  -1,  -1,  -1,'IN','C ',  -1, 230, 246,  -1, 238, 254,  -
     11,  -1,  -1,'JM','P ',  -1,  -1,  -1,  -1,  76,  -1,  -1, 108,  -1
     1,'JS','R ',  -1,  -1,  -1,  -1,  32,  -1,  -1,  -1,  -1,'LD','X ',
     1 162, 166,  -1, 182, 174,  -1, 190,  -1,  -1,'LD','Y ', 160, 164, 
     1180,  -1, 172, 188,  -1,  -1,  -1,'LS','R ',  -1,  70,  86,  -1,  
     178,  94,  -1,  -1,  74,'RO','L ',  -1,  38,  54,  -1,  46,  62,  -
     11,  -1,  42,'RO','R ',  -1, 102, 118,  -1, 110, 126,  -1,  -1, 106
     1,'ST','X ',  -1, 134,  -1, 150, 142,  -1,  -1,  -1,  -1,'ST','Y ',
     1 -1, 132, 148,  -1, 140,  -1,  -1,  -1,  -1 / 
      DATA  NOTHER / 165 /  
      END