source/maxlik/src_CSA/COMMON.CALC

   1       integer nene,nT,nconf(maxprot),iweight(maxene),mask(maxene),
   2      &  nprot
   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