ndis=ncon_work*(ncon_work-1)/2
call work_partition(.true.,ndis)
#endif
-
+ write(iout,*) "AFTET wort_part",NCON_work
DO I=1,NCON_work
ICC(I)=I
ENDDO
C CALCULATE DISTANCES
C
call daread_ccoords(1,ncon_work)
+ write (iout,*) "AM I HERE"
+ call flush(iout)
ind1=0
DO I=1,NCON_work-1
if (mod(i,100).eq.0) print *,'Calculating RMS i=',i