diff options
author | root <> | 2009-02-08 17:07:09 +0000 |
---|---|---|
committer | root <> | 2009-02-08 17:07:09 +0000 |
commit | e05584961b0c6aa3dbd33fc9d9d49902ddae8d00 (patch) | |
tree | a3049cf23ff4e4b0822d6fd7253fe873e572e104 /src/f-ftext.f | |
parent | 34bcb0dea4f77f1bacd5f9996bbeac0d7cda790f (diff) | |
download | libjwg-e05584961b0c6aa3dbd33fc9d9d49902ddae8d00.tar.gz libjwg-e05584961b0c6aa3dbd33fc9d9d49902ddae8d00.tar.bz2 libjwg-e05584961b0c6aa3dbd33fc9d9d49902ddae8d00.zip |
*** empty log message ***
Diffstat (limited to 'src/f-ftext.f')
-rw-r--r-- | src/f-ftext.f | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/f-ftext.f b/src/f-ftext.f new file mode 100644 index 0000000..f1de29d --- /dev/null +++ b/src/f-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 + |