<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_FREE_UNIT'><A href='../../html_code/tools/da_free_unit.inc.html#DA_FREE_UNIT' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_free_unit(unit) 118
!-----------------------------------------------------------------------
! Purpose: TBD
!-----------------------------------------------------------------------
implicit none
integer, intent(in) :: unit
! Do not use as called in trace
! if (trace_use) call da_trace_entry("da_free_unit")
unit_used(unit) = .false.
! if (trace_use) call da_trace_exit("da_free_unit")
end subroutine da_free_unit