pkg/autodiff/global_max_ad.flow

C     /==========================================================\
C     | SUBROUTINE GLOBAL_MAX_R* is linear                       |
C     | only the array argument is active                        |
C     | only myThid is required                                  |
C     | SUBROUTINE GLOBAL_ADSUM_R* is linear                     |
C     \==========================================================/
cadj SUBROUTINE global_max_r4 INPUT   = 1, 2
cadj SUBROUTINE global_max_r4 OUTPUT  = 1
cadj SUBROUTINE global_max_r4 ACTIVE  = 1
cadj SUBROUTINE global_max_r4 DEPEND  = 2
cadj SUBROUTINE global_max_r4 ADNAME  = global_admax_r4
cadj SUBROUTINE global_max_r4 FTLNAME = global__gmax_r4

cadj SUBROUTINE global_max_r8 INPUT   = 1, 2
cadj SUBROUTINE global_max_r8 OUTPUT  = 1
cadj SUBROUTINE global_max_r8 ACTIVE  = 1
cadj SUBROUTINE global_max_r8 DEPEND  = 2
cadj SUBROUTINE global_max_r8 ADNAME  = global_admax_r8
cadj SUBROUTINE global_max_r8 FTLNAME = global__gmax_r8
1	heimbach	1.1	C /==========================================================\
2			C \| SUBROUTINE GLOBAL_MAX_R* is linear \|
3			C \| only the array argument is active \|
4			C \| only myThid is required \|
5			C \| SUBROUTINE GLOBAL_ADSUM_R* is linear \|
6			C \==========================================================/
7			cadj SUBROUTINE global_max_r4 INPUT = 1, 2
8			cadj SUBROUTINE global_max_r4 OUTPUT = 1
9			cadj SUBROUTINE global_max_r4 ACTIVE = 1
10			cadj SUBROUTINE global_max_r4 DEPEND = 2
11			cadj SUBROUTINE global_max_r4 ADNAME = global_admax_r4
12	heimbach	1.2	cadj SUBROUTINE global_max_r4 FTLNAME = global__gmax_r4
13	heimbach	1.1
14			cadj SUBROUTINE global_max_r8 INPUT = 1, 2
15			cadj SUBROUTINE global_max_r8 OUTPUT = 1
16			cadj SUBROUTINE global_max_r8 ACTIVE = 1
17			cadj SUBROUTINE global_max_r8 DEPEND = 2
18			cadj SUBROUTINE global_max_r8 ADNAME = global_admax_r8
19	heimbach	1.2	cadj SUBROUTINE global_max_r8 FTLNAME = global__gmax_r8