1 C Change 12/1/95 - common block CONTACTS1 included.
2 double precision facont,gacont
4 common /contacts1/ facont(maxconts,maxres),
5 & gacont(3,maxconts,maxres),
6 & num_cont(maxres),jcont(maxconts,maxres)
7 C 12/26/95 - H-bonding contacts
8 double precision gacontp_hb1,gacontp_hb2,gacontp_hb3,gacont_hbr,
9 & gacontm_hb1,gacontm_hb2,gacontm_hb3,grij_hb_cont,facont_hb,
11 integer num_cont_hb,jcont_hb
13 & gacontp_hb1(3,maxconts,maxres),gacontp_hb2(3,maxconts,maxres),
14 & gacontp_hb3(3,maxconts,maxres),
15 & gacontm_hb1(3,maxconts,maxres),gacontm_hb2(3,maxconts,maxres),
16 & gacontm_hb3(3,maxconts,maxres),
17 & gacont_hbr(3,maxconts,maxres),
18 & grij_hb_cont(3,maxconts,maxres),
19 & facont_hb(maxconts,maxres),ees0p(maxconts,maxres),
20 & ees0m(maxconts,maxres),d_cont(maxconts,maxres),
21 & num_cont_hb(maxres),jcont_hb(maxconts,maxres)
22 double precision a_chuj,a_chuj_der
23 common /dipmat/ a_chuj(2,2,maxconts,maxres),
24 & a_chuj_der(2,2,3,5,maxconts,maxres)
25 c 7/25/08 Commented out; not needed when cumulants used
26 C Interactions of pseudo-dipoles generated by loc-el interactions.
27 c double precision dip,dipderg,dipderx
28 c common /dipint/ dip(4,maxconts,maxres),dipderg(4,maxconts,maxres),
29 c & dipderx(3,5,4,maxconts,maxres)
30 C 12/13/2008 (again Poland-Jaruzel war anniversary)
31 C RE: Parallelization of 4th and higher order loc-el correlations
32 integer ncont_sent,ncont_recv,iint_sent,iisent_local,
33 & itask_cont_from,itask_cont_to,ntask_cont_from,ntask_cont_to,
34 & nat_sent,iat_sent,iint_sent_local
35 integer iturn3_sent,iturn4_sent,iturn3_sent_local,
37 common /contdistrib/ ncont_sent(maxres),ncont_recv(maxres),
38 & iint_sent(4,maxres,maxres),iint_sent_local(4,maxres,maxres),
39 & nat_sent,iat_sent(maxres),itask_cont_from(0:max_fg_procs-1),
40 & itask_cont_to(0:max_fg_procs-1),ntask_cont_from,ntask_cont_to,
41 & iturn3_sent(4,maxres),iturn4_sent(4,maxres),
42 & iturn3_sent_local(4,maxres),iturn4_sent_local(4,maxres)