Warning, /pkg/autodiff/cg2d.flow is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit 1c2b1fa3 on 2021-10-19 18:24:13 UTC
2dcaa8b9a5 Patr*0001 C----------------------------------------
0002 C subroutine cg2d
0003 C----------------------------------------
aecc8b0f47 Mart*0004 CADJ SUBROUTINE cg2d ADNAME = cg2d_mad
0b7972a3f5 Jean*0005 CADJ SUBROUTINE cg2d FTLNAME = cg2d
0006 CADJ SUBROUTINE cg2d INPUT = 1,2, 6,7,8
0007 CADJ SUBROUTINE cg2d OUTPUT = 2,3,4,5,6,7
0008 CADJ SUBROUTINE cg2d ACTIVE = 1,2
8fc117ecb7 Mart*0009 CADJ SUBROUTINE cg2d DEPEND = 6,7,8
1c2b1fa3bc Mart*0010 CADJ SUBROUTINE cg2d COMMON CG2D_I_RS INPUT = 1,2,3,4,5,6
0011 CADJ SUBROUTINE cg2d COMMON CG2D_I_RS DEPEND = 1,2,3,4,5,6
0b7972a3f5 Jean*0012
0013 C----------------------------------------
0014 C subroutine cg2d_sr
0015 C----------------------------------------
aecc8b0f47 Mart*0016 CADJ SUBROUTINE cg2d_sr ADNAME = cg2d_mad
0b7972a3f5 Jean*0017 CADJ SUBROUTINE cg2d_sr FTLNAME = cg2d_sr
0018 CADJ SUBROUTINE cg2d_sr INPUT = 1,2, 6,7,8
0019 CADJ SUBROUTINE cg2d_sr OUTPUT = 2,3,4,5,6,7
0020 CADJ SUBROUTINE cg2d_sr ACTIVE = 1,2
8fc117ecb7 Mart*0021 CADJ SUBROUTINE cg2d_sr DEPEND = 6,7,8
1c2b1fa3bc Mart*0022 CADJ SUBROUTINE cg2d_sr COMMON CG2D_I_RS INPUT = 1,2,3,4,5,6
0023 CADJ SUBROUTINE cg2d_sr COMMON CG2D_I_RS DEPEND = 1,2,3,4,5,6
aecc8b0f47 Mart*0024
0025 C----------------------------------------
0026 C subroutine cg2d_store
0027 C----------------------------------------
0028 CADJ SUBROUTINE cg2d_store INPUT = 1,2,3
0029 CADJ SUBROUTINE cg2d_store OUTPUT = 1
0030 CADJ SUBROUTINE cg2d_store ACTIVE =
0031 CADJ SUBROUTINE cg2d_store DEPEND = 2,3
1c2b1fa3bc Mart*0032
0033 CADJ COMMON cg2d_i_rs ADNAME = adcg2d_i_rs
0034 CADJ COMMON cg2d_i_rs FTLNAME = g_cg2d_i_rs