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

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
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
14	C----------------------------------------
15	C subroutine mdswritefield
16	C----------------------------------------
17	CADJ SUBROUTINE mdswritefield INPUT = 1,2,3,4,5,6,7,8,9
18	CADJ SUBROUTINE mdswritefield OUTPUT =
19
20	C----------------------------------------
21	C subroutine mdsreadvector
22	C----------------------------------------
23	CADJ SUBROUTINE mdsreadvector INPUT = 1,2,3,4, 6,7,8,9
24	CADJ SUBROUTINE mdsreadvector OUTPUT = 5
25
26	C----------------------------------------
27	C subroutine mdswritevector
28	C----------------------------------------
29	CADJ SUBROUTINE mdswritevector INPUT = 1,2,3,4,5,6,7,8,9,10,11
30	CADJ SUBROUTINE mdswritevector OUTPUT =
31
32	C----------------------------------------
33	C subroutine mds_byteswapr8
34	C----------------------------------------
35	CADJ SUBROUTINE mds_byteswapr8 INPUT = 1,2
36	CADJ SUBROUTINE mds_byteswapr8 OUTPUT = 2
37
38	C----------------------------------------
39	C subroutine mds_byteswapr4
40	C----------------------------------------
41	CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2
42	CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2