MAPL_Backspace Subroutine

public subroutine MAPL_Backspace(UNIT, LAYOUT, COUNT, RC)

Arguments

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

Calls

proc~~mapl_backspace~~CallsGraph proc~mapl_backspace MAPL_Backspace interface~mapl_am_i_root MAPL_Am_I_Root proc~mapl_backspace->interface~mapl_am_i_root proc~mapl_return MAPL_Return proc~mapl_backspace->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_backspace->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_Backspace(UNIT, LAYOUT, COUNT, RC)

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

! Local variables

    integer                               :: STATUS
    integer                               :: N, NN

    if (MAPL_AM_I_ROOT(LAYOUT)) then
       if(present(COUNT)) then
          NN=COUNT
       else
          NN=1
       endif

       do N=1,NN
          backspace(unit=UNIT, IOSTAT=status)
          _VERIFY(STATUS)
       end do
    end if

    _RETURN(ESMF_SUCCESS)
  end subroutine MAPL_Backspace