blob: f1de29d4565ca482b2569591b5341ea80e5455ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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
|
