X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Fparmread.F;fp=source%2Funres%2Fsrc_CSA%2Fparmread.F;h=0a99250111d6da04291887a9e078a05f233eedcc;hp=5a7b99f680027f7aec4f1b34c6540f8645a655ae;hb=2a226bfc86eabc6e4eae0c3ad1cbc3cb5417a05a;hpb=a0e685f844163003749ba91dfbf4644bcc8cfa30

diff --git a/source/unres/src_CSA/parmread.F b/source/unres/src_CSA/parmread.F
index 5a7b99f..0a99250 100644
--- a/source/unres/src_CSA/parmread.F
+++ b/source/unres/src_CSA/parmread.F
@@ -276,7 +276,7 @@ C
       enddo
       call flush(iout)
       endif
-      write (2,*) "Start reading THETA_PDB"
+c      write (2,*) "Start reading THETA_PDB"
       do i=1,ntyp
         read (ithep_pdb,*,err=111,end=111) a0thet(i),(athet(j,i),j=1,2),
      &    (bthet(j,i),j=1,2)