source/maxlik/src_CSA/COMMON.CALC-single

   1       integer nene,nT,nconf,iweight(maxene),mask(maxene),
   2      &   maskel(3*nnbase)
   3       double precision enetb(maxene,maxconf),
   4      &   rmstab(maxconf),
   5      &   qtab(maxconf),rgytab(maxcon),wsq,
   6      &   entfac(maxconf),weight(maxene),
   7      &   temper(maxT),ft(2,maxT),sigma2,frac(maxT),heat(maxT)
   8       double precision ener0(maxconf),ener(maxconf)
   9       common/calc/enetb,sig0,rmstab,qtab,rgytab,entfac,
  10      &   ener0,ener,temper,weight,weightel,ft,sigma2,wsq,fave,frac,heat,
  11      &   iweight,mask,maskel,nT,nconf,nene
  12