Warning, /pkg/cost/cost_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
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
