From e05584961b0c6aa3dbd33fc9d9d49902ddae8d00 Mon Sep 17 00:00:00 2001
From: root <>
Date: Sun, 8 Feb 2009 17:07:09 +0000
Subject: *** empty log message ***

---
 src/f-ftext.f | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 src/f-ftext.f

(limited to 'src/f-ftext.f')

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
+
-- 
cgit v1.2.3