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