X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fint_to_cart.f;fp=source%2Funres%2Fsrc_MD-M%2Fint_to_cart.f;h=12ebe530b1b7a340304349a61177617fcbdb6b6c;hb=7a3350f7afbf70b7a90c51580f5327860d877d98;hp=e178afe96797f1f5c104cb93891020dc639d0497;hpb=a70be6e9e57486949af48628f1bc8810bcbe7ce6;p=unres.git

diff --git a/source/unres/src_MD-M/int_to_cart.f b/source/unres/src_MD-M/int_to_cart.f
index e178afe..12ebe53 100644
--- a/source/unres/src_MD-M/int_to_cart.f
+++ b/source/unres/src_MD-M/int_to_cart.f
@@ -78,7 +78,7 @@ c    If there are more than five residues
         enddo
       endif 	
 c  Setting dE/ddnres-2      
-      write(iout,*) "ATUCHUJ?" 
+C      write(iout,*) "ATUCHUJ?" 
       if(nres.gt.5) then
          do j=1,3
            gcart(j,nres-2)=gcart(j,nres-2)+gloc(nres-4,icg)*
@@ -116,7 +116,7 @@ c   The side-chain vector derivatives
             enddo
          endif	    
        enddo
-       write(iout,*) "TU DOCHODZE"
+C       write(iout,*) "TU DOCHODZE"
 	 	     	  					  		     				 		    	           	
 c----------------------------------------------------------------------
 C INTERTYP=1 SC...Ca...Ca...Ca