Warning, /eesupp/src/eesupp.flow is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
b500ef9059 Patr*0001 C---------------------------------------------------------------
0002 C Subroutine barrier is difficult to handle,
0003 C it is required but it does not compute values.
0004 C TAMC has been extended to handle such routines
0005 C REQUIRED means the call will be included for recomputations
0006 C INFLUENCED means if also required
0007 C the adjoint routine will be called
0008 C---------------------------------------------------------------
0009 CADJ SUBROUTINE BARRIER INPUT = 1
0010 CADJ SUBROUTINE BARRIER OUTPUT =
0011 CADJ SUBROUTINE BARRIER REQUIRED
0012 CADJ SUBROUTINE BARRIER INFLUENCED
0013 CADJ SUBROUTINE BARRIER ADNAME = BARRIER
0014 CADJ SUBROUTINE BARRIER FTLNAME = BARRIER
0015 CADJ SUBROUTINE BARRIER DEPEND = 1
0016
dc105a689c Patr*0017 CADJ SUBROUTINE FOOL_THE_COMPILER INPUT = 1
0018 CADJ SUBROUTINE FOOL_THE_COMPILER OUTPUT =
0019 CADJ SUBROUTINE FOOL_THE_COMPILER REQUIRED
0020 CADJ SUBROUTINE FOOL_THE_COMPILER INFLUENCED
0021 CADJ SUBROUTINE FOOL_THE_COMPILER ADNAME = FOOL_THE_COMPILER
0022 CADJ SUBROUTINE FOOL_THE_COMPILER FTLNAME = FOOL_THE_COMPILER
0023 CADJ SUBROUTINE FOOL_THE_COMPILER DEPEND = 1
0024
9bebb98359 Jean*0025 CADJ SUBROUTINE FOOL_THE_COMPILER_RL INPUT = 1
0026 CADJ SUBROUTINE FOOL_THE_COMPILER_RL OUTPUT =
0027 CADJ SUBROUTINE FOOL_THE_COMPILER_RL REQUIRED
0028 CADJ SUBROUTINE FOOL_THE_COMPILER_RL INFLUENCED
0029 CADJ SUBROUTINE FOOL_THE_COMPILER_RL ADNAME = FOOL_THE_COMPILER_RL
0030 CADJ SUBROUTINE FOOL_THE_COMPILER_RL FTLNAME = FOOL_THE_COMPILER_RL
0031 CADJ SUBROUTINE FOOL_THE_COMPILER_RL DEPEND = 1
0032
dc105a689c Patr*0033 CADJ SUBROUTINE MEMSYNC INPUT =
0034 CADJ SUBROUTINE MEMSYNC OUTPUT =
0035 CADJ SUBROUTINE MEMSYNC REQUIRED
0036 CADJ SUBROUTINE MEMSYNC INFLUENCED
0037 CADJ SUBROUTINE MEMSYNC ADNAME = MEMSYNC
0038 CADJ SUBROUTINE MEMSYNC FTLNAME = MEMSYNC
0039 CADJ SUBROUTINE MEMSYNC DEPEND =
0040
b500ef9059 Patr*0041 CADJ SUBROUTINE BARRIER_INIT INPUT =
0042 CADJ SUBROUTINE BARRIER_INIT OUTPUT =
0043
0044 CADJ SUBROUTINE BAR2 INPUT = 1
0045 CADJ SUBROUTINE BAR2 OUTPUT =
0046
0047 CADJ SUBROUTINE BAR2_INIT INPUT = 1
0048 CADJ SUBROUTINE BAR2_INIT OUTPUT =
0049
c95228fc8e Cons*0050 CADJ SUBROUTINE BAR_CHECK INPUT = 1,2
9bebb98359 Jean*0051 CADJ SUBROUTINE BAR_CHECK OUTPUT =
c95228fc8e Cons*0052
b500ef9059 Patr*0053 CADJ SUBROUTINE CHECK_THREADS INPUT = 1
9bebb98359 Jean*0054 CADJ SUBROUTINE CHECK_THREADS OUTPUT =
b500ef9059 Patr*0055
0056 CADJ SUBROUTINE EEDIE INPUT =
0057 CADJ SUBROUTINE EEDIE OUTPUT =
0058
618f34e4a1 Jean*0059 CADJ SUBROUTINE ALL_PROC_DIE INPUT = 1
0060 CADJ SUBROUTINE ALL_PROC_DIE OUTPUT =
0061
b500ef9059 Patr*0062 CADJ FUNCTION TIMER_INDEX INPUT = 1,2,3,4
0063 CADJ FUNCTION TIMER_INDEX OUTPUT =
0064
0065 CADJ SUBROUTINE TIMER_CONTROL INPUT = 1,2,3,4
0066 CADJ SUBROUTINE TIMER_CONTROL OUTPUT =
0067
0068 CADJ SUBROUTINE TIMER_GET_TIME INPUT =
0069 CADJ SUBROUTINE TIMER_GET_TIME OUTPUT = 1,2,3
0070
0071 CADJ SUBROUTINE TIMER_PRINTALL INPUT = 1
0072 CADJ SUBROUTINE TIMER_PRINTALL OUTPUT =
0073
0074 CADJ SUBROUTINE TIMER_START INPUT = 1,2
0075 CADJ SUBROUTINE TIMER_START OUTPUT =
0076
0077 CADJ SUBROUTINE TIMER_STOP INPUT = 1,2
0078 CADJ SUBROUTINE TIMER_STOP OUTPUT =
0079
ce86d9b87b Cons*0080 CADJ SUBROUTINE PAPIF_flops INPUT =
0081 CADJ SUBROUTINE PAPIF_flops OUTPUT = 1,2,3,4,5
b500ef9059 Patr*0082
c9702f1934 Cons*0083 CADJ SUBROUTINE PAPIF_flips INPUT =
0084 CADJ SUBROUTINE PAPIF_flips OUTPUT = 1,2,3,4,5
0085
0086 CADJ SUBROUTINE PAPIF_ipc INPUT =
0087 CADJ SUBROUTINE PAPIF_ipc OUTPUT = 1,2,3,4,5
0088
0089 CADJ FUNCTION PCLstart INPUT = 1,2,3,4
0090 CADJ FUNCTION PCLstart OUTPUT =
0091
0092 CADJ FUNCTION PCLstop INPUT = 1,4
0093 CADJ FUNCTION PCLstop OUTPUT = 2,3
0094
b500ef9059 Patr*0095 CADJ SUBROUTINE DATE INPUT = 2
0096 CADJ SUBROUTINE DATE OUTPUT = 1
0097
0098 CADJ SUBROUTINE LCASE INPUT = 1
0099 CADJ SUBROUTINE LCASE OUTPUT = 1
0100
0101 CADJ SUBROUTINE UCASE INPUT = 1
0102 CADJ SUBROUTINE UCASE OUTPUT = 1
0103
0104 CADJ SUBROUTINE MACHINE INPUT =
0105 CADJ SUBROUTINE MACHINE OUTPUT = 1
0106
0107 CADJ FUNCTION IFNBLNK INPUT = 1
0108 CADJ FUNCTION IFNBLNK OUTPUT =
0109
0110 CADJ FUNCTION ILNBLNK INPUT = 1
0111 CADJ FUNCTION ILNBLNK OUTPUT =
0112
0113 CADJ FUNCTION IO_ERRCOUNT INPUT = 1
0114 CADJ FUNCTION IO_ERRCOUNT OUTPUT =
0115
0116 CADJ SUBROUTINE READ_FIELD_XYZR8 INPUT = 2,3,4
0117 CADJ SUBROUTINE READ_FIELD_XYZR8 OUTPUT = 1
0118
0119 CADJ SUBROUTINE WRITE_FIELD_XYZR8 INPUT = 1,2,3,4
0120 CADJ SUBROUTINE WRITE_FIELD_XYZR8 OUTPUT =
0121
8689736b2d Jean*0122 CADJ SUBROUTINE PRINT_MESSAGE INPUT = 1,2,3,4
0123 CADJ SUBROUTINE PRINT_MESSAGE OUTPUT =
0124
b500ef9059 Patr*0125 CADJ SUBROUTINE PRINT_ERROR INPUT = 1,2
0126 CADJ SUBROUTINE PRINT_ERROR OUTPUT =
0127
8689736b2d Jean*0128 CADJ SUBROUTINE PRINT_LIST_I INPUT = 1,2,3,4,5,6,7
b500ef9059 Patr*0129 CADJ SUBROUTINE PRINT_LIST_I OUTPUT =
0130
8689736b2d Jean*0131 CADJ SUBROUTINE PRINT_LIST_L INPUT = 1,2,3,4,5,6,7
b500ef9059 Patr*0132 CADJ SUBROUTINE PRINT_LIST_L OUTPUT =
0133
80e7a759fb Jean*0134 CADJ SUBROUTINE PRINT_LIST_RL INPUT = 1,2,3,4,5,6,7
0135 CADJ SUBROUTINE PRINT_LIST_RL OUTPUT =
b500ef9059 Patr*0136
0137 CADJ SUBROUTINE PRINT_MAPRS INPUT = 1,2,3,4,5,6,7,8,9,10
0138 CADJ SUBROUTINE PRINT_MAPRS INPUT += 11,12,13,14,15,16,17,18,19,20
0139 CADJ SUBROUTINE PRINT_MAPRS INPUT += 21,22,23,24,25,26
0140 CADJ SUBROUTINE PRINT_MAPRS OUTPUT =
0141
0142 CADJ SUBROUTINE PRINT_MAPRL INPUT = 1,2,3,4,5,6,7,8,9,10
0143 CADJ SUBROUTINE PRINT_MAPRL INPUT += 11,12,13,14,15,16,17,18,19,20
0144 CADJ SUBROUTINE PRINT_MAPRL INPUT += 21,22,23,24,25,26
0145 CADJ SUBROUTINE PRINT_MAPRL OUTPUT =
0146
d7dd491794 Jean*0147 CADJ SUBROUTINE mdsfindunit INPUT = 2
0148 CADJ SUBROUTINE mdsfindunit OUTPUT = 1
0149
0150 CADJ SUBROUTINE mds_byteswapr8 INPUT = 1,2
0151 CADJ SUBROUTINE mds_byteswapr8 OUTPUT = 2
0152
0153 CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2
0154 CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2
0155
1eaabb714b Patr*0156 CADJ FUNCTION MASTER_CPU_IO INPUT = 1
0157 CADJ FUNCTION MASTER_CPU_IO OUTPUT =
8716d94355 Dimi*0158
0159 CADJ FUNCTION MASTER_CPU_THREAD INPUT = 1
0160 CADJ FUNCTION MASTER_CPU_THREAD OUTPUT =
d88fee08e0 Jean*0161
0162 C----------------------------------------
0163 C subroutine open_copy_data_file
0164 C----------------------------------------
0165 CADJ SUBROUTINE OPEN_COPY_DATA_FILE INPUT = 1,2, 4
0166 CADJ SUBROUTINE OPEN_COPY_DATA_FILE OUTPUT = 3
0167
0168 C-------------------------------------------------------
0169 C-- formerly in pkg/autodiff/write_utils.flow (previously: read_write.flow)
0170
0171 C----------------------------------------
0172 C subroutine write_1d_i
0173 C----------------------------------------
0174 CADJ SUBROUTINE WRITE_1D_I INPUT = 1,2,3,4,5
0175 CADJ SUBROUTINE WRITE_1D_I OUTPUT =
0176
0177 C----------------------------------------
0178 C subroutine write_1d_l
0179 C----------------------------------------
0180 CADJ SUBROUTINE WRITE_1D_L INPUT = 1,2,3,4,5
0181 CADJ SUBROUTINE WRITE_1D_L OUTPUT =
0182
0183 C----------------------------------------
0184 C subroutine write_1d_rl
0185 C----------------------------------------
0186 CADJ SUBROUTINE WRITE_1D_RL INPUT = 1,2,3,4,5
0187 CADJ SUBROUTINE WRITE_1D_RL OUTPUT =
0188
0189 C----------------------------------------
0190 C subroutine write_0d_i
0191 C----------------------------------------
0192 CADJ SUBROUTINE WRITE_0D_I INPUT = 1,2,3,4
0193 CADJ SUBROUTINE WRITE_0D_I OUTPUT =
0194
0195 C----------------------------------------
0196 C subroutine write_0d_l
0197 C----------------------------------------
0198 CADJ SUBROUTINE WRITE_0D_L INPUT = 1,2,3,4
0199 CADJ SUBROUTINE WRITE_0D_L OUTPUT =
0200
0201 C----------------------------------------
0202 C subroutine write_0d_r4
0203 C----------------------------------------
0204 CADJ SUBROUTINE WRITE_0D_R4 INPUT = 1,2,3,4
0205 CADJ SUBROUTINE WRITE_0D_R4 OUTPUT =
0206
0207 C----------------------------------------
0208 C subroutine write_0d_r8
0209 C----------------------------------------
0210 CADJ SUBROUTINE WRITE_0D_R8 INPUT = 1,2,3,4
0211 CADJ SUBROUTINE WRITE_0D_R8 OUTPUT =
0212
0213 C----------------------------------------
0214 C subroutine write_0d_rs
0215 C----------------------------------------
0216 CADJ SUBROUTINE WRITE_0D_RS INPUT = 1,2,3,4
0217 CADJ SUBROUTINE WRITE_0D_RS OUTPUT =
0218
0219 C----------------------------------------
0220 C subroutine write_0d_rl
0221 C----------------------------------------
0222 CADJ SUBROUTINE WRITE_0D_RL INPUT = 1,2,3,4
0223 CADJ SUBROUTINE WRITE_0D_RL OUTPUT =
0224
0225 C----------------------------------------
0226 C subroutine write_0d_c
0227 C----------------------------------------
0228 CADJ SUBROUTINE WRITE_0D_C INPUT = 1,2,3,4,5
0229 CADJ SUBROUTINE WRITE_0D_C OUTPUT =
0230
0231 C----------------------------------------
0232 C subroutine write_copy1d_r4
0233 C----------------------------------------
0234 CADJ SUBROUTINE WRITE_COPY1D_R4 INPUT = 2,3,4,5,6
0235 CADJ SUBROUTINE WRITE_COPY1D_R4 OUTPUT = 1
0236
0237 C----------------------------------------
0238 C subroutine write_copy1d_r8
0239 C----------------------------------------
0240 CADJ SUBROUTINE WRITE_COPY1D_R8 INPUT = 2,3,4,5,6
0241 CADJ SUBROUTINE WRITE_COPY1D_R8 OUTPUT = 1
0242
0243 C----------------------------------------
0244 C subroutine write_copy1d_rs
0245 C----------------------------------------
0246 CADJ SUBROUTINE WRITE_COPY1D_RS INPUT = 2,3,4,5,6
0247 CADJ SUBROUTINE WRITE_COPY1D_RS OUTPUT = 1
0248
0249 C-------------------------------------------------------