& scount(0),idispl(0),MPI_REAL,Master,MPI_COMM_WORLD, IERROR)
if (me.eq.master) then
#endif
- open(80,file='/tmp/distance',form='unformatted')
+ open(80,file=scratchdir(:ilen(scratchdir))//'/distance',
+ & form='unformatted')
do i=1,ndis
write(80) diss(i)
enddo