Introduction of SS to newcorr and SSS to src_MD-M

[unres.git] / source / unres / src_MD-M-newcorr / parmread.F

diff --git a/source/unres/src_MD-M-newcorr/parmread.F b/source/unres/src_MD-M-newcorr/parmread.F
index 03efdb2..e48d010 100644 (file)
--- a/source/unres/src_MD-M-newcorr/parmread.F
+++ b/source/unres/src_MD-M-newcorr/parmread.F
@@ -912,11 +912,13 @@ C
         read (ifourier,*,end=115,err=115)
         read (ifourier,*,end=115,err=115) (b(ii),ii=1,13)
 #ifdef NEWCORR
+        write (iout,*) "TUTUTU"
         read (ifourier,*,end=115,err=115) (bnew1(ii,1,i),ii=1,3)
         read (ifourier,*,end=115,err=115) (bnew2(ii,1,i),ii=1,3)
         read (ifourier,*,end=115,err=115) (bnew1(ii,2,i),ii=1,1)
         read (ifourier,*,end=115,err=115) (bnew2(ii,2,i),ii=1,1)
         read (ifourier,*,end=115,err=115) (eenew(ii,i),ii=1,1)
+        
 #endif 
         if (lprint) then
         write (iout,*) 'Type',i
@@ -1266,7 +1268,7 @@ c      lprint=.false.
 C
 C Define the constants of the disulfide bridge
 C
-      ebr=-5.50D0
+      ebr=-12.00D0
 c
 c Old arbitrary potential - commented out.
 c