X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-HCD%2Fenergy_p_new.F;h=5d07d5db79749520c5530904889c4b22b6c7dd5c;hb=32caa3b64eb94b90fa9fd402b77263ea89efffa1;hp=95898b4638613604d4faece6041b39aac8175d83;hpb=225ad1b2239a64aee5d46570c477e74c19cf6ef7;p=unres.git diff --git a/source/cluster/wham/src-HCD/energy_p_new.F b/source/cluster/wham/src-HCD/energy_p_new.F index 95898b4..5d07d5d 100644 --- a/source/cluster/wham/src-HCD/energy_p_new.F +++ b/source/cluster/wham/src-HCD/energy_p_new.F @@ -10217,6 +10217,7 @@ c min_odl=minval(distancek) & min_odl=distancek(kk) enddo endif + c write (iout,* )"min_odl",min_odl #ifdef DEBUG write (iout,*) "ij dij",i,j,dij