X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Finitialize_p.F;h=4b2b97b301fd31ef1755a34f39fa75c40394c40a;hb=09cef8a826bd79949bdefd4f8b5dae831a04979e;hp=ed4fb21f4b386a00a05f9a63b051037d9cab3dd8;hpb=2acc9917f7452c3a59a242e6033bea16f846cbfe;p=unres.git

diff --git a/source/unres/src_MD-M/initialize_p.F b/source/unres/src_MD-M/initialize_p.F
index ed4fb21..4b2b97b 100644
--- a/source/unres/src_MD-M/initialize_p.F
+++ b/source/unres/src_MD-M/initialize_p.F
@@ -194,6 +194,7 @@ c      call memmon_print_usage()
       dsc(ntyp1)=0.0D0
       do i=-maxtor,maxtor
         itortyp(i)=0
+cc      write (iout,*) "TU DOCHODZE",i,itortyp(i)
        do iblock=1,2
         do j=-maxtor,maxtor
           do k=1,maxterm