eesupp/src/eesupp.flow

C $Header: /u/gcmpack/MITgcm/eesupp/src/eesupp.flow,v 1.11 2009/04/28 22:00:46 jmc Exp $
C $Name:  $

C---------------------------------------------------------------
C Subroutine barrier is difficult to handle,
C it is required but it does not compute values.
C TAMC has been extended to handle such routines
C REQUIRED means the call will be included for recomputations
C INFLUENCED means if also required
C            the adjoint routine will be called
C---------------------------------------------------------------
CADJ SUBROUTINE BARRIER INPUT   = 1
CADJ SUBROUTINE BARRIER OUTPUT  =
CADJ SUBROUTINE BARRIER REQUIRED
CADJ SUBROUTINE BARRIER INFLUENCED
CADJ SUBROUTINE BARRIER ADNAME  = BARRIER
CADJ SUBROUTINE BARRIER FTLNAME = BARRIER
CADJ SUBROUTINE BARRIER DEPEND  = 1

CADJ SUBROUTINE FOOL_THE_COMPILER INPUT   = 1
CADJ SUBROUTINE FOOL_THE_COMPILER OUTPUT  =
CADJ SUBROUTINE FOOL_THE_COMPILER REQUIRED
CADJ SUBROUTINE FOOL_THE_COMPILER INFLUENCED
CADJ SUBROUTINE FOOL_THE_COMPILER ADNAME  = FOOL_THE_COMPILER
CADJ SUBROUTINE FOOL_THE_COMPILER FTLNAME = FOOL_THE_COMPILER
CADJ SUBROUTINE FOOL_THE_COMPILER DEPEND  = 1

CADJ SUBROUTINE MEMSYNC INPUT   =
CADJ SUBROUTINE MEMSYNC OUTPUT  =
CADJ SUBROUTINE MEMSYNC REQUIRED
CADJ SUBROUTINE MEMSYNC INFLUENCED
CADJ SUBROUTINE MEMSYNC ADNAME  = MEMSYNC
CADJ SUBROUTINE MEMSYNC FTLNAME = MEMSYNC
CADJ SUBROUTINE MEMSYNC DEPEND  =

CADJ SUBROUTINE BARRIER_INIT  INPUT  =
CADJ SUBROUTINE BARRIER_INIT  OUTPUT =

CADJ SUBROUTINE BAR2       INPUT  = 1
CADJ SUBROUTINE BAR2       OUTPUT =

CADJ SUBROUTINE BAR2_INIT  INPUT  = 1
CADJ SUBROUTINE BAR2_INIT  OUTPUT =

CADJ SUBROUTINE BAR_CHECK  INPUT = 1,2
CADJ SUBROUTINE BAR_CHECK  OUTPUT = 

CADJ SUBROUTINE CHECK_THREADS  INPUT  = 1
CADJ SUBROUTINE CHECK_THREADS  OUTPUT = 

CADJ SUBROUTINE EEDIE  INPUT  =
CADJ SUBROUTINE EEDIE  OUTPUT =


CADJ FUNCTION   TIMER_INDEX  INPUT  = 1,2,3,4
CADJ FUNCTION   TIMER_INDEX  OUTPUT =

CADJ SUBROUTINE TIMER_CONTROL  INPUT  = 1,2,3,4
CADJ SUBROUTINE TIMER_CONTROL  OUTPUT =

CADJ SUBROUTINE TIMER_GET_TIME INPUT  =
CADJ SUBROUTINE TIMER_GET_TIME OUTPUT = 1,2,3

CADJ SUBROUTINE TIMER_PRINTALL INPUT  = 1
CADJ SUBROUTINE TIMER_PRINTALL OUTPUT =

CADJ SUBROUTINE TIMER_START    INPUT  = 1,2
CADJ SUBROUTINE TIMER_START    OUTPUT =

CADJ SUBROUTINE TIMER_STOP     INPUT  = 1,2
CADJ SUBROUTINE TIMER_STOP     OUTPUT =

CADJ SUBROUTINE PAPIF_flops    INPUT =
CADJ SUBROUTINE PAPIF_flops    OUTPUT = 1,2,3,4,5

CADJ SUBROUTINE PAPIF_flips    INPUT =
CADJ SUBROUTINE PAPIF_flips    OUTPUT = 1,2,3,4,5

CADJ SUBROUTINE PAPIF_ipc      INPUT =
CADJ SUBROUTINE PAPIF_ipc      OUTPUT = 1,2,3,4,5

