Back to home page

darwin3

 
 

    


File indexing completed on 2024-12-17 18:33:39 UTC

view on githubraw file Latest commit 0e6a4460 on 2024-11-19 21:40:40 UTC
1e7adfddf9 Patr*0001 c     ==================================================================
                0002 c     HEADER G_COST
                0003 c     ==================================================================
                0004 c
0e6a4460e5 Ivan*0005 c     o Header for model-data comparison; tangent linear part.
1e7adfddf9 Patr*0006 c
                0007 c     started: Christian Eckert eckert@mit.edu  06-Apr-2000
                0008 c     changed: Christian Eckert eckert@mit.edu
2f1693fad8 Patr*0009 c     heimbach@mit.edu 5-Nov-2003 retain only adfc
1e7adfddf9 Patr*0010 c
                0011 c     ==================================================================
                0012 c     HEADER G_COST
                0013 c     ==================================================================
                0014 
                0015       common /g_cost_r/
2f1693fad8 Patr*0016      &                  g_fc
1e7adfddf9 Patr*0017       _RL  g_fc
                0018 
                0019 #ifdef ALLOW_COST_STATE_FINAL
                0020       common /g_cost_state_final_r/
                0021      &                g_objf_state_final
0e6a4460e5 Ivan*0022       _RL  g_objf_state_final (sNx,sNy,nSx,nSy,4*Nr+1)
1e7adfddf9 Patr*0023 #endif
                0024 
                0025 #ifdef ALLOW_COST_VECTOR
                0026       common /g_cost_vector_r/
                0027      &                  g_objf_vector
0e6a4460e5 Ivan*0028       _RL  g_objf_vector(sNx,nSx,nSy)
1e7adfddf9 Patr*0029 #endif
                0030 
                0031 c     ==================================================================
                0032 c     END OF HEADER G_COST
                0033 c     ==================================================================