X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-newcorr%2Fparmread.F;h=e48d01049589314c5baa6c948af3e303ccccfa8c;hp=03efdb25b6b800a3004beac6efb4de7a2c01fee9;hb=b9025a366733ac0290debbd52ede3527d29c9ed5;hpb=31389e1d082428c71d42d61559ca2620daf6cf8d

diff --git a/source/unres/src_MD-M-newcorr/parmread.F b/source/unres/src_MD-M-newcorr/parmread.F
index 03efdb2..e48d010 100644
--- 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