correction in readrefstr

[unres.git] / source / wham / src-M / initialize_p.F

diff --git a/source/wham/src-M/initialize_p.F b/source/wham/src-M/initialize_p.F
index aea09dd..9b03d11 100644 (file)
--- a/source/wham/src-M/initialize_p.F
+++ b/source/wham/src-M/initialize_p.F
@@ -62,6 +62,8 @@ C
       ihist=30
       iweight=31
       izsc=32
+C Lipidic input file for parameters range 60-79
+      iliptranpar=60
 C
 C Set default weights of the energy terms.
 C
@@ -88,8 +90,10 @@ C
       enddo
       do i=1,ntyp
        do j=1,ntyp
-         aa(i,j)=0.0D0
-         bb(i,j)=0.0D0
+         aa_lip(i,j)=0.0D0
+         bb_lip(i,j)=0.0D0
+          aa_aq(i,j)=0.0D0
+          bb_aq(i,j)=0.0D0
          augm(i,j)=0.0D0
          sigma(i,j)=0.0D0
          r0(i,j)=0.0D0
@@ -541,7 +545,7 @@ C Partition local interactions
 #else
       loc_start=2
       loc_end=nres-1
-      ithet_start=3 
+      ithet_start=3
       ithet_end=nres
       iphi_start=nnt+3
       iphi_end=nct