C 10/30/99 Added other pre-computed vectors and matrices needed
C to calculate three - six-order el-loc correlation terms
double precision Ug,Ugder,Ug2,Ug2der,obrot,obrot2,obrot_der,
- & obrot2_der,Ub2,Ub2der,mu,muder,EUg,EUgder,CUg,CUgder,
- & DUg,DUgder,DtUg2,DtUg2der,Ctobr,Ctobrder,Dtobr2,Dtobr2der
+ & obrot2_der,Ub2,Ub2der,mu,muder,EUg,EUgder,CUg,CUgder,gmu,gUb2
+ & DUg,DUgder,DtUg2,DtUg2der,Ctobr,Ctobrder,Dtobr2,Dtobr2der,
+ & gtEug
common /rotat/ Ug(2,2,maxres),Ugder(2,2,maxres),Ug2(2,2,maxres),
& Ug2der(2,2,maxres),obrot(2,maxres),obrot2(2,maxres),
& obrot_der(2,maxres),obrot2_der(2,maxres)
C This common block contains vectors and matrices dependent on a single
C amino-acid residue.
common /precomp1/ mu(2,maxres),muder(2,maxres),Ub2(2,maxres),
+ & gmu(2,maxres),gUb2(2,maxres),
& Ub2der(2,maxres),Ctobr(2,maxres),Ctobrder(2,maxres),
& Dtobr2(2,maxres),Dtobr2der(2,maxres),
& EUg(2,2,maxres),EUgder(2,2,maxres),CUg(2,2,maxres),
& CUgder(2,2,maxres),DUg(2,2,maxres),Dugder(2,2,maxres),
- & DtUg2(2,2,maxres),DtUg2der(2,2,maxres)
+ & DtUg2(2,2,maxres),DtUg2der(2,2,maxres),gtEUg(2,2,maxres)
C This common block contains vectors and matrices dependent on two
C consecutive amino-acid residues.
double precision Ug2Db1t,Ug2Db1tder,CUgb2,CUgb2der,EUgC,