Poprawiony SCR_MD-M i dzialajacy

[unres.git] / source / unres / src_MD-M / initialize_p.F

diff --git a/source/unres/src_MD-M/initialize_p.F b/source/unres/src_MD-M/initialize_p.F
index ed4fb21..4b2b97b 100644 (file)
--- 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