





      INTEGER     HB2ES0, HB2ES1, HB2ES2, HB2ES3, HB2ES4, HB2ES5,
     +            HB2ES6, HB2ES7, HB2ES8, HB2ES9, HB2ESA, HB2ESB,
     +            HB2ESC, HB2ESD, HB2ESE, HB2ESZ
      PARAMETER   (HB2ES0=625001)


























      INTEGER     MAXAMB, MAXHAT, MAXDON, MAXTAD, MAXTPA, MAXPLU,
     +            MAXHGR, MAXH2N, MAXH2P, MAXH2D, MAXFIX, MAXFFX,
     +            MAXSNS, MAXSN2, MAXWHB
      PARAMETER   (MAXAMB=MAXAA)
      PARAMETER   (MAXHAT=3*MAXAA)
      PARAMETER   (MAXDON=3*MAXAA)
      PARAMETER   (MAXTAD=4*MAXAMB)
      PARAMETER   (MAXTPA=4*MAXDON)
      PARAMETER   (MAXPLU=MAXMOL)
      PARAMETER   (MAXHGR=MAXAA)
      PARAMETER   (MAXH2D=55)
      PARAMETER   (MAXH2P=366)
      PARAMETER   (MAXH2N=37)
      PARAMETER   (MAXSNS=MAXAMB)
      PARAMETER   (MAXSN2=150)
      PARAMETER   (MAXFIX=50)
      PARAMETER   (MAXFFX=MAXFIX*200)
      PARAMETER   (MAXWHB=20)














      REAL        HB2EXV, HB2MXE, HB2ERT, WHBFAC, HB2DSE, HB2DLY,
     +            METPEN, DEFFLP
      INTEGER     HB2SER, HB2LYS

      PARAMETER   (HB2EXV=0.2)
      PARAMETER   (HB2MXE=6.0*4184.0)
      PARAMETER   (HB2ERT=HB2MXE/(8.31451*298.0))
      PARAMETER   (WHBFAC=10.0)
      PARAMETER   (HB2SER=36)
      PARAMETER   (HB2LYS=12)
      PARAMETER   (HB2DSE=360.0/HB2SER)
      PARAMETER   (HB2DLY=120.0/HB2LYS)
      PARAMETER   (METPEN=4.0)
      PARAMETER   (DEFFLP=0.4)












      INTEGER     HB2ACB(3,MAXAT), HB2ACT(MAXAT), ATDON(MAXAT)
      REAL        XCOOR1(MAXAT), YCOOR1(MAXAT), ZCOOR1(MAXAT), 
     +            XCOOR2(MAXAT), YCOOR2(MAXAT), ZCOOR2(MAXAT), 
     +            EXVAL(MAXAT)

      EQUIVALENCE (XCOOR1,ESPACE(HB2ES0+0*MAXAT))
      EQUIVALENCE (YCOOR1,ESPACE(HB2ES0+1*MAXAT))
      EQUIVALENCE (ZCOOR1,ESPACE(HB2ES0+2*MAXAT))
      EQUIVALENCE (XCOOR2,ESPACE(HB2ES0+3*MAXAT))
      EQUIVALENCE (YCOOR2,ESPACE(HB2ES0+4*MAXAT))
      EQUIVALENCE (ZCOOR2,ESPACE(HB2ES0+5*MAXAT))
      EQUIVALENCE (ATDON ,ESPACE(HB2ES0+6*MAXAT))
      EQUIVALENCE (EXVAL ,ESPACE(HB2ES0+7*MAXAT))

      PARAMETER   (HB2ES1=HB2ES0+8*MAXAT)








      REAL        ARXYZH(3,MAXHAT), ARVALA(2,MAXHAT), ARPEN(MAXHAT)
      INTEGER     ARIATA(2,MAXHAT), ARSYMA(2,MAXHAT)

      EQUIVALENCE (ARXYZH,ESPACE(HB2ES1+0*MAXHAT))
      EQUIVALENCE (ARIATA,ESPACE(HB2ES1+3*MAXHAT))
      EQUIVALENCE (ARVALA,ESPACE(HB2ES1+5*MAXHAT))
      EQUIVALENCE (ARSYMA,ESPACE(HB2ES1+7*MAXHAT))
      EQUIVALENCE (ARPEN ,ESPACE(HB2ES1+9*MAXHAT))

      PARAMETER   (HB2ES2=HB2ES1+10*MAXHAT)














      REAL        HB2DVA(MAXDON)
      INTEGER     INXYZH(MAXDON), NUXYZH(MAXDON), ARIATD(MAXDON),
     +            NUPA(MAXDON), INPA(MAXDON), DONAMB(MAXDON),
     +            NUTT(MAXDON), INTT(MAXDON), HB2GRP(MAXDON)

      EQUIVALENCE (INXYZH,ESPACE(HB2ES2+0*MAXDON))
      EQUIVALENCE (NUXYZH,ESPACE(HB2ES2+1*MAXDON))
      EQUIVALENCE (ARIATD,ESPACE(HB2ES2+2*MAXDON))
      EQUIVALENCE (NUPA,  ESPACE(HB2ES2+3*MAXDON))
      EQUIVALENCE (INPA,  ESPACE(HB2ES2+4*MAXDON))
      EQUIVALENCE (DONAMB,ESPACE(HB2ES2+5*MAXDON))
      EQUIVALENCE (HB2DVA,ESPACE(HB2ES2+6*MAXDON))
      EQUIVALENCE (NUTT,  ESPACE(HB2ES2+7*MAXDON))
      EQUIVALENCE (INTT,  ESPACE(HB2ES2+8*MAXDON))
      EQUIVALENCE (HB2GRP,ESPACE(HB2ES2+9*MAXDON))

      PARAMETER   (HB2ES3=HB2ES2+10*MAXDON)
















      REAL        HB2ORG(MAXAMB), HB2PEN(MAXAMB)
      INTEGER     HB2IAA(MAXAMB), HB2IAT(MAXAMB), HB2ANG(MAXAMB),
     +            HB2TYP(MAXAMB), HB2POS(MAXAMB), HB2BES(MAXAMB),
     +            HB2AMB(MAXAMB), NUAD(MAXAMB), INAD(MAXAMB),
     +            HB2DON(MAXAMB)

      EQUIVALENCE (HB2IAA,ESPACE(HB2ES3+0*MAXAMB))
      EQUIVALENCE (HB2IAT,ESPACE(HB2ES3+1*MAXAMB))
      EQUIVALENCE (HB2ANG,ESPACE(HB2ES3+1*MAXAMB))
      EQUIVALENCE (HB2ORG,ESPACE(HB2ES3+2*MAXAMB))
      EQUIVALENCE (HB2TYP,ESPACE(HB2ES3+2*MAXAMB))
      EQUIVALENCE (HB2POS,ESPACE(HB2ES3+3*MAXAMB))
      EQUIVALENCE (HB2BES,ESPACE(HB2ES3+4*MAXAMB))
      EQUIVALENCE (HB2AMB,ESPACE(HB2ES3+5*MAXAMB))
      EQUIVALENCE (NUAD  ,ESPACE(HB2ES3+6*MAXAMB))
      EQUIVALENCE (INAD  ,ESPACE(HB2ES3+7*MAXAMB))
      EQUIVALENCE (HB2DON,ESPACE(HB2ES3+8*MAXAMB))
      EQUIVALENCE (HB2PEN,ESPACE(HB2ES3+9*MAXAMB))

      PARAMETER   (HB2ES4=HB2ES3+10*MAXAMB)





      INTEGER     ARAD(MAXTAD)

      EQUIVALENCE (ARAD,  ESPACE(HB2ES4+0*MAXTAD))

      PARAMETER   (HB2ES5=HB2ES4+1*MAXTAD)






      INTEGER     ARPAAT(MAXTPA), ARPAIS(MAXTPA)

      EQUIVALENCE (ARPAAT,ESPACE(HB2ES5+0*MAXTPA))
      EQUIVALENCE (ARPAIS,ESPACE(HB2ES5+1*MAXTPA))

      PARAMETER   (HB2ES6=HB2ES5+2*MAXTPA)







      INTEGER     INDON(MAXAA), NUDON(MAXAA)
      LOGICAL     HB2FLX(MAXAA)

      EQUIVALENCE (INDON, ESPACE(HB2ES6+0*MAXAA))
      EQUIVALENCE (NUDON, ESPACE(HB2ES6+1*MAXAA))
      EQUIVALENCE (HB2FLX,ESPACE(HB2ES6+2*MAXAA))

      PARAMETER   (HB2ES7=HB2ES6+3*MAXAA)





      INTEGER     POSIAT(MAXPLU), POSSYM(MAXPLU)

      EQUIVALENCE (POSIAT,ESPACE(HB2ES7+0*MAXPLU))
      EQUIVALENCE (POSSYM,ESPACE(HB2ES7+1*MAXPLU))

      PARAMETER   (HB2ES8=HB2ES7+2*MAXPLU)






      INTEGER     HB2GRT(MAXHGR), HB2GRC(MAXHGR)

      EQUIVALENCE (HB2GRT,ESPACE(HB2ES8+0*MAXHGR))
      EQUIVALENCE (HB2GRC,ESPACE(HB2ES8+1*MAXHGR))
      PARAMETER   (HB2ES9=HB2ES8+2*MAXHGR)





      INTEGER     HB2H2N(MAXH2N,MAXH2P)
      EQUIVALENCE (HB2H2N,ESPACE(HB2ES9))

      PARAMETER   (HB2ESA=HB2ES9+MAXH2N*MAXH2P)








      INTEGER     HB2ORS(MAXFIX), HB2DST(MAXFIX), HB2FIN(MAXFIX),
     +            HB2FAM(MAXFIX)

      EQUIVALENCE (HB2ORS,ESPACE(HB2ESA+0*MAXFIX))
      EQUIVALENCE (HB2DST,ESPACE(HB2ESA+1*MAXFIX))
      EQUIVALENCE (HB2FIN,ESPACE(HB2ESA+2*MAXFIX))
      EQUIVALENCE (HB2FAM,ESPACE(HB2ESA+3*MAXFIX))

      PARAMETER   (HB2ESB=HB2ESA+4*MAXFIX)





      INTEGER     HB2FFX(MAXFFX)

      EQUIVALENCE (HB2FFX,ESPACE(HB2ESB+0*MAXFFX))

      PARAMETER   (HB2ESC=HB2ESB+1*MAXFFX)







      INTEGER     CURR(MAXSNS)
      LOGICAL     CURCUR(MAXSN2,MAXSN2)

      EQUIVALENCE (CURR  ,ESPACE(HB2ESC+ 0))
      EQUIVALENCE (CURCUR,ESPACE(HB2ESC+ MAXSNS))

      PARAMETER   (HB2ESD=HB2ESC+MAXSNS+MAXSN2*MAXSN2)






      INTEGER     HB2WHD(MAXWHB), HB2WHA(MAXWHB)

      EQUIVALENCE (HB2WHD,ESPACE(HB2ESD+ 0*MAXWHB))
      EQUIVALENCE (HB2WHA,ESPACE(HB2ESD+ 1*MAXWHB))

      PARAMETER   (HB2ESE=HB2ESD+2*MAXWHB)























      REAL        TOTVAL, TOTPEN, HB2FLP, PENGRP,
     +            HB2LUT(9,18,9,2), HB2AUT(18,2,2), HB2DUT(40,2,2)
      INTEGER     NUMTAD, NUMHAR, NAMB1, NAMB2, NUMDON, NUMTPA, NUMPLU,
     +            NUMHGR, NUMFFX, NUMFIX, HB2EVA, NUMCUR, NUMWHB

      COMMON /HB2UNIQ/ NUMTAD, NUMHAR, NAMB1, NAMB2, NUMDON, NUMTPA, 
     +       NUMHGR, NUMFFX, NUMFIX, HB2EVA, NUMCUR, NUMWHB, NUMPLU
      COMMON /HB2UNRQ/ TOTVAL, TOTPEN, HB2FLP, PENGRP,
     +       HB2LUT, HB2AUT, HB2DUT






















      PARAMETER   (HB2ESZ=HB2ESE)





      LOGICAL     HB2IDN
      COMMON      /SHEDL/    HB2IDN

      COMMON      /JOEP_MELOEN/ HB2ACB, HB2ACT
