X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fmain_clust.F;h=a0ae38f7dcd15f49b96679989c5bfef0db8690a1;hb=46f44b81c37b7913c00e9ea63db4b76255858401;hp=4f500917d0a79a6c81aeafb0eb35448340c8ed0c;hpb=a45ce81aae2c857c30b821e39e45a7a08356de4d;p=unres.git diff --git a/source/cluster/wham/src/main_clust.F b/source/cluster/wham/src/main_clust.F index 4f50091..a0ae38f 100644 --- a/source/cluster/wham/src/main_clust.F +++ b/source/cluster/wham/src/main_clust.F @@ -107,7 +107,6 @@ c if (refstr) call read_ref_structure(*30) #ifdef MPI call work_partition(.true.,ncon) #endif - call probabl(iT,ncon_work,ncon,*20) if (ncon_work.lt.2) then