diff options
Diffstat (limited to 'src/f-ftext.f')
| -rw-r--r-- | src/f-ftext.f | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/src/f-ftext.f b/src/f-ftext.f deleted file mode 100644 index f1de29d..0000000 --- a/src/f-ftext.f +++ /dev/null @@ -1,29 +0,0 @@ - function jwg_open_textunit - - integer jwg_priv_init_textlist*4 - - parameter (default_textunit=32767) - - character textpipe*1024 - integer textunit*4,setup*4 - - - setup=jwg_priv_init_textlist - -C Is all this gubbins working or do we need to fiddle? - - if (setup.ne.0) then -C -C this will check that the string is correctly passed -C - textpipe='sanity check' - - call jwg_priv_setup_textpipe(textpipe) - - textunit=default_textunit - open (file=textpipe,unit=textunit,action='write',status=old) - - endif - - jwg_open_textunit=textunit - |