CADJ FUNCTION   PCLstart       INPUT = 1,2,3,4
CADJ FUNCTION   PCLstart       OUTPUT =

CADJ FUNCTION   PCLstop        INPUT = 1,4
CADJ FUNCTION   PCLstop        OUTPUT = 2,3

CADJ SUBROUTINE DATE  INPUT  = 2
CADJ SUBROUTINE DATE  OUTPUT = 1

CADJ SUBROUTINE LCASE  INPUT  = 1
CADJ SUBROUTINE LCASE  OUTPUT = 1

CADJ SUBROUTINE UCASE  INPUT  = 1
CADJ SUBROUTINE UCASE  OUTPUT = 1

CADJ SUBROUTINE MACHINE  INPUT  =
CADJ SUBROUTINE MACHINE  OUTPUT = 1

CADJ FUNCTION   IFNBLNK  INPUT  = 1
CADJ FUNCTION   IFNBLNK  OUTPUT =

CADJ FUNCTION   ILNBLNK  INPUT  = 1
CADJ FUNCTION   ILNBLNK  OUTPUT =

CADJ FUNCTION   IO_ERRCOUNT  INPUT  = 1
CADJ FUNCTION   IO_ERRCOUNT  OUTPUT =

CADJ SUBROUTINE READ_FIELD_XYZR8  INPUT  = 2,3,4
CADJ SUBROUTINE READ_FIELD_XYZR8  OUTPUT = 1

CADJ SUBROUTINE WRITE_FIELD_XYZR8  INPUT  = 1,2,3,4
CADJ SUBROUTINE WRITE_FIELD_XYZR8  OUTPUT =


CADJ SUBROUTINE PRINT_MESSAGE  INPUT  = 1,2,3,4
CADJ SUBROUTINE PRINT_MESSAGE  OUTPUT =

CADJ SUBROUTINE PRINT_ERROR   INPUT  = 1,2
CADJ SUBROUTINE PRINT_ERROR   OUTPUT =

CADJ SUBROUTINE PRINT_LIST_I  INPUT  = 1,2,3,4,5,6,7
CADJ SUBROUTINE PRINT_LIST_I  OUTPUT =

CADJ SUBROUTINE PRINT_LIST_L  INPUT  = 1,2,3,4,5,6,7
CADJ SUBROUTINE PRINT_LIST_L  OUTPUT =

CADJ SUBROUTINE PRINT_LIST_RL INPUT  = 1,2,3,4,5,6,7
CADJ SUBROUTINE PRINT_LIST_RL OUTPUT =

CADJ SUBROUTINE PRINT_MAPRS INPUT  = 1,2,3,4,5,6,7,8,9,10
CADJ SUBROUTINE PRINT_MAPRS INPUT += 11,12,13,14,15,16,17,18,19,20
CADJ SUBROUTINE PRINT_MAPRS INPUT += 21,22,23,24,25,26
CADJ SUBROUTINE PRINT_MAPRS OUTPUT =

CADJ SUBROUTINE PRINT_MAPRL INPUT  = 1,2,3,4,5,6,7,8,9,10
CADJ SUBROUTINE PRINT_MAPRL INPUT += 11,12,13,14,15,16,17,18,19,20
CADJ SUBROUTINE PRINT_MAPRL INPUT += 21,22,23,24,25,26
CADJ SUBROUTINE PRINT_MAPRL OUTPUT =

CADJ SUBROUTINE NML_FILTER  INPUT  = 1,2,3
CADJ SUBROUTINE NML_FILTER  OUTPUT =

CADJ SUBROUTINE  mdsfindunit   INPUT  =   2
CADJ SUBROUTINE  mdsfindunit   OUTPUT = 1

CADJ SUBROUTINE mds_byteswapr8  INPUT  = 1,2
CADJ SUBROUTINE mds_byteswapr8  OUTPUT = 2

CADJ SUBROUTINE mds_byteswapr4  INPUT  = 1,2
CADJ SUBROUTINE mds_byteswapr4  OUTPUT = 2

CADJ FUNCTION   MASTER_CPU_IO   INPUT  = 1
CADJ FUNCTION   MASTER_CPU_IO   OUTPUT =

CADJ FUNCTION   MASTER_CPU_THREAD  INPUT  = 1
CADJ FUNCTION   MASTER_CPU_THREAD  OUTPUT =

