C----------------------------------------
C subroutine  ecco_check_exp
C----------------------------------------
CADJ SUBROUTINE ecco_check_exp INPUT  = 1,2,3,4
CADJ SUBROUTINE ecco_check_exp OUTPUT =

C----------------------------------------
C subroutine  cost_trans_merid
C----------------------------------------
CADJ SUBROUTINE cost_trans_merid INPUT  = 1
CADJ SUBROUTINE cost_trans_merid OUTPUT =

C----------------------------------------
C subroutine  cost_trans_zonal
C----------------------------------------
CADJ SUBROUTINE cost_trans_zonal INPUT  = 1
CADJ SUBROUTINE cost_trans_zonal OUTPUT =

C----------------------------------------
C subroutine  cost_readgeoid
C----------------------------------------
CADJ SUBROUTINE cost_readgeoid INPUT  = 1,2,3,  5
CADJ SUBROUTINE cost_readgeoid OUTPUT =       4
