X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fint_to_cart.f;h=2248a3c870a762833ae1da75e87b826b74dd9d7a;hb=148ec6f6cb1015ce2b9e36ebcb0a6d346b390a5f;hp=d3a8a92b076f8f57b55eba2f9e339d4765e8b3b9;hpb=c7a96454a5265471d175bbe066071ac41c8b55c3;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 d3a8a92..2248a3c 100644 --- a/source/unres/src_MD-M/int_to_cart.f +++ b/source/unres/src_MD-M/int_to_cart.f @@ -129,7 +129,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 C print *,"tu dochodze??" if (nres.lt.2) return