12 |
c required by TAMC/TAF |
c required by TAMC/TAF |
13 |
c * active_read_rl |
c * active_read_rl |
14 |
c * active_write_rl |
c * active_write_rl |
|
c _tile_ routines are not used nd my not be up-to-date. PH |
|
15 |
c ================================================================== |
c ================================================================== |
16 |
c active_file_control.flow |
c active_file_control.flow |
17 |
c ================================================================== |
c ================================================================== |
29 |
c---------------------------------------- |
c---------------------------------------- |
30 |
cadj SUBROUTINE active_write_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8 |
cadj SUBROUTINE active_write_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8 |
31 |
cadj SUBROUTINE active_write_rl OUTPUT = 2 |
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 |
|
|
|
|