40 |
C---------------------------------------- |
C---------------------------------------- |
41 |
CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2 |
CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2 |
42 |
CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2 |
CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2 |
43 |
|
|
44 |
|
C---------------------------------------- |
45 |
|
C subroutine mdsreadfieldxz |
46 |
|
C---------------------------------------- |
47 |
|
CADJ SUBROUTINE mdsreadfieldxz INPUT = 1,2,3,4, 6,7 |
48 |
|
CADJ SUBROUTINE mdsreadfieldxz OUTPUT = 5 |
49 |
|
|
50 |
|
C---------------------------------------- |
51 |
|
C subroutine mdswritefieldxz |
52 |
|
C---------------------------------------- |
53 |
|
CADJ SUBROUTINE mdswritefieldxz INPUT = 1,2,3,4,5,6,7,8,9 |
54 |
|
CADJ SUBROUTINE mdswritefieldxz OUTPUT = |
55 |
|
|
56 |
|
C---------------------------------------- |
57 |
|
C subroutine mdsreadfieldyz |
58 |
|
C---------------------------------------- |
59 |
|
CADJ SUBROUTINE mdsreadfieldyz INPUT = 1,2,3,4, 6,7 |
60 |
|
CADJ SUBROUTINE mdsreadfieldyz OUTPUT = 5 |
61 |
|
|
62 |
|
C---------------------------------------- |
63 |
|
C subroutine mdswritefield |
64 |
|
C---------------------------------------- |
65 |
|
CADJ SUBROUTINE mdswritefieldyz INPUT = 1,2,3,4,5,6,7,8,9 |
66 |
|
CADJ SUBROUTINE mdswritefieldyz OUTPUT = |
67 |
|
|