1 |
heimbach |
1.2 |
|
2 |
|
|
CBOP |
3 |
|
|
C !ROUTINE: flow directives for active_file_loc_control_slice.F |
4 |
|
|
C !INTERFACE: |
5 |
|
|
C !DESCRIPTION: \bv |
6 |
|
|
c ================================================================== |
7 |
|
|
c active_file_loc_control_slice.flow |
8 |
|
|
c ================================================================== |
9 |
|
|
c provides flow directives for routines in active_file_loc_control.F |
10 |
|
|
c required by TAMC/TAF |
11 |
|
|
c * active_read_xz_rl_loc |
12 |
|
|
c * active_read_yz_rl_loc |
13 |
|
|
c * active_write_xz_rl_loc |
14 |
|
|
c * active_write_yz_rl_loc |
15 |
|
|
c ================================================================== |
16 |
|
|
c active_file_loc_control_slice.flow |
17 |
|
|
c ================================================================== |
18 |
|
|
C \ev |
19 |
|
|
CEOP |
20 |
|
|
|
21 |
|
|
c---------------------------------------- |
22 |
|
|
c subroutine active_read_xz_rl_loc |
23 |
|
|
c---------------------------------------- |
24 |
|
|
cadj SUBROUTINE active_read_xz_rl_loc INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 |
25 |
|
|
cadj SUBROUTINE active_read_xz_rl_loc OUTPUT = 2 |
26 |
|
|
|
27 |
|
|
c---------------------------------------- |
28 |
|
|
c subroutine active_write_xz_rl_loc |
29 |
|
|
c---------------------------------------- |
30 |
|
|
cadj SUBROUTINE active_write_xz_rl_loc INPUT = 1, 2, 3, 4, 5, 6, 7, 8 |
31 |
|
|
cadj SUBROUTINE active_write_xz_rl_loc OUTPUT = 2 |
32 |
|
|
|
33 |
|
|
c---------------------------------------- |
34 |
|
|
c subroutine active_read_yz_rl_loc |
35 |
|
|
c---------------------------------------- |
36 |
|
|
cadj SUBROUTINE active_read_yz_rl_loc INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 |
37 |
|
|
cadj SUBROUTINE active_read_yz_rl_loc OUTPUT = 2 |
38 |
|
|
|
39 |
|
|
c---------------------------------------- |
40 |
|
|
c subroutine active_write_yz_rl_loc |
41 |
|
|
c---------------------------------------- |
42 |
|
|
cadj SUBROUTINE active_write_yz_rl_loc INPUT = 1, 2, 3, 4, 5, 6, 7, 8 |
43 |
|
|
cadj SUBROUTINE active_write_yz_rl_loc OUTPUT = 2 |