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 | |
| parent | 34bcb0dea4f77f1bacd5f9996bbeac0d7cda790f (diff) | |
| download | libjwg-e05584961b0c6aa3dbd33fc9d9d49902ddae8d00.tar.gz libjwg-e05584961b0c6aa3dbd33fc9d9d49902ddae8d00.tar.bz2 libjwg-e05584961b0c6aa3dbd33fc9d9d49902ddae8d00.zip | |
*** empty log message ***
| -rw-r--r-- | src/Makefile.am | 12 | ||||
| -rw-r--r-- | src/f-ftext.f | 29 |
2 files changed, 36 insertions, 5 deletions
diff --git a/src/Makefile.am b/src/Makefile.am index a90a0c8..7ba2f98 100644 --- a/src/Makefile.am +++ b/src/Makefile.am @@ -8,6 +8,9 @@ # $Id$ # # $Log$ +# Revision 1.5 2009/02/08 17:07:09 root +# *** empty log message *** +# # Revision 1.4 2009/02/08 17:04:47 root # *** empty log message *** # @@ -33,17 +36,16 @@ JWGSRCS=${SRCS} noinst_HEADERS= project.h prototypes.h jwg-tail.h ext_prototypes.h -BUILT_SOURCES= fa-ftext.f - -fa-ftext.f:f-ftext.f - cp $< $@ libjwg_a_SOURCES = ${JWGSRCS} f-ftext.f libjwg_la_SOURCES = ${JWGSRCS} fa-ftext.f libjwg_a_CFLAGS = ${AM_CFLAGS} -BUILT_SOURCES = version.h jwg.h +BUILT_SOURCES = version.h jwg.h fa-ftext.f + +fa-ftext.f:f-ftext.f + cp $< $@ lib_LIBRARIES=libjwg.a lib_LTLIBRARIES=libjwg.la 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 + |