Warning, /pkg/autodiff/global_max_ad.flow is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
2dcaa8b9a5 Patr*0001 C /==========================================================\
0002 C | SUBROUTINE GLOBAL_MAX_R* is linear |
0003 C | only the array argument is active |
0004 C | only myThid is required |
0005 C | SUBROUTINE GLOBAL_ADSUM_R* is linear |
0006 C \==========================================================/
0007 cadj SUBROUTINE global_max_r4 INPUT = 1, 2
0008 cadj SUBROUTINE global_max_r4 OUTPUT = 1
0009 cadj SUBROUTINE global_max_r4 ACTIVE = 1
0010 cadj SUBROUTINE global_max_r4 DEPEND = 2
0011 cadj SUBROUTINE global_max_r4 ADNAME = global_admax_r4
d2b824a660 Patr*0012 cadj SUBROUTINE global_max_r4 FTLNAME = global_max_r4
2dcaa8b9a5 Patr*0013
0014 cadj SUBROUTINE global_max_r8 INPUT = 1, 2
0015 cadj SUBROUTINE global_max_r8 OUTPUT = 1
0016 cadj SUBROUTINE global_max_r8 ACTIVE = 1
0017 cadj SUBROUTINE global_max_r8 DEPEND = 2
0018 cadj SUBROUTINE global_max_r8 ADNAME = global_admax_r8
d2b824a660 Patr*0019 cadj SUBROUTINE global_max_r8 FTLNAME = global_max_r8