C----------------------------------------
C subroutine  open_copy_data_file
C----------------------------------------
CADJ SUBROUTINE OPEN_COPY_DATA_FILE  INPUT  = 1,2,  4
CADJ SUBROUTINE OPEN_COPY_DATA_FILE  OUTPUT =     3

C-------------------------------------------------------
C-- formerly in pkg/autodiff/write_utils.flow (previously: read_write.flow)

C----------------------------------------
C subroutine  write_1d_i
C----------------------------------------
CADJ SUBROUTINE WRITE_1D_I  INPUT  = 1,2,3,4,5
CADJ SUBROUTINE WRITE_1D_I  OUTPUT =

C----------------------------------------
C subroutine  write_1d_l
C----------------------------------------
CADJ SUBROUTINE WRITE_1D_L  INPUT  = 1,2,3,4,5
CADJ SUBROUTINE WRITE_1D_L  OUTPUT =

C----------------------------------------
C subroutine  write_1d_rl
C----------------------------------------
CADJ SUBROUTINE WRITE_1D_RL INPUT  = 1,2,3,4,5
CADJ SUBROUTINE WRITE_1D_RL OUTPUT =

C----------------------------------------
C subroutine  write_0d_i
C----------------------------------------
CADJ SUBROUTINE WRITE_0D_I INPUT  = 1,2,3,4
CADJ SUBROUTINE WRITE_0D_I OUTPUT =

C----------------------------------------
C subroutine  write_0d_l
C----------------------------------------
CADJ SUBROUTINE WRITE_0D_L INPUT  = 1,2,3,4
CADJ SUBROUTINE WRITE_0D_L OUTPUT =

C----------------------------------------
C subroutine  write_0d_r4
C----------------------------------------
CADJ SUBROUTINE WRITE_0D_R4 INPUT  = 1,2,3,4
CADJ SUBROUTINE WRITE_0D_R4 OUTPUT =

C----------------------------------------
C subroutine  write_0d_r8
C----------------------------------------
CADJ SUBROUTINE WRITE_0D_R8 INPUT  = 1,2,3,4
CADJ SUBROUTINE WRITE_0D_R8 OUTPUT =

C----------------------------------------
C subroutine  write_0d_rs
C----------------------------------------
CADJ SUBROUTINE WRITE_0D_RS INPUT  = 1,2,3,4
CADJ SUBROUTINE WRITE_0D_RS OUTPUT =

C----------------------------------------
C subroutine  write_0d_rl
C----------------------------------------
CADJ SUBROUTINE WRITE_0D_RL INPUT  = 1,2,3,4
CADJ SUBROUTINE WRITE_0D_RL OUTPUT =

C----------------------------------------
C subroutine  write_0d_c
C----------------------------------------
CADJ SUBROUTINE WRITE_0D_C INPUT  = 1,2,3,4,5
CADJ SUBROUTINE WRITE_0D_C OUTPUT =

C----------------------------------------
C subroutine  write_copy1d_r4
C----------------------------------------
CADJ SUBROUTINE WRITE_COPY1D_R4 INPUT  =   2,3,4,5,6
CADJ SUBROUTINE WRITE_COPY1D_R4 OUTPUT = 1

C----------------------------------------
C subroutine  write_copy1d_r8
C----------------------------------------
CADJ SUBROUTINE WRITE_COPY1D_R8 INPUT  =   2,3,4,5,6
CADJ SUBROUTINE WRITE_COPY1D_R8 OUTPUT = 1

C----------------------------------------
C subroutine  write_copy1d_rs
C----------------------------------------
CADJ SUBROUTINE WRITE_COPY1D_RS INPUT  =   2,3,4,5,6
CADJ SUBROUTINE WRITE_COPY1D_RS OUTPUT = 1

