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 read_fld_xy_rs C---------------------------------------- CADJ SUBROUTINE read_fld_xy_rs INPUT = 1,2, 4,5 CADJ SUBROUTINE read_fld_xy_rs OUTPUT = 3 C---------------------------------------- C subroutine read_fld_xy_rl C---------------------------------------- CADJ SUBROUTINE read_fld_xy_rl INPUT = 1,2, 4,5 CADJ SUBROUTINE read_fld_xy_rl OUTPUT = 3 C---------------------------------------- C subroutine read_fld_xyz_rs C---------------------------------------- CADJ SUBROUTINE read_fld_xyz_rs INPUT = 1,2, 4,5 CADJ SUBROUTINE read_fld_xyz_rs OUTPUT = 3 C---------------------------------------- C subroutine read_fld_xyz_rl C---------------------------------------- CADJ SUBROUTINE read_fld_xyz_rl INPUT = 1,2, 4,5 CADJ SUBROUTINE read_fld_xyz_rl OUTPUT = 3 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 =