Maximum likelihood parameters optimization program for CSA added without examples.

[unres.git] / source / maxlik / src_CSA / COMMON.CALC-single

diff --git a/source/maxlik/src_CSA/COMMON.CALC-single b/source/maxlik/src_CSA/COMMON.CALC-single
new file mode 100644 (file)
index 0000000..34f3324
--- /dev/null
+++ b/source/maxlik/src_CSA/COMMON.CALC-single
@@ -0,0 +1,12 @@
+      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
+