1 |
heimbach |
1.1 |
C /==========================================================\ |
2 |
|
|
C | TAMC flow directives | |
3 |
|
|
C | for library subroutines exch_xy_r4 exch_xyz_r4 | |
4 |
|
|
C | exch_xy_r8 exch_xyz_r8 | |
5 |
|
|
C |==========================================================| |
6 |
|
|
C | These directives are for standard adjoint code | |
7 |
|
|
C | generation (vector Jacobian product). | |
8 |
|
|
C | tamc -reverse .... | |
9 |
|
|
C | | |
10 |
|
|
C | written and tested by Ralf Giering, Jan. 14th 1999 | |
11 |
|
|
C |==========================================================| |
12 |
|
|
C | SUBROUTINE EXCH_*_R* is linear | |
13 |
|
|
C | only the array argument is active | |
14 |
|
|
C | only myThid is required for the adjoint subroutine | |
15 |
|
|
C \==========================================================/ |
16 |
|
|
cadj SUBROUTINE exch_xy_r4 INPUT = 1, 2 |
17 |
|
|
cadj SUBROUTINE exch_xy_r4 OUTPUT = 1 |
18 |
|
|
cadj SUBROUTINE exch_xy_r4 ACTIVE = 1 |
19 |
|
|
cadj SUBROUTINE exch_xy_r4 DEPEND = 2 |
20 |
|
|
cadj SUBROUTINE exch_xy_r4 ADNAME = adexch_xy_r4 |
21 |
|
|
|
22 |
|
|
cadj SUBROUTINE exch_xy_r8 INPUT = 1, 2 |
23 |
|
|
cadj SUBROUTINE exch_xy_r8 OUTPUT = 1 |
24 |
|
|
cadj SUBROUTINE exch_xy_r8 ACTIVE = 1 |
25 |
|
|
cadj SUBROUTINE exch_xy_r8 DEPEND = 2 |
26 |
|
|
cadj SUBROUTINE exch_xy_r8 ADNAME = adexch_xy_r8 |
27 |
|
|
|
28 |
|
|
cadj SUBROUTINE exch_xyz_r4 INPUT = 1, 2 |
29 |
|
|
cadj SUBROUTINE exch_xyz_r4 OUTPUT = 1 |
30 |
|
|
cadj SUBROUTINE exch_xyz_r4 ACTIVE = 1 |
31 |
|
|
cadj SUBROUTINE exch_xyz_r4 DEPEND = 2 |
32 |
|
|
cadj SUBROUTINE exch_xyz_r4 ADNAME = adexch_xyz_r4 |
33 |
|
|
|
34 |
|
|
cadj SUBROUTINE exch_xyz_r8 INPUT = 1, 2 |
35 |
|
|
cadj SUBROUTINE exch_xyz_r8 OUTPUT = 1 |
36 |
|
|
cadj SUBROUTINE exch_xyz_r8 ACTIVE = 1 |
37 |
|
|
cadj SUBROUTINE exch_xyz_r8 DEPEND = 2 |
38 |
|
|
cadj SUBROUTINE exch_xyz_r8 ADNAME = adexch_xyz_r8 |