X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fparmread.F;h=efc7d647b521e75a0d6a63fd4a1cf0eca927f3e7;hb=0f510269abe829e455e884373949f27f5d16078d;hp=183a91715a4e8249b57392d7aa14fedc906c9a1f;hpb=c7a96454a5265471d175bbe066071ac41c8b55c3;p=unres.git

diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F
index 183a917..efc7d64 100644
--- a/source/unres/src_MD-M/parmread.F
+++ b/source/unres/src_MD-M/parmread.F
@@ -1005,8 +1005,6 @@ c        Dtilde(2,2,i)=0.0d0
         EEold(2,2,-i)=-b(10,i)+b(11,i)
         EEold(2,1,-i)=-b(12,i)+b(13,i)
         EEold(1,2,-i)=-b(12,i)-b(13,i)
-        write(iout,*) "TU DOCHODZE"
-        print *,"JESTEM"
 c        ee(1,1,i)=1.0d0
 c        ee(2,2,i)=1.0d0
 c        ee(2,1,i)=0.0d0
@@ -1122,7 +1120,7 @@ C       do j=1,ntyp
 C       epslip(i,j)=epslip(i,j)+0.05d0
 C       enddo
       enddo
-      write(iout,*) epslip(1,1),"OK?"
+c      write(iout,*) epslip(1,1),"OK?"
 C For the GB potential convert sigma'**2 into chi'
       if (ipot.eq.4) then
 	do i=1,ntyp