X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Fwham%2Fsrc-M%2Fparmread.F;fp=source%2Fwham%2Fsrc-M%2Fparmread.F;h=c9ac2a392dcd4c975937b2f0b89bc8a31f1742db;hb=573519d92765e09af5d748a8ac827a9aa2ef0a57;hp=80ae41d56b3fac4eb2f1b13ebd766e6ea2cabfa9;hpb=6467ebb12e69026000fc9f6d05eb3e9b6638254f;p=unres.git

diff --git a/source/wham/src-M/parmread.F b/source/wham/src-M/parmread.F
index 80ae41d..c9ac2a3 100644
--- a/source/wham/src-M/parmread.F
+++ b/source/wham/src-M/parmread.F
@@ -295,7 +295,7 @@ C
 C Read the parameters of Utheta determined from ab initio surfaces
 C Kozlowska et al., J. Phys.: Condens. Matter 19 (2007) 285203
 C
-      write (iout,*) "tu dochodze"
+c      write (iout,*) "tu dochodze"
       read (ithep,*) nthetyp,ntheterm,ntheterm2,
      &  ntheterm3,nsingle,ndouble
       nntheterm=max0(ntheterm,ntheterm2,ntheterm3)
@@ -303,7 +303,7 @@ C
       do i=-ntyp1,-1
         ithetyp(i)=-ithetyp(-i)
       enddo
-      write (iout,*) "tu dochodze"
+c      write (iout,*) "tu dochodze"
       do iblock=1,2
       do i=-maxthetyp,maxthetyp
         do j=-maxthetyp,maxthetyp