diff options
-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 |