1 real cg_MD(3,maxres2,maxstr_proc,maxprot),
2 & cgforce_MD(3,maxres2,maxstr,maxprot),
3 & cgforce_MD_ave(3,maxres2,maxstr,maxprot)
4 double precision Force(3,maxres2,maxstr,maxprot),
5 & atforce(3,maxat),atcoord(3,maxat),chisquare(maxprot),
6 & varforce(maxprot),meanforce(maxprot),rcorr(maxprot)
7 double precision forctb(max_ene,3,maxres2,maxstr_proc,maxprot)
8 integer nconf_forc(maxprot),nsite(maxprot),
9 & nss_MD(maxstr_proc,maxprot),ihpb_MD(maxres,maxstr_proc,maxprot),
10 & jhpb_MD(maxres,maxstr_proc,maxprot)
11 integer nat(maxprot),natp(0:maxres,maxprot),
12 & natsc(0:maxres,maxprot),iatp(8,0:maxres,maxprot),
13 & iatsc(maxatsc,0:maxres,maxprot),ires_sc(maxres,maxprot)
14 character*4 atp(8,0:maxres,maxprot),atsc(maxatsc,0:maxres,maxprot)
15 common /allat/ atcoord,atforce,nat,natp,natsc,iatp,iatsc,ires_sc,
17 common /formatch/ cg_MD,cgforce_MD,CGforce_MD_ave,Force,chisquare,
18 & meanforce,varforce,rcorr,
19 & nss_MD,ihpb_MD,jhpb_MD,nconf_forc,nsite
20 common /fcompon/ forctb