c----------------------------------------
c subroutine active_read_xz_rl
c----------------------------------------
cadj SUBROUTINE active_read_xz_rl INPUT   = 1, 2, 3, 4, 5, 6, 7, 8, 9
cadj SUBROUTINE active_read_xz_rl OUTPUT  =    2

c----------------------------------------
c subroutine active_write_xz_rl
c----------------------------------------
cadj SUBROUTINE active_write_xz_rl INPUT   = 1, 2, 3, 4, 5, 6, 7, 8
cadj SUBROUTINE active_write_xz_rl OUTPUT  =    2

c----------------------------------------
c subroutine active_read_yz_rl
c----------------------------------------
cadj SUBROUTINE active_read_yz_rl INPUT   = 1, 2, 3, 4, 5, 6, 7, 8, 9
cadj SUBROUTINE active_read_yz_rl OUTPUT  =    2

c----------------------------------------
c subroutine active_write_yz_rl
c----------------------------------------
cadj SUBROUTINE active_write_yz_rl INPUT   = 1, 2, 3, 4, 5, 6, 7, 8
cadj SUBROUTINE active_write_yz_rl OUTPUT  =    2