gfortran wham and cluster -mcmodel=medium
[unres.git] / source / wham / src / COMMON.DFA
index 3c74bc8..c6add4f 100644 (file)
@@ -94,3 +94,8 @@ c    &       ,DFAEXP
      &             WSHET(MAXRES,MAXRES), EDFABET, 
      &             CK(4),SCK(4),S1(4),S2(4)
 c    &             ,DFAEXP(15001),
+
+      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/