From 4aa4dc73665d82e76bf050bd730a9ea9d5f76d53 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Sat, 4 Jul 2020 19:29:37 +0200 Subject: [PATCH] $SCRATCHDIR/distance instead of /tmp/distance --- source/cluster/wham/src-HCD-5D/main_clust.F | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 1.7.9.5