Warning, /pkg/mdsio/mdsio_ad.flow is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit 57622776 on 2023-08-02 18:02:22 UTC
b500ef9059 Patr*0001 C----------------------------------------
c0c8c1b5a1 Jean*0002 C subroutine mds_read_field
0003 C----------------------------------------
57622776fd Jean*0004 CADJ SUBROUTINE MDS_READ_FIELD INPUT = 1,2,3,4,5,6,7, 10,11
0005 CADJ SUBROUTINE MDS_READ_FIELD OUTPUT = 8,9
0006 CADJ SUBROUTINE MDS_READ_FIELD DEPEND = 1,2,3,4,5,6,7,8,9,10,11
0007 CADJ SUBROUTINE MDS_READ_FIELD REQUIRED
c0c8c1b5a1 Jean*0008
0009 C----------------------------------------
0010 C subroutine mds_write_field
0011 C----------------------------------------
57622776fd Jean*0012 CADJ SUBROUTINE MDS_WRITE_FIELD INPUT = 1,2,3,4,5,6,7,8,9,10,11,12,13
0013 CADJ SUBROUTINE MDS_WRITE_FIELD OUTPUT =
c0c8c1b5a1 Jean*0014
0015 C----------------------------------------
a6a4ee9dd2 Jean*0016 C subroutine mds_read_rec_xz
0017 C----------------------------------------
0b2a705d2c Patr*0018 cCADJ SUBROUTINE mds_read_rec_xz INPUT = 1,2,3,4,5, 8,9
0019 cCADJ SUBROUTINE mds_read_rec_xz OUTPUT = 6,7
0020 cCADJ SUBROUTINE mds_read_rec_xz DEPEND = 1,2,3,4,5,6,7,8,9
0021 cCADJ SUBROUTINE mds_read_rec_xz REQUIRED
a6a4ee9dd2 Jean*0022
0023 C----------------------------------------
0024 C subroutine mds_read_rec_yz
0025 C----------------------------------------
0b2a705d2c Patr*0026 cCADJ SUBROUTINE mds_read_rec_yz INPUT = 1,2,3,4,5, 8,9
0027 cCADJ SUBROUTINE mds_read_rec_yz OUTPUT = 6,7
0028 cCADJ SUBROUTINE mds_read_rec_yz DEPEND = 1,2,3,4,5,6,7,8,9
0029 cCADJ SUBROUTINE mds_read_rec_yz REQUIRED
0030
0031 C----------------------------------------
0032 C subroutine mds_read_sec_xz
0033 C----------------------------------------
57622776fd Jean*0034 CADJ SUBROUTINE MDS_READ_SEC_XZ INPUT = 1,2,3,4,5,6,7, 10,11
0035 CADJ SUBROUTINE MDS_READ_SEC_XZ OUTPUT = 8,9
0036 CADJ SUBROUTINE MDS_READ_SEC_XZ DEPEND = 1,2,3,4,5,6,7,8,9,10,11
0037 CADJ SUBROUTINE MDS_READ_SEC_XZ REQUIRED
0b2a705d2c Patr*0038
0039 C----------------------------------------
0040 C subroutine mds_read_sec_yz
0041 C----------------------------------------
57622776fd Jean*0042 CADJ SUBROUTINE MDS_READ_SEC_YZ INPUT = 1,2,3,4,5,6,7, 10,11
0043 CADJ SUBROUTINE MDS_READ_SEC_YZ OUTPUT = 8,9
0044 CADJ SUBROUTINE MDS_READ_SEC_YZ DEPEND = 1,2,3,4,5,6,7,8,9,10,11
0045 CADJ SUBROUTINE MDS_READ_SEC_YZ REQUIRED
a6a4ee9dd2 Jean*0046
0047 C----------------------------------------
0048 C subroutine mds_write_sec_xz
0049 C----------------------------------------
57622776fd Jean*0050 CADJ SUBROUTINE MDS_WRITE_SEC_XZ INPUT = 1,2,3,4,5,6,7,8,9,10,11,12,13
0051 CADJ SUBROUTINE MDS_WRITE_SEC_XZ OUTPUT =
a6a4ee9dd2 Jean*0052
0053 C----------------------------------------
0054 C subroutine mds_write_sec_yz
0055 C----------------------------------------
57622776fd Jean*0056 CADJ SUBROUTINE MDS_WRITE_SEC_YZ INPUT = 1,2,3,4,5,6,7,8,9,10,11,12,13
0057 CADJ SUBROUTINE MDS_WRITE_SEC_YZ OUTPUT =
a6a4ee9dd2 Jean*0058
0059 C----------------------------------------
b500ef9059 Patr*0060 C subroutine mdsreadfield
0061 C----------------------------------------
0062 CADJ SUBROUTINE mdsreadfield INPUT = 1,2,3,4, 6,7
0063 CADJ SUBROUTINE mdsreadfield OUTPUT = 5
0064 CADJ SUBROUTINE mdsreadfield DEPEND = 1,2,3,4,5,6,7
0065 CADJ SUBROUTINE mdsreadfield REQUIRED
0066
0067 C----------------------------------------
0068 C subroutine mdswritefield
0069 C----------------------------------------
0070 CADJ SUBROUTINE mdswritefield INPUT = 1,2,3,4,5,6,7,8,9
0071 CADJ SUBROUTINE mdswritefield OUTPUT =
0072
0073 C----------------------------------------
0074 C subroutine mdsreadfieldxz
0075 C----------------------------------------
0076 CADJ SUBROUTINE mdsreadfieldxz INPUT = 1,2,3,4, 6,7
0077 CADJ SUBROUTINE mdsreadfieldxz OUTPUT = 5
0078
0079 C----------------------------------------
0080 C subroutine mdswritefieldxz
0081 C----------------------------------------
0082 CADJ SUBROUTINE mdswritefieldxz INPUT = 1,2,3,4,5,6,7,8,9
0083 CADJ SUBROUTINE mdswritefieldxz OUTPUT =
0084
0085 C----------------------------------------
0086 C subroutine mdsreadfieldyz
0087 C----------------------------------------
0088 CADJ SUBROUTINE mdsreadfieldyz INPUT = 1,2,3,4, 6,7
0089 CADJ SUBROUTINE mdsreadfieldyz OUTPUT = 5
0090
0091 C----------------------------------------
0092 C subroutine mdswritefieldyz
0093 C----------------------------------------
0094 CADJ SUBROUTINE mdswritefieldyz INPUT = 1,2,3,4,5,6,7,8,9
0095 CADJ SUBROUTINE mdswritefieldyz OUTPUT =
0096
0097 C----------------------------------------
0098 C subroutine mdsreadfield_loc
0099 C----------------------------------------
0100 CADJ SUBROUTINE mdsreadfield_loc INPUT = 1,2,3,4, 6,7
0101 CADJ SUBROUTINE mdsreadfield_loc OUTPUT = 5
0102 CADJ SUBROUTINE mdsreadfield_loc DEPEND = 1,2,3,4,5,6,7
0103 CADJ SUBROUTINE mdsreadfield_loc REQUIRED
0104
0105 C----------------------------------------
0106 C subroutine mdswritefield_loc
0107 C----------------------------------------
0108 CADJ SUBROUTINE mdswritefield_loc INPUT = 1,2,3,4,5,6,7,8,9
0109 CADJ SUBROUTINE mdswritefield_loc OUTPUT =
0110
0111 C----------------------------------------
0112 C subroutine mdsreadfieldxz_loc
0113 C----------------------------------------
0114 CADJ SUBROUTINE mdsreadfieldxz_loc INPUT = 1,2,3,4, 6,7
0115 CADJ SUBROUTINE mdsreadfieldxz_loc OUTPUT = 5
0116
0117 C----------------------------------------
0118 C subroutine mdswritefieldxz_loc
0119 C----------------------------------------
0120 CADJ SUBROUTINE mdswritefieldxz_loc INPUT = 1,2,3,4,5,6,7,8,9
0121 CADJ SUBROUTINE mdswritefieldxz_loc OUTPUT =
0122
0123 C----------------------------------------
0124 C subroutine mdsreadfieldyz_loc
0125 C----------------------------------------
0126 CADJ SUBROUTINE mdsreadfieldyz_loc INPUT = 1,2,3,4, 6,7
0127 CADJ SUBROUTINE mdsreadfieldyz_loc OUTPUT = 5
0128
0129 C----------------------------------------
0130 C subroutine mdswritefieldyz_loc
0131 C----------------------------------------
0132 CADJ SUBROUTINE mdswritefieldyz_loc INPUT = 1,2,3,4,5,6,7,8,9
0133 CADJ SUBROUTINE mdswritefieldyz_loc OUTPUT =
900c4980af Patr*0134
0135 C----------------------------------------
346df86721 Gael*0136 C subroutine mds_readvec_loc
0137 C----------------------------------------
0138 CADJ SUBROUTINE mds_readvec_loc INPUT = 1,2,3,4,5, 8,9,10,11
0139 CADJ SUBROUTINE mds_readvec_loc OUTPUT = 6,7
0140 CADJ SUBROUTINE mds_readvec_loc DEPEND = 1,2,3,4,5,6,7,8,9,10,11
0141 CADJ SUBROUTINE mds_readvec_loc REQUIRED
0142
0143 C----------------------------------------
900c4980af Patr*0144 C subroutine MDS_FACEF_READ_RS
0145 C----------------------------------------
0146 CADJ SUBROUTINE MDS_FACEF_READ_RS INPUT = 1,2,3,4,5,6,7
0147 CADJ SUBROUTINE MDS_FACEF_READ_RS OUTPUT = 4
ee93a407bc Patr*0148
0149 C----------------------------------------
0150 C subroutine MDS_CHECK4FILE
0151 C----------------------------------------
0152 CADJ SUBROUTINE MDS_CHECK4FILE INPUT = 1,2,3, 6,7
0153 CADJ SUBROUTINE MDS_CHECK4FILE OUTPUT = 4,5
0154