real cg_MD(3,maxres2,maxstr_proc,maxprot),
     & cgforce_MD(3,maxres2,maxstr,maxprot),
     & cgforce_MD_ave(3,maxres2,maxstr,maxprot)
      double precision Force(3,maxres2,maxstr,maxprot),
     & atforce(3,maxat),atcoord(3,maxat),chisquare(maxprot),
     & varforce(maxprot),meanforce(maxprot),rcorr(maxprot)
      double precision forctb(max_ene,3,maxres2,maxstr_proc,maxprot)
      integer nconf_forc(maxprot),nsite(maxprot),
     &  nss_MD(maxstr_proc,maxprot),ihpb_MD(maxres,maxstr_proc,maxprot),
     & jhpb_MD(maxres,maxstr_proc,maxprot)
      integer nat(maxprot),natp(0:maxres,maxprot),
     & natsc(0:maxres,maxprot),iatp(8,0:maxres,maxprot),
     & iatsc(maxatsc,0:maxres,maxprot),ires_sc(maxres,maxprot)
      character*4 atp(8,0:maxres,maxprot),atsc(maxatsc,0:maxres,maxprot)
      common /allat/ atcoord,atforce,nat,natp,natsc,iatp,iatsc,ires_sc,
     & atp,atsc
      common /formatch/ cg_MD,cgforce_MD,CGforce_MD_ave,Force,chisquare,
     & meanforce,varforce,rcorr,
     & nss_MD,ihpb_MD,jhpb_MD,nconf_forc,nsite
      common /fcompon/ forctb