X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fint_to_cart.f;h=2067629a5e0be707753661636e46025a07b9686a;hb=6f95af5d4a04ea311fb1e784ce812f133dc8f2e5;hp=73e83846e1addea0cc54521386f928bea071ab78;hpb=4866688f3356059b9a933ec2be6da24e6784fa9f;p=unres.git diff --git a/source/unres/src_MD/int_to_cart.f b/source/unres/src_MD/int_to_cart.f index 73e8384..2067629 100644 --- a/source/unres/src_MD/int_to_cart.f +++ b/source/unres/src_MD/int_to_cart.f @@ -127,7 +127,7 @@ c calculating dE/ddc1 18 continue c do i=1,nres c gloc(i,icg)=0.0D0 -c write (iout,*) "poczotkoawy",i,gloc_sc(1,i,icg) +c write (iout,*) i,gloc_sc(1,i,icg) c enddo if (nres.lt.2) return if ((nres.lt.3).and.(itype(1).eq.10)) return