Warning, /pkg/autodiff/active_file_gen.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
97d49af5d4 Jean*0001 CBOP
0002 C !ROUTINE: flow directives for active_file_gen.F
0003 C !INTERFACE:
0004 C !DESCRIPTION: \bv
0005 C ==================================================================
0006 C active_file_gen.flow
0007 C ==================================================================
0008 C provides flow directives for routines in active_file_gen.F
0009 C required by TAMC/TAF
0010 C * ACTIVE_READ_GEN_RL
0011 C * ACTIVE_READ_GEN_RS
0012 C * ACTIVE_WRITE_GEN_RL
0013 C * ACTIVE_WRITE_GEN_RS
0014 C ==================================================================
0015 C active_file_gen.flow
0016 C ==================================================================
0017 C \ev
0018 CEOP
0019
0020 C- Note: nothing active beyond column 72 !
0021 C----------------------------------------
0022 C SUBROUTINE ACTIVE_READ_GEN_RL
0023 C----------------------------------------
0024 cadj SUBROUTINE ACTIVE_READ_GEN_RL FTLNAME = g_ACTIVE_READ_GEN_RL
0025 cadj SUBROUTINE ACTIVE_READ_GEN_RL ADNAME = adACTIVE_READ_GEN_RL
0026 cadj SUBROUTINE ACTIVE_READ_GEN_RL INPUT = 1 , 3,4,5,6,7,8,9,10, 11
0027 cadj SUBROUTINE ACTIVE_READ_GEN_RL OUTPUT = 2
0028 cadj SUBROUTINE ACTIVE_READ_GEN_RL ACTIVE = 2, 11
0029 cadj SUBROUTINE ACTIVE_READ_GEN_RL DEPEND = 1, 3,4,5,6,7,8,9,10, 11
0030
0031 C----------------------------------------
0032 C SUBROUTINE ACTIVE_READ_GEN_RS
0033 C----------------------------------------
0034 cadj SUBROUTINE ACTIVE_READ_GEN_RS FTLNAME = g_ACTIVE_READ_GEN_RS
0035 cadj SUBROUTINE ACTIVE_READ_GEN_RS ADNAME = adACTIVE_READ_GEN_RS
0036 cadj SUBROUTINE ACTIVE_READ_GEN_RS INPUT = 1 , 3,4,5,6,7,8,9,10, 11
0037 cadj SUBROUTINE ACTIVE_READ_GEN_RS OUTPUT = 2
0038 cadj SUBROUTINE ACTIVE_READ_GEN_RS ACTIVE = 2, 11
0039 cadj SUBROUTINE ACTIVE_READ_GEN_RS DEPEND = 1, 3,4,5,6,7,8,9,10, 11
0040
0041 C----------------------------------------
0042 C SUBROUTINE ACTIVE_WRITE_GEN_RL
0043 C----------------------------------------
0044 cadj SUBROUTINE ACTIVE_WRITE_GEN_RL FTLNAME = g_ACTIVE_WRITE_GEN_RL
0045 cadj SUBROUTINE ACTIVE_WRITE_GEN_RL ADNAME = adACTIVE_WRITE_GEN_RL
0046 cadj SUBROUTINE ACTIVE_WRITE_GEN_RL INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
0047 cadj SUBROUTINE ACTIVE_WRITE_GEN_RL OUTPUT = 9
0048 cadj SUBROUTINE ACTIVE_WRITE_GEN_RL ACTIVE = 2, 9
0049 cadj SUBROUTINE ACTIVE_WRITE_GEN_RL DEPEND = 1, 3, 4, 5, 6, 7, 8
0050
0051 C----------------------------------------
0052 C SUBROUTINE ACTIVE_WRITE_GEN_RS
0053 C----------------------------------------
0054 cadj SUBROUTINE ACTIVE_WRITE_GEN_RS FTLNAME = g_ACTIVE_WRITE_GEN_RS
0055 cadj SUBROUTINE ACTIVE_WRITE_GEN_RS ADNAME = adACTIVE_WRITE_GEN_RS
0056 cadj SUBROUTINE ACTIVE_WRITE_GEN_RS INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9
0057 cadj SUBROUTINE ACTIVE_WRITE_GEN_RS OUTPUT = 9
0058 cadj SUBROUTINE ACTIVE_WRITE_GEN_RS ACTIVE = 2, 9
0059 cadj SUBROUTINE ACTIVE_WRITE_GEN_RS DEPEND = 1, 3, 4, 5, 6, 7, 8
0060