Warning, /pkg/autodiff/global_sum_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
e132b398e7 Jean*0001 C *==========================================================*
2dcaa8b9a5 Patr*0002 C | SUBROUTINE GLOBAL_SUM_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 |
e132b398e7 Jean*0006 C *==========================================================*
2dcaa8b9a5 Patr*0007 cadj SUBROUTINE global_sum_r4 INPUT = 1, 2
0008 cadj SUBROUTINE global_sum_r4 OUTPUT = 1
0009 cadj SUBROUTINE global_sum_r4 ACTIVE = 1
0010 cadj SUBROUTINE global_sum_r4 DEPEND = 2
b7992f223c Patr*0011 cadj SUBROUTINE global_sum_r4 ADNAME = global_adsum_r4
084c120559 Patr*0012 cadj SUBROUTINE global_sum_r4 FTLNAME = global_sum_r4
2dcaa8b9a5 Patr*0013
0014 cadj SUBROUTINE global_sum_r8 INPUT = 1, 2
0015 cadj SUBROUTINE global_sum_r8 OUTPUT = 1
0016 cadj SUBROUTINE global_sum_r8 ACTIVE = 1
0017 cadj SUBROUTINE global_sum_r8 DEPEND = 2
b7992f223c Patr*0018 cadj SUBROUTINE global_sum_r8 ADNAME = global_adsum_r8
084c120559 Patr*0019 cadj SUBROUTINE global_sum_r8 FTLNAME = global_sum_r8
2dcaa8b9a5 Patr*0020
e132b398e7 Jean*0021 cadj SUBROUTINE global_sum_tile_rl INPUT = 1, 3
0022 cadj SUBROUTINE global_sum_tile_rl OUTPUT = 2
0023 cadj SUBROUTINE global_sum_tile_rl ACTIVE = 1, 2
0024 cadj SUBROUTINE global_sum_tile_rl DEPEND = 3
0025 cadj SUBROUTINE global_sum_tile_rl ADNAME = global_adsum_tile_rl
0026 cadj SUBROUTINE global_sum_tile_rl FTLNAME = global_sum_tile_rl
0027