From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Sat, 4 Jul 2020 17:29:37 +0000 (+0200)
Subject: $SCRATCHDIR/distance instead of /tmp/distance
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=4aa4dc73665d82e76bf050bd730a9ea9d5f76d53

$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
--- 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