


















































































      INTEGER        MAXTPS, MAXICO
      PARAMETER      (MAXTPS = 10)
      PARAMETER      (MAXICO = 100)

      INTEGER        NUMTPS, CMSFNB, CMSNON, CMSFIW, CMSPNT, CMSTAC(10),
     +               CMSSTU, CMSMKU, CMSNSK, CMSDIP, CMSACP, CMSERR,
     +               CMSQNB, CMSSNB, CMSHOF, CMSHF2, NXTEPS, CMSQNF,
     +               CMSICL(MAXICO), CMSCHN, CMSHF3, CMSIUN, CMSOUN,
     +               HOWIDT, ORGOUN, IQ8001, IQ8002, IQ8003, IQ8004, 
     +               IQ8006, IQ8007, IQ8008, IQ8009, IQ8010, IQ8011,
     +               IQ8012, IQ8013, IQ8014, IQ8015, IQ8016, IQ8017,
     +               IQ8018, IQ8019, IQ8020, IQ8021, IQ8022, IQ8023, 
     +               IQ8024, IQ8025, IQ8026, IQ8027, IQ8028, IQ8029, 
     +               IQ8005, IQ8030

      LOGICAL        CMSKIL, CMSMAI, CMSMIS, CMSPOS, CMSACK, CMSITA,
     +               USEWIK, NOPASS, CMSTPU(MAXTPS), BBEF,   BAFT,
     +               CMSBRK, CMSWFI, CMSIPE, CMSMHO, CMSAOL, CMSPAD,
     +               OVERPA, CMSBHO, CMSNPO, CMSILP, CMSDON

      CHARACTER*1    LENA,   LENP,   CMSLST, CMSNXT
      CHARACTER*2    CMSDU1, CMSDU2, CMSDU3
      CHARACTER*6    CMSTPS(MAXTPS)
      CHARACTER*6    CMSDIR, CMSSTA, CMSTPN
      CHARACTER*20   CMSCTR, CMSMAK
      CHARACTER*10   ICODES(MAXICO), ACODES(MAXICO)
      CHARACTER*16   LAWORD, MIWORD, POWORD, ACWORD
      CHARACTER*24   ICODEL(MAXICO)
      CHARACTER*40   CMSPAS, CMSUSE, GLOUSE, GLOPAS, GSTUSE, GSTPAS,  
     +               STUUSE(9), STUPAS(9), STUPAN(99), STUUSN(99)
      CHARACTER*64   ICODEO(MAXICO)
      CHARACTER*20   CMSKIP(20)
      CHARACTER*80   CMSTIT, CMSLOG, CMSLG2, LASTEU, CMSCHT, CMSLNT, 
     +               CMSEUT, CMSFRF, CMSFFL, CMSEUL(10), DITERM(1000),
     +               CMSVER
      CHARACTER*256  ACODEO(MAXICO)
      CHARACTER*1024 CMSL1,  CMSL2

      COMMON /CM001/ NUMTPS, CMSFNB, CMSNON, CMSFIW, CMSPNT, IQ8001, 
     +               CMSTAC, CMSNSK, CMSDIP, CMSACP, CMSERR, IQ8002, 
     +               CMSQNB, CMSSNB, CMSQNF, CMSICL, NXTEPS, IQ8021, 
     +               CMSCHN, HOWIDT, IQ8003

      COMMON /CM002/ CMSSTU, CMSMKU, CMSHOF, CMSHF2, CMSHF3, IQ8004, 
     +               CMSIUN, IQ8020, CMSOUN, ORGOUN, IQ8005

      COMMON /CM003/ CMSDIR, CMSDU1, CMSSTA, CMSDU2, CMSTPN, CMSDU3,
     +               IQ8022

      COMMON /CM004/ CMSTIT, CMSLOG, CMSLG2, CMSEUL, LASTEU, IQ8006, 
     +               DITERM, CMSCHT, CMSLNT, CMSFRF, CMSFFL, CMSEUT,
     +               CMSVER, IQ8007

      COMMON /CM005/ CMSTPS

      COMMON /CM006/ CMSKIL, CMSMAI, CMSTPU, CMSMIS, CMSPOS, IQ8008, 
     +               CMSACK, USEWIK, NOPASS, CMSITA, BBEF,   IQ8009, 
     +               BAFT,   CMSBRK, CMSWFI, CMSIPE, CMSMHO, IQ8010,
     +               CMSAOL, CMSPAD, OVERPA, CMSBHO, CMSNPO, IQ8011,
     +               CMSILP, CMSDON

      COMMON /CM007/ CMSMAK, CMSCTR, IQ8023

      COMMON /CM008/ CMSPAS, CMSUSE, STUPAS, STUUSE, STUPAN, IQ8012,
     +               STUUSN, GLOUSE, GLOPAS, GSTUSE, GSTPAS, IQ8013

      COMMON /CM009/ CMSKIP, IQ8014

      COMMON /CM010/ CMSL1,  IQ8024, CMSL2,  IQ8025, ACODEO, IQ8015

      COMMON /CM011/ LENA,   LENP,   CMSLST, CMSNXT, IQ8016

      COMMON /CM012/ LAWORD, MIWORD, POWORD, ACWORD, IQ8017

      COMMON /CM013/ ICODES, IQ8026, ACODES, IQ8018

      COMMON /CM014/ ICODEO, IQ8019

      COMMON /CM015/ ICODEL, IQ8027, IQ8028, IQ8029, IQ8030 
