From cc3d5315137f3285b70a6626abcc52ef791f197f Mon Sep 17 00:00:00 2001 From: Ed Hartnett Date: Sun, 14 Jul 2019 08:22:04 -0600 Subject: [PATCH] working on nf_free_iosystem --- src/flib/ncint_mod.F90 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/flib/ncint_mod.F90 b/src/flib/ncint_mod.F90 index 25e4a1fd8f3..6b2b769303c 100644 --- a/src/flib/ncint_mod.F90 +++ b/src/flib/ncint_mod.F90 @@ -73,7 +73,8 @@ module ncint_mod !! @param rearr_opts the rearranger options. !! @author Ed Hartnett !< - subroutine nf_init_intracom(comp_rank, comp_comm, num_iotasks, num_aggregator, stride, rearr, iosystem,base, rearr_opts) + subroutine nf_init_intracom(comp_rank, comp_comm, num_iotasks, & + num_aggregator, stride, rearr, iosystem, base, rearr_opts) use pio_types, only : pio_internal_error, pio_rearr_opt_t use iso_c_binding @@ -96,7 +97,8 @@ integer(C_INT) function nc_set_iosystem(iosystemid) & end function nc_set_iosystem end interface - call PIO_init(comp_rank, comp_comm, num_iotasks, num_aggregator, stride, rearr, iosystem,base, rearr_opts) + call PIO_init(comp_rank, comp_comm, num_iotasks, num_aggregator, & + stride, rearr, iosystem, base, rearr_opts) ierr = nc_set_iosystem(iosystem%iosysid) @@ -109,7 +111,7 @@ end subroutine nf_init_intracom !! !! @param iosystem @copydoc io_desc_t !! @retval ierr @copydoc error_return - !! @author Jim Edwards + !! @author Ed Hartnett !< subroutine nf_free_iosystem(iosystem, ierr) type (iosystem_desc_t), intent(inout) :: iosystem