c----------------------------------------
c subroutine zero_adj_1d
c----------------------------------------
cadj SUBROUTINE zero_adj_1d FTLNAME = g_zero_adj_1d
cadj SUBROUTINE zero_adj_1d ADNAME  = adzero_adj_1d
cadj SUBROUTINE zero_adj_1d INPUT   = 1, 2, 3
cadj SUBROUTINE zero_adj_1d OUTPUT  =
cadj SUBROUTINE zero_adj_1d ACTIVE  =    2
cadj SUBROUTINE zero_adj_1d DEPEND  = 1,    3
c----------------------------------------
c subroutine zero_adj_loc
c----------------------------------------
cadj SUBROUTINE zero_adj_loc FTLNAME = g_zero_adj_loc
cadj SUBROUTINE zero_adj_loc ADNAME  = adzero_adj_loc
cadj SUBROUTINE zero_adj_loc INPUT   = 1, 2, 3
cadj SUBROUTINE zero_adj_loc OUTPUT  =
cadj SUBROUTINE zero_adj_loc ACTIVE  =    2   
cadj SUBROUTINE zero_adj_loc DEPEND  = 1,    3
c----------------------------------------
c subroutine zero_adj
c----------------------------------------
cadj SUBROUTINE zero_adj FTLNAME = g_zero_adj
cadj SUBROUTINE zero_adj ADNAME  = adzero_adj
cadj SUBROUTINE zero_adj INPUT   = 1, 2, 3
cadj SUBROUTINE zero_adj OUTPUT  =
cadj SUBROUTINE zero_adj ACTIVE  =    2 
cadj SUBROUTINE zero_adj DEPEND  = 1,    3