1 subroutine da_free_unit(unit) 2 3 !----------------------------------------------------------------------- 4 ! Purpose: TBD 5 !----------------------------------------------------------------------- 6 7 implicit none 8 9 integer, intent(in) :: unit 10 11 unit_used(unit) = .false. 12 13 end subroutine da_free_unit 14 15