diff options
author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-01-16 10:14:01 +0000 |
---|---|---|
committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-01-16 10:14:01 +0000 |
commit | ffa346361948145f3f8e8bc01dfdd936281a0302 (patch) | |
tree | b8bb0daf38138e21e4667e5dea4f3a2d6a39fdc1 | |
parent | 6b8070adc4343a844de588885f3e8714ad6c4bd9 (diff) |
Fixed bug in filehandle ... should fix the problem ryoji had on the T3E
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@32 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
-rw-r--r-- | src/Extract.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Extract.F b/src/Extract.F index 2387ace..ff9fbd3 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -692,7 +692,7 @@ c Get the output directory sorted out if (openfile==1) then OPEN(UNIT= filehandle,FILE=fullname,STATUS="unknown") - write(444,101) char(34),filename + write(filehandle,101) char(34),filename 101 format(a1,a14) call Extract_Advertise(cctkGH,fullname) else |