13.メモリー管理(garbege collect)

  subroutine garbege_collect_1d
    integer :: i
    do i = 1, max_addr_1d
       if (b1(i)%saved == .false.) then
          b1(i)%linked = 0
       end if
    end do
    current_addr_1d = 1
  end subroutine garbege_collect_1d