c#######################################################################
c
c     COMMON BLOCKS FOR MC-TINKER
c
c#######################################################################
c
      character * 80 cmctit
      character * 3  atname(mcmatm,2,6)
      character * 80 inkl(mcmkey,2,6)
c
c#######################################################################
c
      common /mc01cm/ cmctit(5)
c
      common /mc02cm/ mcnatm, mcnesp, mciufi, mciufo, mcityp, mciord,
     *                mcimre, mcifre, mcipex, mcilin, mcipic, 
     *                labmc(mcmatm)
c
      common /mc03cm/ smmc, ammc(mcmatm), cmmc(mcmcar), stepsize
c
      common /mc04cm/ ediff0, vz1, vz2, e12ct, xrc(mcmcar,2),
     *                dh,hh,udelta,unn                                  0421OT08
c
      common /mc05cm/ atname, inkl
c
      common /mc06cm/ itags(mcmatm,2,6), itype(mcmatm,2,6), inky(2,6),
     *                incon(mcmatm,2,6), icon12(mcmatm,mcmatm,2,6)
c
      common /mc07cm/ vsh(mcmesp), hsh(mcmcar,mcmcar,mcmesp),
     *                xsh(mcmcar,mcmesp), dsh(mcmcar,mcmesp)
c
      common /mc08cm/ qs0(mcmics,mcmesp+2), qd0(mcmicd,mcmesp+2),
     *      qs(mcmics), qd(mcmicd), qs_12(mcmicss), qd_12(mcmicds),       1106OT06
     *      qs_23(mcmicss),qs_13(mcmicss),qs_123(mcmicss),                 1106OT06
     *      qs_132(mcmicss),                                             1106OT06
     *          qd0_12(mcmicds,mcmesps+2), qs0_12(mcmicss,mcmesps+2),       1106OT06
     *          qd0_23(mcmicds,mcmesps+2), qs0_23(mcmicss,mcmesps+2),       1106OT06
     *          qd0_13(mcmicds,mcmesps+2), qs0_13(mcmicss,mcmesps+2),       1106OT06
     *          qd0_123(mcmicds,mcmesps+2), qs0_123(mcmicss,mcmesps+2),     1106OT06
     *          qd0_132(mcmicds,mcmesps+2), qs0_132(mcmicss,mcmesps+2),     1106OT06
     *          qd0_p12(mcmicds,(mcmesps+2)*6),                           1106OT06
     *          dqd_p12(mcmicds,mcmesp*6+12),                            1106OT06
     *          Fw(mcmesp*6)                                            0421OT08
c
      common /mc09cm/ aevbm(mcmesp), bevbm(mcmics,mcmesp), 
     *                cevbm(mcmics,mcmics,mcmesp),
     *                bevbm_12(mcmicss,mcmesps),                          1106OT06
     *                cevbm_12(mcmicss,mcmicss,mcmesps),                   1106OT06
     *                bevbm_23(mcmicss,mcmesps),                          1106OT06
     *                cevbm_23(mcmicss,mcmicss,mcmesps),                   1106OT06
     *                bevbm_13(mcmicss,mcmesps),                          1106OT06
     *                cevbm_13(mcmicss,mcmicss,mcmesps),                   1106OT06
     *                bevbm_123(mcmicss,mcmesps),                         1106OT06
     *                cevbm_123(mcmicss,mcmicss,mcmesps),                  1106OT06
     *                bevbm_132(mcmicss,mcmesps),                         1106OT06
     *                cevbm_132(mcmicss,mcmicss,mcmesps)                   1106OT06
c
      common /mc10cm/ mcnics, mcndis, mcnans, mcnads, mcndas,
     *                mcidis(2,mcmics), mcians(3,mcmics),
     *                mciads(3,mcmics), mcidas(4,mcmics),
     *                mcsins, mcpnds(mcmics)                              0312MH10
c
      common /mc11cm/ mcnicd, mcndid, mcnand, mcnadd, mcndad,
     *                mcidid(2,mcmics), mciand(3,mcmics),
     *                mciadd(3,mcmics), mcidad(4,mcmics),
     *                mcsind, mcpndd(mcmics)                              0312MH10
c
      common /mc12cm/ mcnicb, mciicb(mcmics), mciicb1(mcmics)
c
      common /mc13cm/ alphaV1,alphaV2,isigmav1,isigmav2,ipermsym          1106OT06
c
      common /mc14cm/ mcshrp, mcprwg, mcpcoe                              0601MH10
c
      common /mc15cm/ icomplex, ijacob, iwscale                           0108OT09
c
      common /mc16cm/ mcihfr
c>>>>                                                                     0529MH10
      common /mc17cm/ mcnzrh(mcmesp),mcizrh(mcmics,mcmesp),
     *                mcnzra(mcmesp),mcizra(mcmics,mcmesp),
     *                mcnzrc(mcmesp),mcizrc(mcmics,mcmesp)
c<<<<                                                                     0529MH10
c#######################################################################
