Free_BCList Subroutine

  1. SELF_BoundaryConditions.f90
  2. SELF_BoundaryConditions
  3. Free_BCList

public subroutine Free_BCList(list)

Arguments

TypeIntentOptionalAttributesName
class(BoundaryConditionList), intent(inout) :: list

Calls

proc~~free_bclist~~CallsGraph proc~free_bclist Free_BCList proc~init_bclist Init_BCList proc~free_bclist->proc~init_bclist

Contents

Source Code

Free_BCList

Source Code

  subroutine Free_BCList(list)
    class(BoundaryConditionList),intent(inout) :: list
    type(BoundaryCondition),pointer :: node,next_node

    node => list%head
    do while(associated(node))
      next_node => node%next
      nullify(node%bcMethod)
      if(allocated(node%elements)) deallocate(node%elements)
      if(allocated(node%sides)) deallocate(node%sides)
      deallocate(node)
      node => next_node
    enddo

    call Init_BCList(list)
  endsubroutine Free_BCList