




















      INTEGER      MAXAA,  MAXAT,  MAXCYS, MAXIG,  MAXSUU,
     +             MAXMOL, MAXTOR, MAXTAT, MAXRDG, MAXSP,  MAXANG,
     +             MAXSTV, NUMUA,  MAXSET, MAXTYP, MAXNNA,
     +             MAXSIG, MAXROT, MAXSA,
     +             IU20,   IU100,  IU102,  IU103,   
     +             MAXPAR, IU21,   IU60,   IU66,   IU67,   IU68










      PARAMETER    (MAXAA  = 20000)
      PARAMETER    (MAXSA  = 10000)




      PARAMETER    (MAXAT  = 256000)



      PARAMETER    (MAXMOL = 3500)


      PARAMETER    (MAXPAR = 2000)

      PARAMETER    (MAXANG = 300)


      PARAMETER    (MAXCYS = 500)
      PARAMETER    (MAXIG  = 100)
      PARAMETER    (MAXRDG = 1000)
      PARAMETER    (MAXSET = 250)
      PARAMETER    (MAXSP  = 650000)
      PARAMETER    (MAXSTV = 100)
      PARAMETER    (MAXSUU = 100)

      PARAMETER    (MAXTAT = 150)
      PARAMETER    (MAXTOR = 100)
      PARAMETER    (MAXTYP = 20)
      PARAMETER    (MAXNNA = 10)
      PARAMETER    (MAXSIG = 20)
      PARAMETER    (MAXROT = 34)

      PARAMETER    (NUMUA  = 1000)
      INTEGER      IQ7305, IQ7307, IQ7308, IQ7309,
     +             IQ7319, IQ7320, IQ7322, IQ7323, IQ7324, IQ7325,
     +             IQ7326, IQ7327, IQ7329, IQ7332, 
     +             IQ7345, IQ7349, IQ7350, IDEBUG, IQ7373,
     +             IQ7374, IQ7375, IQ7376, IQ7377, IQ7378, IQ7379,
     +             IQM701, IQM702, IQM703, IQM704, IQM705,
     +             IQM706, IQM707, IQM708, IQM709, IQM710,
     +             IQM711, IQM712, IQM713, IQM714, IQM715,
     +             IQM716, IQM717, IQM718, IQM719, IQM720,
     +             IQM721, IQM722, IQM723, IQM724, IQM725,
     +             IQM726, IQM727, IQM728, IQM729, IQM730,
     +             IQM731, IQM732, IQM733, IQM734, IQM735,
     +             IQM736, IQM737, IQM738, IQM739, IQM740



      CHARACTER*2  DBEXT
      COMMON      /DBENAM/
     +             DBEXT















      INTEGER       MAXHET, MAXWCC
      PARAMETER     (MAXHET=250)
      PARAMETER     (MAXWCC=25)
      INTEGER       NR280, HETCNT(MAXHET), WIFCNT
      CHARACTER*8   HEDDAT
      CHARACTER*80  CRYSTL(MAXHET), EXPDTA, HETCRD(MAXHET), HEDCRD,
     +              WIFCRD(MAXWCC)
      CHARACTER*250 HETNAM(MAXHET)
      
      COMMON        /PDBIN1/
     +               NR280, HETCNT, WIFCNT
      
      COMMON        /PDBIN2/
     +               CRYSTL, EXPDTA, IQM701, HETCRD, HEDCRD, HETNAM, 
     +               IQM702
      
      COMMON        /PDBIN3/
     +               WIFCRD
      
      COMMON        /PDBIN4/
     +               HEDDAT































      INTEGER      PNTAAS(MAXAA), PNTAAE(MAXAA), PNTAAC(MAXAA), 
     +             FUTURE(MAXAA), SOUPNT(MAXAA), RESTYP(MAXAA), 
     +             MODNMB(MAXAA), NUMCOF, NUMAAT, NUMAAF, 
     +             NUMCYS, FRCCYS(2,MAXCYS), CYSCYS(2,MAXCYS)

      CHARACTER*4  ONESA3(MAXAA), ONEORG(MAXAA), NUMNAM(MAXAA)

      CHARACTER*1  INSRTC(MAXAA), CHANAM(MAXAA)

      LOGICAL      ACCDON(MAXAA), WRK1TF(MAXAA), CHOSTF(MAXAA),
     +             USABLE(MAXAT), CUTFLG(MAXAA), PSTFLG(MAXAA),
     +             LOCWTF(MAXAA), WRK2TF(MAXAA), WRK3TF(MAXAA), 
     +             ISSHIT(MAXAA), WRK4TF(MAXAA), DAMINO

      REAL         PDRESO, PDTEMP,
     +             SUMACC(MAXAA), PRPVAL(MAXAA), XYZCAS(3,MAXAA), 
     +             SPHRAD(4,MAXAA)

      COMMON      /MUTIA0/
     +             PNTAAS, PNTAAE, PNTAAC, NUMAAF, NUMCYS, NUMCOF, 
     +             IQ7307, CYSCYS, IQM703, SOUPNT, IQM704, NUMAAT, 
     +             FRCCYS, FUTURE, IQM705, MODNMB, RESTYP, IQ7379
 
      COMMON      /MUTIA1/
     +             SUMACC, IQ7322, SPHRAD, IQ7323, XYZCAS, IQ7319, 
     +             PRPVAL, IQ7305, PDRESO, PDTEMP, IQ7308

      COMMON      /MUTIA2/
     +             ONESA3, IQ7309, ONEORG, IQM706, NUMNAM, IQM707, 
     +             CHANAM, IQM708, INSRTC, IQM710

      COMMON      /MUTIA3/
     +             ACCDON, WRK1TF, IQM709, USABLE, IQM711, CUTFLG,
     +             PSTFLG, IQM712, ISSHIT, IQ7345

      COMMON      /MUTIA4/
     +             LOCWTF, IQM713, CHOSTF, WRK2TF, IQM714, WRK3TF, 
     +             IQM715, WRK4TF, IQ7320

      COMMON      /MUTIA5/
     +             DAMINO








































      INTEGER      NUMATF,         ATCOLR(MAXAT),  LOGA(1000), 
     +             BOUND_TO(8,MAXAT), ALTUNT,      ATIAA(MAXAT),   
     +             PINIAA(MAXAT),  IATVAL(MAXAT),  IATVL2(MAXAT),
     +             PDBNUM(MAXAT),  PRETYP(MAXAT),  NUMTLS

      REAL         XCOORD(MAXAT),  YCOORD(MAXAT),  ZCOORD(MAXAT),
     +             ALTX(MAXAT),    ALTY(MAXAT),    ALTZ(MAXAT),
     +             XBFACT(MAXAT),  ACCESS(MAXAT),  WEIGHT(MAXAT),
     +             ALTXBF(MAXAT),  ALTWGT(MAXAT),  

     +             VDWRAD(MAXAT),  XUACC(1000),    YUACC(1000), 
     +             ZUACC(1000),    ATTVAL(MAXAT),  ATTVL2(MAXAT)

      LOGICAL      USEAT(MAXAT),   ISATOK(MAXAT),  PROTON(MAXAT),
     +             NOBOND(MAXAA),  NOBIAT(MAXAT),  HASALT(MAXAA), 
     +             USEALT,         TLSFND

      CHARACTER*1  ALTATM(MAXAT),  ALALAT(MAXAT)
      CHARACTER*2  MENDLV(MAXAT)
      CHARACTER*4  AQM726, AQM729, AQM730
      EQUIVALENCE  (AQM730,IQM730)
      EQUIVALENCE  (AQM726,IQM726)
      EQUIVALENCE  (AQM729,IQM729)
      CHARACTER*5  ONESAT(MAXAT),  ORGNAM(MAXAT)
      EQUIVALENCE  (ATTVAL(1),IATVAL(1))
      EQUIVALENCE  (ATTVL2(1),IATVL2(1))

      COMMON      /MUTAT1/
     +
     +             XCOORD, YCOORD, ZCOORD, IQM716, XBFACT, ACCESS, 
     +             WEIGHT, IQM717, ALTX,   ALTY,   ALTZ,   IQM718, 
     +             ALTXBF, ALTWGT, ATTVAL, IQM719, VDWRAD, XUACC,  
     +             YUACC,  ZUACC,  IQM720, ATTVL2, IQ7324

      COMMON      /MUTAT2/
     +
     +             NUMATF, ATCOLR, ATIAA,  IQM721, LOGA,   PINIAA, 
     +             IQM722, ALTUNT, IQM724, PRETYP, IQ7325, BOUND_TO, 
     +             PDBNUM, NUMTLS, IQM723

      COMMON      /MUTAT3/
     +
     +             ONESAT, IQM725, ORGNAM

      COMMON      /MUTAT4/
     +
     +             USEAT,  IQM727, ISATOK, PROTON, NOBOND, IQM728, 
     +             NOBIAT, TLSFND

      COMMON      /MUTAT5/
     +
     +             MENDLV, AQM730

      COMMON      /ALTAT1/
     +
     +             ALTATM, AQM726

      COMMON      /ALTAT2/
     +
     +             ALALAT, AQM729

      COMMON      /ALTAT3/
     +
     +             HASALT, USEALT




















      INTEGER      MUTCON(2,MAXTAT,NUMUA), ANGCON(3,MAXANG,NUMUA), 
     +             HATPRA(NUMUA), ATPRAA(NUMUA), FAMTYP(0:NUMUA),
     +             BOND13(12,MAXTAT,NUMUA), NCPRAA(NUMUA), SPCNMB,
     +             NUMNNA(NUMUA), SETROT(NUMUA), TOPLOG, TOPUNT
      REAL         STDCRD(3,MAXTAT,NUMUA), DIPBCK(3,6), AAWGT(NUMUA),
     +             RECRD(280), RECRD2(280), DNABCK(3,6), RNABCK(3,6),
     +             ANGDEF(MAXANG,NUMUA), ANGSIG(MAXANG,NUMUA),
     +             DSTCON(MAXTAT,NUMUA), DSTSIG(MAXTAT,NUMUA),
     +             VALROT(4,MAXROT,NUMUA), XBFAVE(MAXTAT,NUMUA)
      CHARACTER*5  MUTROW4(MAXTAT,NUMUA)
      CHARACTER*4  MUTSTO4(MAXTAT,NUMUA,MAXNNA), SPCATM(25), NUMCH4,
     +             NUMAA4
      EQUIVALENCE  (NUMAA4,RECRD(260))
      EQUIVALENCE  (NUMCH4,RECRD(280))
      CHARACTER*4  AQ7373, AQM740, AQM739
      EQUIVALENCE  (AQ7373,IQ7373)
      EQUIVALENCE  (AQM739,IQM739)
      EQUIVALENCE  (AQM740,IQM740)

      COMMON      /MUTMU1/
     +
     +             MUTCON, IQM731, ATPRAA, IQM732, HATPRA, BOND13, 
     +             IQM733, ANGCON, FAMTYP, IQM734, NCPRAA, NUMNNA, 
     +             SETROT, IQM735, SPCNMB, IQM736, TOPUNT, TOPLOG, 
     +             IQ7326

      COMMON      /MUTMU2/
     +
     +             DIPBCK, IQM737, DNABCK, RNABCK, IQM738, AAWGT, 
     +             IQ7374

      COMMON      /MUTMU3/
     +
     +             MUTROW4, AQM739

      COMMON      /MUTMU4/
     +
     +             MUTSTO4, AQM740

      COMMON      /MUTMU5/
     +
     +             SPCATM, AQ7373

      COMMON      /MUTMU6/
     +
     +             RECRD,  RECRD2, IQ7376, STDCRD, DSTCON, DSTSIG, 
     +             IQ7375, ANGDEF, IQ7377, ANGSIG, IQ7378, VALROT, 
     +             XBFAVE, IQ7327






























      INTEGER       WIFPAR(MAXPAR), WIFPPP(2,MAXPAR), INDTYP, INDPCK,
     +              NUMPPP, FREQ(NUMUA), FREQ4(NUMUA,4)
      REAL          XYZ(3), CV(3), MAT_1(3,3), MAT_2(3,3), MAT_3(3,3), 
     +              MAT_4(3,3), SCRRW1(3), SCRRW2(3), SCRRW3(3),
     +              SCRRW4(3), SCRRW5(3), SCRRW6(3),
     +              STRVAL(MAXSTV), XDDOFF, YDDOFF, ZDDOFF, MUTSCO(10)
      LOGICAL       LOGGER, LOCPAA(NUMUA), LOCPAT(MAXTAT), 
     +              LOCNEI(NUMUA), LOCNET(MAXTAT),
     +              LOCFAA(NUMUA), LOCFAT(MAXTAT),
     +              LOCPIG(NUMUA,MAXIG), LLCPAT(MAXTAT,MAXIG),
     +              LLCNET(MAXTAT,MAXIG), LOCNEG(NUMUA,MAXIG)
      CHARACTER*1   A1NAME(NUMUA)
      CHARACTER*4   AANAME(NUMUA)
      CHARACTER*10  CHADEF3
      CHARACTER*15  MTYPE(8)
      CHARACTER*36  CHADEF, CHADES, CHADEF2
      CHARACTER*80  LINE,   LINE2,  LINE3,  LINE4,  LINE5,  HISTOR(20), 
     +              FMT,    HISROW(100), BLNK80
      CHARACTER*92  LINE92
      CHARACTER*132 BIGLIN, BIGLN2
      CHARACTER*250 LINE250, OPTINP, TEXT250
      CHARACTER*300 LINE300, CHAR300
      CHARACTER*1000 LINE1000, CHAR1000
      CHARACTER*1024 LINE1024
      CHARACTER*2000 LINE2000
      CHARACTER*10000 LINE10000, CHAR10000

      COMMON       /MUTOP1/
     +              WIFPAR, WIFPPP, NUMPPP, INDTYP, INDPCK, FREQ,
     +              FREQ4

      COMMON       /MUTOP2/
     +              XYZ,    CV,     MAT_1,  MAT_2,  MAT_3,  MAT_4,
     +              SCRRW1, SCRRW2, SCRRW3, SCRRW4, SCRRW5, SCRRW6, 
     +              XDDOFF, YDDOFF, ZDDOFF, MUTSCO

      COMMON       /MUTOP3/
     +              LINE,   LINE2,  LINE3,  LINE4,  LINE5,  IQ7329, 
     +              FMT,    HISROW, AANAME, A1NAME, BIGLIN, BIGLN2,
     +              HISTOR, LINE92, BLNK80, LINE250,TEXT250,LINE300,
     +              CHAR300,LINE1024

      COMMON       /MUTOP4/
     +              LOGGER, LOCPAA, LOCPAT, LOCNEI, LOCFAA,
     +              LOCFAT, LOCNET, LOCPIG, LLCPAT, LLCNET, LOCNEG, 
     +              IQ7332

      COMMON       /MUTOP5/
     +              CHADEF

      COMMON       /MUTOP6/
     +              CHADES

      COMMON       /MUTOP7/
     +              CHADEF2

      COMMON       /MUTOP8/
     +              STRVAL

      COMMON       /MUTOP9/
     +              MTYPE

      COMMON       /MUTOP10/
     +              LINE1000, LINE2000, CHAR1000, LINE10000, CHAR10000

      COMMON       /MUTOP11/
     +              CHADEF3











      INTEGER      CHAINN(2,MAXAA), SOUADM(20,MAXMOL), NUMSOU, CELMUL
      CHARACTER*80 SOUNAM(MAXSET)

      COMMON       /MUTSO1/
     +             CHAINN, SOUADM, NUMSOU

      COMMON       /MUTSO2/
     +             SOUNAM

      COMMON       /MUTSO3/
     +             CELMUL




















      INTEGER      MAXPATH
      PARAMETER    (MAXPATH = 630)
      CHARACTER*80 FILNMS(100), WHERIS, FILDIR(100), VPROMPT,
     +             DAVDRG, DAVOUT
      CHARACTER*13 WCVERSION
      CHARACTER*8  MENULV(100)
      CHARACTER*6  OPTIN, HITEM
      CHARACTER*(MAXPATH) PATH
      LOGICAL      ATSDON, ATSNEW, JUNIOR, DEFALL, DINOUT, DINOU2, 
     +             HBODBG, OUTONF, ISSCRIPT, UKKELFLG, FATAL
      INTEGER      ISTERO, ITERMI, ICONFI(MAXPAR), RECL17, RECL18, 
     +             IU54,   SUBUSE(MAXSUU), KLOUNT, OUTUNT, JURCNT, 
     +             JURBND, JURUNT, GROUNT, DONUNT, DAVBUG
      REAL         SIGMAP(MAXSIG)

      COMMON      /MUTLB1/
     +             FILNMS, WHERIS, FILDIR, MENULV, DAVOUT,   
     +             OPTIN,  HITEM,  DAVDRG, OPTINP, VPROMPT

      COMMON      /MUTLB2/ 
     +             ATSDON, ATSNEW, JUNIOR, FATAL,  DEFALL, ISSCRIPT, 
     +             DINOUT, DINOU2, HBODBG, OUTONF, UKKELFLG

      COMMON      /MUTLB3/
     +             ICONFI, IDEBUG, ISTERO, ITERMI, RECL17, RECL18,
     +             IU54,   IQ7350, SUBUSE, IQ7349

      COMMON      /MUTLB5/
     +             PATH

      COMMON      /MUTLB6/
     +             IU20,   IU21,   IU100,  IU60,   IU66,   IU67,   
     +             IU68,   IU102,  IU103,  DAVBUG, KLOUNT, DONUNT, 
     +             GROUNT, OUTUNT, JURUNT, JURCNT, JURBND

      COMMON      /MUTLB7/
     +             SIGMAP

      COMMON      /MUTLB8/
     +             WCVERSION

