hvs_asciiSpatial_close Subroutine

public subroutine hvs_asciiSpatial_close(asciiSpatial)

close the asciiSpatial output unit

Arguments

Type IntentOptional Attributes Name
type(hvs_asciiSpatial_type), intent(inout) :: asciiSpatial

asciiSpatial output

Called by

proc~~hvs_asciispatial_close~~CalledByGraph proc~hvs_asciispatial_close hvs_asciiSpatial_close proc~hvs_output_close hvs_output_close proc~hvs_output_close->proc~hvs_asciispatial_close proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_close

Contents

Source Code

hvs_asciiSpatial_close

Source Code

  subroutine hvs_asciiSpatial_close(asciiSpatial)
    ! ---------------------------------------------------------------------------
    !> asciiSpatial output
    type(hvs_asciiSpatial_type ), intent(inout) :: asciiSpatial
    ! ---------------------------------------------------------------------------
    !local variable
    logical :: nUnitOpened
    ! ---------------------------------------------------------------------------

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

  end subroutine hvs_asciiSpatial_close