Warning, /pkg/autodiff/active_file_control.flow is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit 04904a06 on 2020-05-13 00:42:59 UTC
d151781088 Patr*0001 CBOP
43d177af09 Jean*0002 C !ROUTINE: flow directives for active_file_control[_slice].F
d151781088 Patr*0003 C !INTERFACE:
0004 C !DESCRIPTION: \bv
0005 c ==================================================================
0006 c active_file_control.flow
0007 c ==================================================================
0008 c provides flow directives for routines in active_file_control.F
43d177af09 Jean*0009 c and in active_file_control_slice.F
d151781088 Patr*0010 c required by TAMC/TAF
43d177af09 Jean*0011 c * active_read_3d_rl , active_read_3d_rs
0012 c * active_read_xz_rl , active_read_xz_rs
0013 c * active_read_yz_rl , active_read_yz_rs
0014 c * active_write_3d_rl, active_write_3d_rl
0015 c * active_write_xz_rl, active_write_xz_rl
0016 c * active_write_yz_rl, active_write_yz_rl
d151781088 Patr*0017 c ==================================================================
0018 c active_file_control.flow
0019 c ==================================================================
0020 C \ev
0021 CEOP
0022
2dcaa8b9a5 Patr*0023 c----------------------------------------
43d177af09 Jean*0024 c subroutine active_read_3d_rl
2dcaa8b9a5 Patr*0025 c----------------------------------------
43d177af09 Jean*0026 cadj SUBROUTINE active_read_3d_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
0027 cadj SUBROUTINE active_read_3d_rl OUTPUT = 2
2dcaa8b9a5 Patr*0028
0029 c----------------------------------------
04904a066e Timo*0030 c subroutine active_read_1d_rl
0031 c----------------------------------------
0032 cadj SUBROUTINE active_read_1d_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8
0033 cadj SUBROUTINE active_read_1d_rl OUTPUT = 2
0034
0035 c----------------------------------------
43d177af09 Jean*0036 c subroutine active_read_3d_rs
2dcaa8b9a5 Patr*0037 c----------------------------------------
43d177af09 Jean*0038 cadj SUBROUTINE active_read_3d_rs INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
0039 cadj SUBROUTINE active_read_3d_rs OUTPUT = 2
0040
0041 c----------------------------------------
04904a066e Timo*0042 c subroutine active_read_1d_rs
0043 c----------------------------------------
0044 cadj SUBROUTINE active_read_1d_rs INPUT = 1, 2, 3, 4, 5, 6, 7, 8
0045 cadj SUBROUTINE active_read_1d_rs OUTPUT = 2
0046
0047 c----------------------------------------
43d177af09 Jean*0048 c subroutine active_read_xz_rl
0049 c----------------------------------------
0050 cadj SUBROUTINE active_read_xz_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
0051 cadj SUBROUTINE active_read_xz_rl OUTPUT = 2
0052
0053 c----------------------------------------
0054 c subroutine active_read_xz_rs
0055 c----------------------------------------
0056 cadj SUBROUTINE active_read_xz_rs INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
0057 cadj SUBROUTINE active_read_xz_rs OUTPUT = 2
0058
0059 c----------------------------------------
0060 c subroutine active_read_yz_rl
0061 c----------------------------------------
0062 cadj SUBROUTINE active_read_yz_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
0063 cadj SUBROUTINE active_read_yz_rl OUTPUT = 2
0064
0065 c----------------------------------------
0066 c subroutine active_read_yz_rs
0067 c----------------------------------------
0068 cadj SUBROUTINE active_read_yz_rs INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
0069 cadj SUBROUTINE active_read_yz_rs OUTPUT = 2
0070
0071 c----------------------------------------
0072 c subroutine active_write_3d_rl
0073 c----------------------------------------
0074 cadj SUBROUTINE active_write_3d_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
0075 cadj SUBROUTINE active_write_3d_rl OUTPUT = 2
0076
0077 c----------------------------------------
04904a066e Timo*0078 c subroutine active_write_1d_rl
0079 c----------------------------------------
0080 cadj SUBROUTINE active_write_1d_rl INPUT = 1, 2, 3, 4, 5, 6, 7
0081 cadj SUBROUTINE active_write_1d_rl OUTPUT = 2
0082
0083 c----------------------------------------
43d177af09 Jean*0084 c subroutine active_write_3d_rs
0085 c----------------------------------------
0086 cadj SUBROUTINE active_write_3d_rs INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
0087 cadj SUBROUTINE active_write_3d_rs OUTPUT = 2
0088
0089 c----------------------------------------
04904a066e Timo*0090 c subroutine active_write_1d_rs
0091 c----------------------------------------
0092 cadj SUBROUTINE active_write_1d_rs INPUT = 1, 2, 3, 4, 5, 6, 7
0093 cadj SUBROUTINE active_write_1d_rs OUTPUT = 2
0094
0095 c----------------------------------------
43d177af09 Jean*0096 c subroutine active_write_xz_rl
0097 c----------------------------------------
0098 cadj SUBROUTINE active_write_xz_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
0099 cadj SUBROUTINE active_write_xz_rl OUTPUT = 2
0100
0101 c----------------------------------------
0102 c subroutine active_write_xz_rs
0103 c----------------------------------------
0104 cadj SUBROUTINE active_write_xz_rs INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
0105 cadj SUBROUTINE active_write_xz_rs OUTPUT = 2
0106
0107 c----------------------------------------
0108 c subroutine active_write_yz_rl
0109 c----------------------------------------
0110 cadj SUBROUTINE active_write_yz_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
0111 cadj SUBROUTINE active_write_yz_rl OUTPUT = 2
0112
0113 c----------------------------------------
0114 c subroutine active_write_yz_rs
0115 c----------------------------------------
0116 cadj SUBROUTINE active_write_yz_rs INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
0117 cadj SUBROUTINE active_write_yz_rs OUTPUT = 2
0118