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

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