X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fdfa.F;h=922f9335b5d922d0fbe191748a588f20e138f513;hb=b1ac4ec5292a0d8ddcc3ad64e27a5ab3a4febe39;hp=576910c65314275a2b065d52319a9da0c30871b5;hpb=357148eb01c1ea7e5cfd362d34f1e1ab61c8f2a8;p=unres.git

diff --git a/source/cluster/wham/src/dfa.F b/source/cluster/wham/src/dfa.F
index 576910c..922f933 100644
--- a/source/cluster/wham/src/dfa.F
+++ b/source/cluster/wham/src/dfa.F
@@ -1,3 +1,14 @@
+      block data dfadata
+      include 'DIMENSIONS'
+      include 'COMMON.INTERACT'
+      include 'COMMON.DFA'
+      DATA CK/1.0D0,1.58740105197D0,2.08008382305D0,2.51984209979D0/
+      DATA SCK/1.0D0,1.25992104989D0,1.44224957031D0,1.58740105197D0/
+      DATA S1/3.75D0,5.75D0,7.75D0,9.75D0/
+      DATA S2/4.25D0,6.25D0,8.25D0,10.25D0/
+      end
+c------------------------------------------------------------------------
+
       subroutine init_dfa_vars
 
       include 'DIMENSIONS'