X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-HCD-5D%2Fmain_clust.F;h=0088b2ff0cf0b898b7f86c9460cbe5afe90645e9;hb=4aa4dc73665d82e76bf050bd730a9ea9d5f76d53;hp=2485ecb8a171e4e52d46bbcf2706d20d1074b1f7;hpb=4a7e48013d9841fa06bace935ba87493ce4b701c;p=unres.git

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