+++ /dev/null
- integer nene,nT,nconf,iweight(maxene),mask(maxene),
- & maskel(3*nnbase)
- double precision enetb(maxene,maxconf),
- & rmstab(maxconf),
- & qtab(maxconf),rgytab(maxcon),wsq,
- & entfac(maxconf),weight(maxene),
- & temper(maxT),ft(2,maxT),sigma2,frac(maxT),heat(maxT)
- double precision ener0(maxconf),ener(maxconf)
- common/calc/enetb,sig0,rmstab,qtab,rgytab,entfac,
- & ener0,ener,temper,weight,weightel,ft,sigma2,wsq,fave,frac,heat,
- & iweight,mask,maskel,nT,nconf,nene
-