X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fmain_clust.F;h=a0ae38f7dcd15f49b96679989c5bfef0db8690a1;hb=56b6e687a929b4935fe39b4abd8beb4e05265199;hp=4f500917d0a79a6c81aeafb0eb35448340c8ed0c;hpb=c2b5c2a1de9cca14f60446937085424047097953;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