diff options
| author | root <> | 2009-02-08 18:05:29 +0000 |
|---|---|---|
| committer | root <> | 2009-02-08 18:05:29 +0000 |
| commit | 1e8520cad5c20db41d5eb890bd365e6f60bfaf9a (patch) | |
| tree | 8c7f01031f1512e981cb27a47f465a3080019fde /src/f-ftext.f | |
| parent | a25164b25fb68bd329c1ba9689ba894cb1c5e9b8 (diff) | |
| download | libjwg-1e8520cad5c20db41d5eb890bd365e6f60bfaf9a.tar.gz libjwg-1e8520cad5c20db41d5eb890bd365e6f60bfaf9a.tar.bz2 libjwg-1e8520cad5c20db41d5eb890bd365e6f60bfaf9a.zip | |
*** empty log message ***
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 - |