




































      INTEGER          MAXRIN
      PARAMETER        (MAXRIN=10000)
      INTEGER          THISTP, ITT,    PDBPNT, THISFAM,PDBCNT(20), 
     +                 MCFPNT, THISPN, IQ7501, 
     +                 IQ7502, IQ7503, IQ7504, IQ7505, IQ7506, 
     +                 IQ7507, IQ7508, IQ7509,
     +                 MCFCNT(10),     UNKDEL, THISLT, THSANI(6),IQ7510
      CHARACTER*80     READIN(MAXRIN), READN2(MAXRIN), LOCDN2
      CHARACTER*5      THISORG
      CHARACTER*4      LASTAA, LASTNM, LASTAT, THISAA, THISNM, THISAT,
     +                 THISOA, THISOR, AQ7504
      CHARACTER*3      PADIN3
      CHARACTER*2      THISMV, PADIN2
      CHARACTER*1      LASTAL, LASTCH, LASTIC, THISAL, THISCH, THISIC, 
     +                 ALTUSE, PADIN1, THISLA
      REAL             THISX,  THISY,  THISZ,  THISWT, THISBF, TH5SRQ,
     +                 TH6SRQ, THISAX, THISAY, THISAZ, THISAB, THISAW
      LOGICAL          HATOM,  USED(MAXRIN), HASCOR(MAXRIN)
      EQUIVALENCE      (USED(1),  ESPACE(1))
      EQUIVALENCE      (HASCOR(1),ESPACE(MAXRIN+1))
      EQUIVALENCE      (READIN(1),ESPACE(2*MAXRIN+1))
      EQUIVALENCE      (READN2(1),ESPACE(82*MAXRIN+1))
      EQUIVALENCE      (IQ7504,AQ7504)
      EQUIVALENCE      (IQ7505,TH5SRQ)
      EQUIVALENCE      (IQ7506,TH6SRQ)

      COMMON /GETMOL1/ 
     +                 IQ7501

      COMMON /GETMOL2/ 
     +                 THISORG,        PADIN3, IQ7502

      COMMON /GETMOL3/ 
     +                 LASTAA, LASTNM, LASTAT, THISAA, THISNM, 
     +                 THISAT, THISOA, LOCDN2, THISOR, IQ7503

      COMMON /GETMOL4/ 
     +                 LASTAL, LASTCH, LASTIC, THISAL, 
     +                 THISCH, THISIC, ALTUSE, PADIN1, AQ7504

      COMMON /GETMOL5/ 
     +                 THISX,  THISY,  THISZ,  TH5SRQ, THISWT, 
     +                 THISBF, TH6SRQ, THISAX, THISAY, THISAZ,
     +                 THISAB, THISAW

      COMMON /GETMOL6/ 
     +                 HATOM,  IQ7507

      COMMON /GETMOL7/ 
     +                 THISTP, ITT,    UNKDEL, PDBPNT, PDBCNT, MCFPNT, 
     +                 MCFCNT, THISFAM,THISLT, THSANI, THISPN, IQ7508

      COMMON /GETMOL8/ 
     +                 THISMV, PADIN2, IQ7509, IQ7510

      COMMON /GETMOL9/ 
     +                 THISLA
