1 integer nene,nT,nconf(maxprot),iweight(maxene),mask(maxene),
3 character*8 protname(maxprot)
4 double precision enetb(maxene,maxconf,maxprot),
5 & rmstab(maxconf,maxprot),
6 & qtab(maxconf,maxprot),rgytab(maxconf,maxprot),wsq,
7 & entfac(maxconf,maxprot),weight(maxene),sig0,
8 & temper(maxT),ft(2,maxT),sigma2,frac(maxT),heat(maxT),
9 & sumlik(maxT,maxprot),rmsave(maxT,maxprot)
10 double precision ener0(maxconf,maxprot),ener(maxconf,maxprot)
11 common/calc/enetb,sig0,rmstab,qtab,rgytab,entfac,
12 & ener0,ener,temper,weight,ft,sigma2,wsq,heat,
13 & rmsave,sumlik,iweight,mask,nT,nconf,nene,nprot
14 common /names/ protname