working on nf_free_iosystem

rfiorella · Jul 14, 2019 · cc3d531 · cc3d531
1 parent 804aac2
commit cc3d531
Showing 1 changed file with 5 additions and 3 deletions.
diff --git 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