From be2813aa5c105fcaa506650078a5b8d1c9694b33 Mon Sep 17 00:00:00 2001 From: Ed Hartnett Date: Fri, 3 Jun 2011 09:52:13 +0000 Subject: [PATCH] fixed parallel example to use appropriate parallel flag when opening file --- examples/F90/simple_xy_par_rd.f90 | 4 ++-- examples/F90/simple_xy_rd.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/F90/simple_xy_par_rd.f90 b/examples/F90/simple_xy_par_rd.f90 index 499b77f37..01fb20695 100644 --- a/examples/F90/simple_xy_par_rd.f90 +++ b/examples/F90/simple_xy_par_rd.f90 @@ -53,8 +53,8 @@ program simple_xy_par_rd ! Open the file. NF90_NOWRITE tells netCDF we want read-only access to ! the file. - call check( nf90_open(FILE_NAME, NF90_NOWRITE, ncid, comm = MPI_COMM_WORLD, & - info = MPI_INFO_NULL) ) + call check( nf90_open(FILE_NAME, IOR(NF90_NOWRITE, NF90_MPIIO), ncid, & + comm = MPI_COMM_WORLD, info = MPI_INFO_NULL) ) ! Get the varid of the data variable, based on its name. call check( nf90_inq_varid(ncid, "data", varid) ) diff --git a/examples/F90/simple_xy_rd.f90 b/examples/F90/simple_xy_rd.f90 index bf1586a7b..032166d50 100644 --- a/examples/F90/simple_xy_rd.f90 +++ b/examples/F90/simple_xy_rd.f90 @@ -37,7 +37,7 @@ program simple_xy_rd ! Open the file. NF90_NOWRITE tells netCDF we want read-only access to ! the file. - call check( nf90_open(FILE_NAME, NF90_NOWRITE, ncid) ) + call check( nf90_open(FILE_NAME, IOR(NF90_NOWRITE, NF90_MPIIO), ncid) ) ! Get the varid of the data variable, based on its name. call check( nf90_inq_varid(ncid, "data", varid) )