













































      INTEGER      MAXBCK, RESPNT
      PARAMETER    (MAXBCK=50)

      INTEGER      RESBCK(MAXBCK),        IAABCK(MAXBCK), 
     +             OLDCOL(MAXTAT,MAXBCK), OLDPN(MAXTAT,MAXBCK),
     +             OLDFUT(MAXBCK),        OLDBNT(8,MAXAT,MAXBCK)

      REAL         OLDXCR(MAXTAT,MAXBCK), OLDYCR(MAXTAT,MAXBCK),
     +             OLDZCR(MAXTAT,MAXBCK), OLDXAL(MAXTAT,MAXBCK),
     +             OLDYAL(MAXTAT,MAXBCK), OLDZAL(MAXTAT,MAXBCK),
     +             OLDXBF(MAXTAT,MAXBCK), OLDWGT(MAXTAT,MAXBCK),
     +             OLDABF(MAXTAT,MAXBCK), OLDAWT(MAXTAT,MAXBCK),
     +             OLDAV1(MAXTAT,MAXBCK), OLDAV2(MAXTAT,MAXBCK),
     +             OLDPRP(MAXBCK),        OLDSAC(MAXBCK)

      LOGICAL      OLDHLT(MAXBCK),        OLDUSA(MAXTAT,MAXBCK),
     +             OLDIOK(MAXTAT,MAXBCK), OLDNOB(MAXTAT,MAXBCK),
     +             OLD1TF(MAXBCK),        OLD2TF(MAXBCK),
     +             OLDCUT(MAXBCK),        OLDPAS(MAXBCK),
     +             OLDWTF(MAXBCK)

      CHARACTER*1  OLDALT(MAXTAT,MAXBCK), OLDATV(MAXTAT,MAXBCK)

      CHARACTER*2  OLDMDV(MAXTAT,MAXBCK)

      CHARACTER*5  OLDORG(MAXTAT,MAXBCK)

      EQUIVALENCE  (RESPNT, WIFPAR(1063))

      COMMON      /RESBC1/
     +             RESBCK, IAABCK, OLDCOL, OLDFUT, OLDBNT, OLDPN

      COMMON      /RESBC2/
     +             OLDXCR, OLDYCR, OLDZCR, OLDXAL, OLDYAL, OLDZAL,
     +             OLDXBF, OLDWGT, OLDABF, OLDAWT, OLDAV1, OLDAV2,
     +             OLDPRP, OLDSAC

      COMMON      /RESBC3/
     +             OLDHLT, OLDUSA, OLDIOK, OLDNOB, OLD1TF, OLD2TF,
     +             OLDCUT, OLDPAS, OLDWTF

      COMMON      /RESBC4/
     +             OLDALT, OLDATV


      COMMON      /RESBC5/
     +             OLDMDV

      COMMON      /RESBC6/
     +             OLDORG
