pkg/autodiff/mdsio.flow


C----------------------------------------
C subroutine mdsfindunit
C----------------------------------------
CADJ SUBROUTINE  mdsfindunit   INPUT  =   2
CADJ SUBROUTINE  mdsfindunit   OUTPUT = 1

C----------------------------------------
C subroutine mdsreadfield
C----------------------------------------
CADJ SUBROUTINE mdsreadfield  INPUT  = 1,2,3,4,  6,7
CADJ SUBROUTINE mdsreadfield  OUTPUT =         5
CADJ SUBROUTINE mdsreadfield  DEPEND = 1,2,3,4,5,6,7
CADJ SUBROUTINE mdsreadfield  REQUIRED

C----------------------------------------
C subroutine mdswritefield
C----------------------------------------
CADJ SUBROUTINE mdswritefield  INPUT  = 1,2,3,4,5,6,7,8,9
CADJ SUBROUTINE mdswritefield  OUTPUT =

C----------------------------------------
C subroutine mdsreadvector
C----------------------------------------
CADJ SUBROUTINE mdsreadvector  INPUT  = 1,2,3,4,  6,7,8,9
CADJ SUBROUTINE mdsreadvector  OUTPUT =         5

C----------------------------------------
C subroutine mdswritevector
C----------------------------------------
CADJ SUBROUTINE mdswritevector  INPUT  = 1,2,3,4,5,6,7,8,9,10,11
CADJ SUBROUTINE mdswritevector  OUTPUT =

C----------------------------------------
C subroutine mds_byteswapr8
C----------------------------------------
CADJ SUBROUTINE mds_byteswapr8  INPUT  = 1,2
CADJ SUBROUTINE mds_byteswapr8  OUTPUT = 2

C----------------------------------------
C subroutine mds_byteswapr4
C---------------------------------------- 
CADJ SUBROUTINE mds_byteswapr4  INPUT  = 1,2
CADJ SUBROUTINE mds_byteswapr4  OUTPUT = 2

C----------------------------------------
C subroutine mdsreadfieldxz
C----------------------------------------
CADJ SUBROUTINE mdsreadfieldxz  INPUT  = 1,2,3,4,  6,7
CADJ SUBROUTINE mdsreadfieldxz  OUTPUT =         5

C----------------------------------------
C subroutine mdswritefieldxz
C----------------------------------------
CADJ SUBROUTINE mdswritefieldxz  INPUT  = 1,2,3,4,5,6,7,8,9
CADJ SUBROUTINE mdswritefieldxz  OUTPUT =

C----------------------------------------
C subroutine mdsreadfieldyz
C----------------------------------------
CADJ SUBROUTINE mdsreadfieldyz  INPUT  = 1,2,3,4,  6,7
CADJ SUBROUTINE mdsreadfieldyz  OUTPUT =         5

C----------------------------------------
C subroutine mdswritefield
C----------------------------------------
CADJ SUBROUTINE mdswritefieldyz  INPUT  = 1,2,3,4,5,6,7,8,9
CADJ SUBROUTINE mdswritefieldyz  OUTPUT =
1
2	C----------------------------------------
3	C subroutine mdsfindunit
4	C----------------------------------------
5	CADJ SUBROUTINE mdsfindunit INPUT = 2
6	CADJ SUBROUTINE mdsfindunit OUTPUT = 1
7
8	C----------------------------------------
9	C subroutine mdsreadfield
10	C----------------------------------------
11	CADJ SUBROUTINE mdsreadfield INPUT = 1,2,3,4, 6,7
12	CADJ SUBROUTINE mdsreadfield OUTPUT = 5
13	CADJ SUBROUTINE mdsreadfield DEPEND = 1,2,3,4,5,6,7
14	CADJ SUBROUTINE mdsreadfield REQUIRED
15
16	C----------------------------------------
17	C subroutine mdswritefield
18	C----------------------------------------
19	CADJ SUBROUTINE mdswritefield INPUT = 1,2,3,4,5,6,7,8,9
20	CADJ SUBROUTINE mdswritefield OUTPUT =
21
22	C----------------------------------------
23	C subroutine mdsreadvector
24	C----------------------------------------
25	CADJ SUBROUTINE mdsreadvector INPUT = 1,2,3,4, 6,7,8,9
26	CADJ SUBROUTINE mdsreadvector OUTPUT = 5
27
28	C----------------------------------------
29	C subroutine mdswritevector
30	C----------------------------------------
31	CADJ SUBROUTINE mdswritevector INPUT = 1,2,3,4,5,6,7,8,9,10,11
32	CADJ SUBROUTINE mdswritevector OUTPUT =
33
34	C----------------------------------------
35	C subroutine mds_byteswapr8
36	C----------------------------------------
37	CADJ SUBROUTINE mds_byteswapr8 INPUT = 1,2
38	CADJ SUBROUTINE mds_byteswapr8 OUTPUT = 2
39
40	C----------------------------------------
41	C subroutine mds_byteswapr4
42	C----------------------------------------
43	CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2
44	CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2
45
46	C----------------------------------------
47	C subroutine mdsreadfieldxz
48	C----------------------------------------
49	CADJ SUBROUTINE mdsreadfieldxz INPUT = 1,2,3,4, 6,7
50	CADJ SUBROUTINE mdsreadfieldxz OUTPUT = 5
51
52	C----------------------------------------
53	C subroutine mdswritefieldxz
54	C----------------------------------------
55	CADJ SUBROUTINE mdswritefieldxz INPUT = 1,2,3,4,5,6,7,8,9
56	CADJ SUBROUTINE mdswritefieldxz OUTPUT =
57
58	C----------------------------------------
59	C subroutine mdsreadfieldyz
60	C----------------------------------------
61	CADJ SUBROUTINE mdsreadfieldyz INPUT = 1,2,3,4, 6,7
62	CADJ SUBROUTINE mdsreadfieldyz OUTPUT = 5
63
64	C----------------------------------------
65	C subroutine mdswritefield
66	C----------------------------------------
67	CADJ SUBROUTINE mdswritefieldyz INPUT = 1,2,3,4,5,6,7,8,9
68	CADJ SUBROUTINE mdswritefieldyz OUTPUT =