CBOP C !ROUTINE: flow directives for active_file_control.F C !INTERFACE: C !DESCRIPTION: \bv c ================================================================== c active_file_control.flow c ================================================================== c provides flow directives for routines in active_file_control.F c required by TAMC/TAF c * active_read_rl c * active_write_rl c _tile_ routines are not used nd my not be up-to-date. PH c ================================================================== c active_file_control.flow c ================================================================== C \ev CEOP c---------------------------------------- c subroutine active_read_rl c---------------------------------------- cadj SUBROUTINE active_read_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 cadj SUBROUTINE active_read_rl OUTPUT = 2 c---------------------------------------- c subroutine active_write_rl c---------------------------------------- cadj SUBROUTINE active_write_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8 cadj SUBROUTINE active_write_rl OUTPUT = 2 c---------------------------------------- c subroutine active_read_tile_rl c---------------------------------------- cadj SUBROUTINE active_read_tile_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 cadj SUBROUTINE active_read_tile_rl INPUT += 10, 11 cadj SUBROUTINE active_read_tile_rl OUTPUT = 2 c---------------------------------------- c subroutine active_write_tile_rl c---------------------------------------- cadj SUBROUTINE active_write_tile_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 cadj SUBROUTINE active_write_tile_rl INPUT += 10 cadj SUBROUTINE active_write_tile_rl OUTPUT = 2