diff options
author | root <> | 2009-02-08 16:49:14 +0000 |
---|---|---|
committer | root <> | 2009-02-08 16:49:14 +0000 |
commit | 8646c6b2ddaf32ac7342cc8b61e559d46885af4f (patch) | |
tree | 226d8347d9c674ed6f2d0a185b904e5f57037c42 /src/ftext.f | |
parent | 5d3e093d432a31fb8a8267cbf30f1ed892f49508 (diff) | |
download | libjwg-8646c6b2ddaf32ac7342cc8b61e559d46885af4f.tar.gz libjwg-8646c6b2ddaf32ac7342cc8b61e559d46885af4f.tar.bz2 libjwg-8646c6b2ddaf32ac7342cc8b61e559d46885af4f.zip |
*** empty log message ***
Diffstat (limited to 'src/ftext.f')
-rw-r--r-- | src/ftext.f | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/ftext.f b/src/ftext.f new file mode 100644 index 0000000..f1de29d --- /dev/null +++ b/src/ftext.f @@ -0,0 +1,29 @@ + 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 + |