#endif
call probabl(iT,ncon_work,ncon,*20)
-
+ write(iout,*) "after probabl"
if (ncon_work.lt.2) then
write (iout,*) "Too few conformations; clustering skipped"
exit
ndis=ncon_work*(ncon_work-1)/2
call work_partition(.true.,ndis)
#endif
+ write(iout,*) "after work partition"
DO I=1,NCON_work
ICC(I)=I
C CALCULATE DISTANCES
C
call daread_ccoords(1,ncon_work)
+ write(iout,*) "after daread_ccords"
ind1=0
DO I=1,NCON_work-1
if (mod(i,100).eq.0) print *,'Calculating RMS i=',i