Maximum likelihood parameters optimization program for CSA added without examples.

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

diff --git a/source/maxlik/src_CSA/COMMON.CALC b/source/maxlik/src_CSA/COMMON.CALC
new file mode 100644 (file)
index 0000000..8efc9da
--- /dev/null
+++ b/source/maxlik/src_CSA/COMMON.CALC
@@ -0,0 +1,14 @@
+      integer nene,nT,nconf(maxprot),iweight(maxene),mask(maxene),
+     &  nprot
+      character*8 protname(maxprot)
+      double precision enetb(maxene,maxconf,maxprot),
+     &   rmstab(maxconf,maxprot),
+     &   qtab(maxconf,maxprot),rgytab(maxconf,maxprot),wsq,
+     &   entfac(maxconf,maxprot),weight(maxene),sig0,
+     &   temper(maxT),ft(2,maxT),sigma2,frac(maxT),heat(maxT),
+     &   sumlik(maxT,maxprot),rmsave(maxT,maxprot)
+      double precision ener0(maxconf,maxprot),ener(maxconf,maxprot)
+      common/calc/enetb,sig0,rmstab,qtab,rgytab,entfac,
+     &   ener0,ener,temper,weight,ft,sigma2,wsq,heat,
+     &   rmsave,sumlik,iweight,mask,nT,nconf,nene,nprot
+      common /names/ protname