Skip to content

Commit

Permalink
fortran documentation changes
Browse files Browse the repository at this point in the history
  • Loading branch information
edhartnett committed May 29, 2019
1 parent 8cc123f commit f1b72e1
Show file tree
Hide file tree
Showing 3 changed files with 19 additions and 19 deletions.
2 changes: 2 additions & 0 deletions Makefile.am
Original file line number Diff line number Diff line change
Expand Up @@ -13,3 +13,5 @@ endif
SUBDIRS = src tests examples ${DOC} scripts

EXTRA_DIST = CMakeLists.txt set_flags.am COPYRIGHT

CLEANFILES = docs/* docs
2 changes: 1 addition & 1 deletion doc/source/api.txt
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@
- \ref PIO_read_darray
- \ref PIO_write_darray
\section utility Utility routines
- \ref PIO_set_hint_grp
- \ref PIO_set_hint
- \ref PIO_setframe
- \ref PIO_advanceframe
- \ref PIO_setdebuglevel
Expand Down
34 changes: 16 additions & 18 deletions src/flib/piolib_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -913,15 +913,15 @@ end subroutine init_intracom
!! ignored. This variation of PIO_init sets up a distinct set of
!! tasks to handle IO, these tasks do not return from this
!! call. Instead they go to an internal loop and wait to receive
!! further instructions from the computational tasks
!! further instructions from the computational tasks.
!!
!! @param component_count The number of computational components to
!! associate with this IO component
!! associate with this IO component.
!! @param peer_comm The communicator from which all other
!! communicator arguments are derived
!! communicator arguments are derived.
!! @param comp_comms The computational communicator for each of the
!! computational components
!! @param io_comm The io communicator
!! computational components.
!! @param io_comm The io communicator.
!! @param iosystem a derived type which can be used in subsequent
!! pio operations (defined in PIO_types).
!<
Expand Down Expand Up @@ -1141,15 +1141,16 @@ subroutine init_intercom(component_count, peer_comm, comp_comms, io_comm, iosyst
end subroutine init_intercom

!>
!! @defgroup PIO_set_hint_grp PIO_set_hint
!! @defgroup PIO_set_hint PIO_set_hint

!> Set file system hints using mpi_info_set. This is a collective
!> call which expects the following parameters:
!> @ingroup PIO_set_hint
!! Set file system hints using mpi_info_set. This is a collective
!! call.
!!
!! @param iosystem @copydoc io_desc_t
!! @param hint the string name of the hint to define
!! @param hintval the string value to set the hint to
!! @retval ierr @copydoc error_return
!! @param hint the string name of the hint to define
!! @param hintval the string value to set the hint to
!! @retval ierr @copydoc error_return
subroutine PIO_set_hint(iosystem, hint, hintval)
type (iosystem_desc_t), intent(inout) :: iosystem ! io descriptor to initalize
character(len=*), intent(in) :: hint, hintval
Expand All @@ -1165,19 +1166,16 @@ integer(C_INT) function PIOc_set_hint(iosysid, key, val) &
end function PIOc_set_hint
end interface


ierr = PIOc_set_hint(iosystem%iosysid, hint, hintval)


end subroutine PIO_set_hint


!>
!! @ingroup PIO_finalize
!! @brief finalizes the pio subsystem.
!! @details This is a collective call which expects the following parameters
!! @param iosystem : @copydoc io_desc_t
!! @retval ierr @copydoc error_return
!! Finalizes an IO System. This is a collective call.
!!
!! @param iosystem @copydoc io_desc_t
!! @retval ierr @copydoc error_return
!<
subroutine finalize(iosystem,ierr)
type (iosystem_desc_t), intent(inout) :: iosystem
Expand Down

0 comments on commit f1b72e1

Please sign in to comment.