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	heimbach	1.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