hvs_ascii_close Subroutine

public subroutine hvs_ascii_close(ascii)

close the ascii output unit

Arguments

Type IntentOptional Attributes Name
type(hvs_ascii_type), intent(inout) :: ascii

ascii output

Called by

proc~~hvs_ascii_close~~CalledByGraph proc~hvs_ascii_close hvs_ascii_close proc~hvs_output_finalize hvs_output_finalize proc~hvs_output_finalize->proc~hvs_ascii_close proc~tem_tracking_finalize tem_tracking_finalize proc~tem_tracking_finalize->proc~hvs_output_finalize

Contents

Source Code

hvs_ascii_close

Source Code

  subroutine hvs_ascii_close(ascii)
    ! ---------------------------------------------------------------------------
    !> ascii output
    type(hvs_ascii_type ), intent(inout) :: ascii
    ! ---------------------------------------------------------------------------
    !local variable
    logical :: nUnitOpened
    ! ---------------------------------------------------------------------------

    ! check output unit is open
    if ( ascii%outunit >=0 ) then
      inquire( unit = ascii%outunit, opened = nUnitOpened )
      if ( nUnitOpened ) close( ascii%outunit )
    end if

  end subroutine hvs_ascii_close