$SCRATCHDIR/distance instead of /tmp/distance

diff --git a/source/cluster/wham/src-HCD-5D/main_clust.F b/source/cluster/wham/src-HCD-5D/main_clust.F
index 2485ecb..0088b2f 100644 (file)
--- a/source/cluster/wham/src-HCD-5D/main_clust.F
+++ b/source/cluster/wham/src-HCD-5D/main_clust.F
@@ -174,7 +174,8 @@ c      PRINT '(a)','End of distance computation'
      &     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