X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2FCOMMON.ENERGIES;fp=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2FCOMMON.ENERGIES;h=2d40a95ba5452411f015c9c58add2f3d9ed73d2f;hb=d101c97dea752458d76055fdbae49c26fff03c1f;hp=0000000000000000000000000000000000000000;hpb=325eda160c9ad2982501e091ca40606a29043712;p=unres.git

diff --git a/source/wham/src-NEWSC-NEWCORR/COMMON.ENERGIES b/source/wham/src-NEWSC-NEWCORR/COMMON.ENERGIES
new file mode 100644
index 0000000..2d40a95
--- /dev/null
+++ b/source/wham/src-NEWSC-NEWCORR/COMMON.ENERGIES
@@ -0,0 +1,4 @@
+      double precision potE(MaxStr_Proc,Max_Parm),entfac(MaxStr_Proc),
+     & q(MaxQ+2,MaxStr_Proc),enetb(max_ene,MaxStr_Proc,Max_Parm)
+      integer einicheck
+      common /energies/ potE,entfac,q,enetb,einicheck