C---------------------------------------- C subroutine set_write_global_fld C---------------------------------------- CADJ SUBROUTINE set_write_global_fld INPUT = 1 CADJ SUBROUTINE set_write_global_fld OUTPUT = C---------------------------------------- C subroutine write_fld_xy_rs C---------------------------------------- CADJ SUBROUTINE write_fld_xy_rs INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_fld_xy_rs OUTPUT = C---------------------------------------- C subroutine write_fld_xy_rl C---------------------------------------- CADJ SUBROUTINE write_fld_xy_rl INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_fld_xy_rl OUTPUT = C---------------------------------------- C subroutine write_fld_xyz_rs C---------------------------------------- CADJ SUBROUTINE write_fld_xyz_rs INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_fld_xyz_rs OUTPUT = C---------------------------------------- C subroutine write_fld_xyz_rl C---------------------------------------- CADJ SUBROUTINE write_fld_xyz_rl INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_fld_xyz_rl OUTPUT = C---------------------------------------- C subroutine write_local_rl C---------------------------------------- CADJ SUBROUTINE write_local_rl INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE write_local_rl OUTPUT = C---------------------------------------- C subroutine write_local_rs C---------------------------------------- CADJ SUBROUTINE write_local_rs INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE write_local_rs OUTPUT = C---------------------------------------- C subroutine set_write_global_rec C---------------------------------------- CADJ SUBROUTINE set_write_global_rec INPUT = 1 CADJ SUBROUTINE set_write_global_rec OUTPUT = C---------------------------------------- C subroutine write_rec_xy_rl C---------------------------------------- CADJ SUBROUTINE write_rec_xy_rl INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_rec_xy_rl OUTPUT = C---------------------------------------- C subroutine write_rec_xyz_rs C---------------------------------------- CADJ SUBROUTINE write_rec_xyz_rs INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_rec_xyz_rs OUTPUT = C---------------------------------------- C subroutine write_rec_xyz_rl C---------------------------------------- CADJ SUBROUTINE write_rec_xyz_rl INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_rec_xyz_rl OUTPUT =