1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
CBOP |
5 |
C !ROUTINE: flow directives for active_file.F |
6 |
C !INTERFACE: |
7 |
C !DESCRIPTION: \bv |
8 |
c ================================================================== |
9 |
c active_file.flow |
10 |
c ================================================================== |
11 |
c provides flow directives for routines in active_file.F |
12 |
c required by TAMC/TAF |
13 |
c * active_read_xy |
14 |
c * active_read_xyz |
15 |
c * active_read_xz |
16 |
c * active_read_yz |
17 |
c * active_write_xy |
18 |
c * active_write_xyz |
19 |
c * active_write_xz |
20 |
c * active_write_yz |
21 |
c _tile_ routines are not used nd my not be up-to-date. PH |
22 |
c ================================================================== |
23 |
c active_file.flow |
24 |
c ================================================================== |
25 |
C \ev |
26 |
CEOP |
27 |
|
28 |
c---------------------------------------- |
29 |
c subroutine active_read_profile |
30 |
c---------------------------------------- |
31 |
cadj SUBROUTINE active_read_profile FTLNAME = g_active_read_profile |
32 |
cadj SUBROUTINE active_read_profile ADNAME = adactive_read_profile |
33 |
cadj SUBROUTINE active_read_profile INPUT = 1, 2, 4,5,6,7,8,9,10,11 |
34 |
cadj SUBROUTINE active_read_profile OUTPUT = 3 |
35 |
cadj SUBROUTINE active_read_profile ACTIVE = 3 |
36 |
cadj SUBROUTINE active_read_profile DEPEND = 1, 2, 4,5,6,7,8,9,10 |
37 |
|
38 |
c---------------------------------------- |
39 |
c subroutine active_write_profile |
40 |
c---------------------------------------- |
41 |
cadj SUBROUTINE active_write_profile FTLNAME = g_active_write_profile |
42 |
cadj SUBROUTINE active_write_profile ADNAME = adactive_write_profile |
43 |
cadj SUBROUTINE active_write_profile INPUT = 1, 2, 3, 4,5,6,7,8,9,10 |
44 |
cadj SUBROUTINE active_write_profile OUTPUT = 10 |
45 |
cadj SUBROUTINE active_write_profile ACTIVE = 3 ,10 |
46 |
cadj SUBROUTINE active_write_profile DEPEND = 1, 2, 4,5,6,7,8,9 |