diff options
| author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-10-12 13:34:53 +0000 |
|---|---|---|
| committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-10-12 13:34:53 +0000 |
| commit | dd69f582ec80c15cfa649de125c976b65164b047 (patch) | |
| tree | df15d0c51896da78c931dd70eb9db27422cb86c4 | |
| parent | 9525bb526edad22c5dfdadf8bbaa1e83777df976 (diff) | |
Inserted a continuation line to make it compiling with NAG compiler.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@43 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
| -rw-r--r-- | src/Extract.F | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Extract.F b/src/Extract.F index 49d0ba9..5d9053b 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -698,7 +698,8 @@ c Get the output directory sorted out 101 format(a1,a14) call Extract_Advertise(cctkGH,fullname) else - OPEN(UNIT=filehandle,FILE=fullname,STATUS="old",POSITION="append") + OPEN(UNIT=filehandle,FILE=fullname,STATUS="old", + . POSITION="append") end if |