C-------------------------------------------------------
1	jmc	1.12	C $Header: /u/gcmpack/MITgcm/eesupp/src/eesupp.flow,v 1.11 2009/04/28 22:00:46 jmc Exp $
2	jmc	1.8	C $Name: $
3
4	heimbach	1.1	C---------------------------------------------------------------
5			C Subroutine barrier is difficult to handle,
6			C it is required but it does not compute values.
7			C TAMC has been extended to handle such routines
8			C REQUIRED means the call will be included for recomputations
9			C INFLUENCED means if also required
10			C the adjoint routine will be called
11			C---------------------------------------------------------------
12			CADJ SUBROUTINE BARRIER INPUT = 1
13			CADJ SUBROUTINE BARRIER OUTPUT =
14			CADJ SUBROUTINE BARRIER REQUIRED
15			CADJ SUBROUTINE BARRIER INFLUENCED
16			CADJ SUBROUTINE BARRIER ADNAME = BARRIER
17			CADJ SUBROUTINE BARRIER FTLNAME = BARRIER
18			CADJ SUBROUTINE BARRIER DEPEND = 1
19
20	heimbach	1.6	CADJ SUBROUTINE FOOL_THE_COMPILER INPUT = 1
21			CADJ SUBROUTINE FOOL_THE_COMPILER OUTPUT =
22			CADJ SUBROUTINE FOOL_THE_COMPILER REQUIRED
23			CADJ SUBROUTINE FOOL_THE_COMPILER INFLUENCED
24			CADJ SUBROUTINE FOOL_THE_COMPILER ADNAME = FOOL_THE_COMPILER
25			CADJ SUBROUTINE FOOL_THE_COMPILER FTLNAME = FOOL_THE_COMPILER
26			CADJ SUBROUTINE FOOL_THE_COMPILER DEPEND = 1
27
28			CADJ SUBROUTINE MEMSYNC INPUT =
29			CADJ SUBROUTINE MEMSYNC OUTPUT =
30			CADJ SUBROUTINE MEMSYNC REQUIRED
31			CADJ SUBROUTINE MEMSYNC INFLUENCED
32			CADJ SUBROUTINE MEMSYNC ADNAME = MEMSYNC
33			CADJ SUBROUTINE MEMSYNC FTLNAME = MEMSYNC
34			CADJ SUBROUTINE MEMSYNC DEPEND =
35
36	heimbach	1.1	CADJ SUBROUTINE BARRIER_INIT INPUT =
37			CADJ SUBROUTINE BARRIER_INIT OUTPUT =
38
39			CADJ SUBROUTINE BAR2 INPUT = 1
40			CADJ SUBROUTINE BAR2 OUTPUT =
41
42			CADJ SUBROUTINE BAR2_INIT INPUT = 1
43			CADJ SUBROUTINE BAR2_INIT OUTPUT =
44
45	ce107	1.4	CADJ SUBROUTINE BAR_CHECK INPUT = 1,2
46			CADJ SUBROUTINE BAR_CHECK OUTPUT =
47
48	heimbach	1.1	CADJ SUBROUTINE CHECK_THREADS INPUT = 1
49			CADJ SUBROUTINE CHECK_THREADS OUTPUT =
50
51			CADJ SUBROUTINE EEDIE INPUT =
52			CADJ SUBROUTINE EEDIE OUTPUT =
53
54
55			CADJ FUNCTION TIMER_INDEX INPUT = 1,2,3,4
56			CADJ FUNCTION TIMER_INDEX OUTPUT =
57
58			CADJ SUBROUTINE TIMER_CONTROL INPUT = 1,2,3,4
59			CADJ SUBROUTINE TIMER_CONTROL OUTPUT =
60
61			CADJ SUBROUTINE TIMER_GET_TIME INPUT =
62			CADJ SUBROUTINE TIMER_GET_TIME OUTPUT = 1,2,3
63
64			CADJ SUBROUTINE TIMER_PRINTALL INPUT = 1
65			CADJ SUBROUTINE TIMER_PRINTALL OUTPUT =
66
67			CADJ SUBROUTINE TIMER_START INPUT = 1,2
68			CADJ SUBROUTINE TIMER_START OUTPUT =
69
70			CADJ SUBROUTINE TIMER_STOP INPUT = 1,2
71			CADJ SUBROUTINE TIMER_STOP OUTPUT =
72
73	ce107	1.3	CADJ SUBROUTINE PAPIF_flops INPUT =
74			CADJ SUBROUTINE PAPIF_flops OUTPUT = 1,2,3,4,5
75	heimbach	1.1
76	ce107	1.7	CADJ SUBROUTINE PAPIF_flips INPUT =
77			CADJ SUBROUTINE PAPIF_flips OUTPUT = 1,2,3,4,5
78
79			CADJ SUBROUTINE PAPIF_ipc INPUT =
80			CADJ SUBROUTINE PAPIF_ipc OUTPUT = 1,2,3,4,5
81
82			CADJ FUNCTION PCLstart INPUT = 1,2,3,4
83			CADJ FUNCTION PCLstart OUTPUT =
84
85			CADJ FUNCTION PCLstop INPUT = 1,4
86			CADJ FUNCTION PCLstop OUTPUT = 2,3
87
88	heimbach	1.1	CADJ SUBROUTINE DATE INPUT = 2
89			CADJ SUBROUTINE DATE OUTPUT = 1
90
91			CADJ SUBROUTINE LCASE INPUT = 1
92			CADJ SUBROUTINE LCASE OUTPUT = 1
93
94			CADJ SUBROUTINE UCASE INPUT = 1
95			CADJ SUBROUTINE UCASE OUTPUT = 1
96
97			CADJ SUBROUTINE MACHINE INPUT =
98			CADJ SUBROUTINE MACHINE OUTPUT = 1
99
100			CADJ FUNCTION IFNBLNK INPUT = 1
101			CADJ FUNCTION IFNBLNK OUTPUT =
102
103			CADJ FUNCTION ILNBLNK INPUT = 1
104			CADJ FUNCTION ILNBLNK OUTPUT =
105
106			CADJ FUNCTION IO_ERRCOUNT INPUT = 1
107			CADJ FUNCTION IO_ERRCOUNT OUTPUT =
108
109			CADJ SUBROUTINE READ_FIELD_XYZR8 INPUT = 2,3,4
110			CADJ SUBROUTINE READ_FIELD_XYZR8 OUTPUT = 1
111
112			CADJ SUBROUTINE WRITE_FIELD_XYZR8 INPUT = 1,2,3,4
113			CADJ SUBROUTINE WRITE_FIELD_XYZR8 OUTPUT =
114
115
116	jmc	1.10	CADJ SUBROUTINE PRINT_MESSAGE INPUT = 1,2,3,4
117			CADJ SUBROUTINE PRINT_MESSAGE OUTPUT =
118
119	heimbach	1.1	CADJ SUBROUTINE PRINT_ERROR INPUT = 1,2
120			CADJ SUBROUTINE PRINT_ERROR OUTPUT =
121
122	jmc	1.10	CADJ SUBROUTINE PRINT_LIST_I INPUT = 1,2,3,4,5,6,7
123	heimbach	1.1	CADJ SUBROUTINE PRINT_LIST_I OUTPUT =
124
125	jmc	1.10	CADJ SUBROUTINE PRINT_LIST_L INPUT = 1,2,3,4,5,6,7
126	heimbach	1.1	CADJ SUBROUTINE PRINT_LIST_L OUTPUT =
127
128	jmc	1.11	CADJ SUBROUTINE PRINT_LIST_RL INPUT = 1,2,3,4,5,6,7
129			CADJ SUBROUTINE PRINT_LIST_RL OUTPUT =
130	heimbach	1.1
131			CADJ SUBROUTINE PRINT_MAPRS INPUT = 1,2,3,4,5,6,7,8,9,10
132			CADJ SUBROUTINE PRINT_MAPRS INPUT += 11,12,13,14,15,16,17,18,19,20
133			CADJ SUBROUTINE PRINT_MAPRS INPUT += 21,22,23,24,25,26
134			CADJ SUBROUTINE PRINT_MAPRS OUTPUT =
135
136			CADJ SUBROUTINE PRINT_MAPRL INPUT = 1,2,3,4,5,6,7,8,9,10
137			CADJ SUBROUTINE PRINT_MAPRL INPUT += 11,12,13,14,15,16,17,18,19,20
138			CADJ SUBROUTINE PRINT_MAPRL INPUT += 21,22,23,24,25,26
139			CADJ SUBROUTINE PRINT_MAPRL OUTPUT =
140
141			CADJ SUBROUTINE NML_FILTER INPUT = 1,2,3
142			CADJ SUBROUTINE NML_FILTER OUTPUT =
143
144	jmc	1.2	CADJ SUBROUTINE mdsfindunit INPUT = 2
145			CADJ SUBROUTINE mdsfindunit OUTPUT = 1
146
147			CADJ SUBROUTINE mds_byteswapr8 INPUT = 1,2
148			CADJ SUBROUTINE mds_byteswapr8 OUTPUT = 2
149
150			CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2
151			CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2
152
153	heimbach	1.5	CADJ FUNCTION MASTER_CPU_IO INPUT = 1
154			CADJ FUNCTION MASTER_CPU_IO OUTPUT =
155	dimitri	1.9
156			CADJ FUNCTION MASTER_CPU_THREAD INPUT = 1
157			CADJ FUNCTION MASTER_CPU_THREAD OUTPUT =
158	jmc	1.12
159			C----------------------------------------
160			C subroutine open_copy_data_file
161			C----------------------------------------
162			CADJ SUBROUTINE OPEN_COPY_DATA_FILE INPUT = 1,2, 4
163			CADJ SUBROUTINE OPEN_COPY_DATA_FILE OUTPUT = 3
164
165			C-------------------------------------------------------
166			C-- formerly in pkg/autodiff/write_utils.flow (previously: read_write.flow)
167
168			C----------------------------------------
169			C subroutine write_1d_i
170			C----------------------------------------
171			CADJ SUBROUTINE WRITE_1D_I INPUT = 1,2,3,4,5
172			CADJ SUBROUTINE WRITE_1D_I OUTPUT =
173
174			C----------------------------------------
175			C subroutine write_1d_l
176			C----------------------------------------
177			CADJ SUBROUTINE WRITE_1D_L INPUT = 1,2,3,4,5
178			CADJ SUBROUTINE WRITE_1D_L OUTPUT =
179
180			C----------------------------------------
181			C subroutine write_1d_rl
182			C----------------------------------------
183			CADJ SUBROUTINE WRITE_1D_RL INPUT = 1,2,3,4,5
184			CADJ SUBROUTINE WRITE_1D_RL OUTPUT =
185
186			C----------------------------------------
187			C subroutine write_0d_i
188			C----------------------------------------
189			CADJ SUBROUTINE WRITE_0D_I INPUT = 1,2,3,4
190			CADJ SUBROUTINE WRITE_0D_I OUTPUT =
191
192			C----------------------------------------
193			C subroutine write_0d_l
194			C----------------------------------------
195			CADJ SUBROUTINE WRITE_0D_L INPUT = 1,2,3,4
196			CADJ SUBROUTINE WRITE_0D_L OUTPUT =
197
198			C----------------------------------------
199			C subroutine write_0d_r4
200			C----------------------------------------
201			CADJ SUBROUTINE WRITE_0D_R4 INPUT = 1,2,3,4
202			CADJ SUBROUTINE WRITE_0D_R4 OUTPUT =
203
204			C----------------------------------------
205			C subroutine write_0d_r8
206			C----------------------------------------
207			CADJ SUBROUTINE WRITE_0D_R8 INPUT = 1,2,3,4
208			CADJ SUBROUTINE WRITE_0D_R8 OUTPUT =
209
210			C----------------------------------------
211			C subroutine write_0d_rs
212			C----------------------------------------
213			CADJ SUBROUTINE WRITE_0D_RS INPUT = 1,2,3,4
214			CADJ SUBROUTINE WRITE_0D_RS OUTPUT =
215
216			C----------------------------------------
217			C subroutine write_0d_rl
218			C----------------------------------------
219			CADJ SUBROUTINE WRITE_0D_RL INPUT = 1,2,3,4
220			CADJ SUBROUTINE WRITE_0D_RL OUTPUT =
221
222			C----------------------------------------
223			C subroutine write_0d_c
224			C----------------------------------------
225			CADJ SUBROUTINE WRITE_0D_C INPUT = 1,2,3,4,5
226			CADJ SUBROUTINE WRITE_0D_C OUTPUT =
227
228			C----------------------------------------
229			C subroutine write_copy1d_r4
230			C----------------------------------------
231			CADJ SUBROUTINE WRITE_COPY1D_R4 INPUT = 2,3,4,5,6
232			CADJ SUBROUTINE WRITE_COPY1D_R4 OUTPUT = 1
233
234			C----------------------------------------
235			C subroutine write_copy1d_r8
236			C----------------------------------------
237			CADJ SUBROUTINE WRITE_COPY1D_R8 INPUT = 2,3,4,5,6
238			CADJ SUBROUTINE WRITE_COPY1D_R8 OUTPUT = 1
239
240			C----------------------------------------
241			C subroutine write_copy1d_rs
242			C----------------------------------------
243			CADJ SUBROUTINE WRITE_COPY1D_RS INPUT = 2,3,4,5,6
244			CADJ SUBROUTINE WRITE_COPY1D_RS OUTPUT = 1
245
246			C-------------------------------------------------------