From 1e8520cad5c20db41d5eb890bd365e6f60bfaf9a Mon Sep 17 00:00:00 2001
From: root <>
Date: Sun, 8 Feb 2009 18:05:29 +0000
Subject: *** empty log message ***

---
 src/f-ftext.f | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 src/f-ftext.f

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

diff --git a/src/f-ftext.f b/src/f-ftext.f
deleted file mode 100644
index f1de29d..0000000
--- a/src/f-ftext.f
+++ /dev/null
@@ -1,29 +0,0 @@
-	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