da_free_unit.inc

1 subroutine da_free_unit(unit)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6  
7    implicit none
8 
9    integer, intent(in) :: unit
10 
11    ! Do not use as called in trace
12    ! if (trace_use) call da_trace_entry("da_free_unit")
13 
14    unit_used(unit) = .false.
15 
16    ! if (trace_use) call da_trace_exit("da_free_unit")
17 
18 end subroutine da_free_unit
19 
20