Warning, /pkg/cost/cost_ad.flow is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit 69361556 on 2026-03-18 21:20:20 UTC
abfcdf794f Jean*0001 C------------------------------------------
0002 C directives to specify the adjoint names
0003 C of COMMON blocks used in the original code
0004 C------------------------------------------
0005 C$TAF COMMON cost_r FTLNAME = g_cost_r
0006 C$TAF COMMON cost_r ADNAME = adcost_r
0007 C$TAF COMMON cost_state_final_r FTLNAME = g_cost_state_final_r
0008 C$TAF COMMON cost_state_final_r ADNAME = adcost_state_final_r
0009 C$TAF COMMON cost_vector_r FTLNAME = g_cost_vector_r
0010 C$TAF COMMON cost_vector_r ADNAME = adcost_vector_r
0011 C$TAF COMMON cost_dic_cost_ctrl FTLNAME = g_cost_dic_cost_ctrl
0012 C$TAF COMMON cost_dic_cost_ctrl ADNAME = adcost_dic_cost_ctrl
69361556c2 Mart*0013
0014 C------------------------------------------
0015 C subroutine cost_copy_file
0016 C------------------------------------------
0017 C$TAF SUBROUTINE cost_copy_file INPUT = 1,2,3
