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
+