MAPL_Rewind Subroutine

public subroutine MAPL_Rewind(UNIT, LAYOUT, RC)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: UNIT
type(ESMF_DELayout), intent(in) :: LAYOUT
integer, intent(out), optional :: RC

Calls

proc~~mapl_rewind~~CallsGraph proc~mapl_rewind MAPL_Rewind interface~mapl_am_i_root MAPL_Am_I_Root proc~mapl_rewind->interface~mapl_am_i_root proc~mapl_return MAPL_Return proc~mapl_rewind->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_rewind->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

  subroutine MAPL_Rewind(UNIT, LAYOUT, RC)

    integer                     , intent(IN   ) :: UNIT
    type (ESMF_DELayout)        , intent(IN   ) :: LAYOUT
    integer,           optional , intent(  OUT) :: RC

! Local variables

    integer                               :: STATUS

    if (MAPL_AM_I_ROOT(LAYOUT)) then
       rewind(unit=UNIT, IOSTAT=status)
       _VERIFY(STATUS)
    end if

    _RETURN(ESMF_SUCCESS)
  end subroutine MAPL_Rewind