X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fparmread.F;h=3e9a516baa8dd6ae30f199957200b266c99cdc33;hb=bf8b3ab324569ca7ae7bb9045ad9358f6826a150;hp=7626334e1b3dbf3da2ade95a53d33be1bc6f8b7d;hpb=6e5f3f4866eb982f17fb6d5c2bb30bd7bf0585be;p=unres.git

diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F
index 7626334..3e9a516 100644
--- a/source/unres/src_MD-M/parmread.F
+++ b/source/unres/src_MD-M/parmread.F
@@ -73,6 +73,7 @@ c
 #else
       read (ibond,*) junk,vbldp0,akp,rjunk,mp,ip,pstok
       do i=1,ntyp
+      print *,i
         read (ibond,*) nbondterm(i),(vbldsc0(j,i),aksc(j,i),abond0(j,i),
      &   j=1,nbondterm(i)),msc(i),isc(i),restok(i)
         dsc(i) = vbldsc0(1,i)
@@ -924,8 +925,8 @@ c        b1(2,i)=0.0d0
         B1tilde(2,i) =-b(5)
         B1tilde(1,-i) =-b(3)
         B1tilde(2,-i) =b(5)
-c        b1tilde(1,i)=0.0d0
-c        b1tilde(2,i)=0.0d0
+        b1tilde(1,i)=0.0d0
+        b1tilde(2,i)=0.0d0
         B2(1,i)  = b(2)
         B2(2,i)  = b(4)
         B2(1,-i)  =b(2)