1 |
|
2 |
CBOP |
3 |
C !ROUTINE: flow directives for active_file_control.F |
4 |
C !INTERFACE: |
5 |
C !DESCRIPTION: \bv |
6 |
c ================================================================== |
7 |
c active_file_control.flow |
8 |
c ================================================================== |
9 |
c provides flow directives for routines in active_file_control.F |
10 |
c required by TAMC/TAF |
11 |
c * active_read_rl |
12 |
c * active_write_rl |
13 |
c _tile_ routines are not used nd my not be up-to-date. PH |
14 |
c ================================================================== |
15 |
c active_file_control.flow |
16 |
c ================================================================== |
17 |
C \ev |
18 |
CEOP |
19 |
|
20 |
c---------------------------------------- |
21 |
c subroutine active_read_rl |
22 |
c---------------------------------------- |
23 |
cadj SUBROUTINE active_read_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 |
24 |
cadj SUBROUTINE active_read_rl OUTPUT = 2 |
25 |
|
26 |
c---------------------------------------- |
27 |
c subroutine active_write_rl |
28 |
c---------------------------------------- |
29 |
cadj SUBROUTINE active_write_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8 |
30 |
cadj SUBROUTINE active_write_rl OUTPUT = 2 |
31 |
|
32 |
c---------------------------------------- |
33 |
c subroutine active_read_tile_rl |
34 |
c---------------------------------------- |
35 |
cadj SUBROUTINE active_read_tile_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 |
36 |
cadj SUBROUTINE active_read_tile_rl INPUT += 10, 11 |
37 |
cadj SUBROUTINE active_read_tile_rl OUTPUT = 2 |
38 |
|
39 |
c---------------------------------------- |
40 |
c subroutine active_write_tile_rl |
41 |
c---------------------------------------- |
42 |
cadj SUBROUTINE active_write_tile_rl INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 |
43 |
cadj SUBROUTINE active_write_tile_rl INPUT += 10 |
44 |
cadj SUBROUTINE active_write_tile_rl OUTPUT = 2 |