MoveNext Subroutine

  1. SELF_BoundaryConditions.f90
  2. SELF_BoundaryConditions
  3. MoveNext

public subroutine MoveNext(list)

Arguments

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

Contents

Source Code

MoveNext

Source Code

  subroutine MoveNext(list)
    class(BoundaryConditionList),intent(inout) :: list
    if(associated(list%current%next)) then
      list%current => list%current%next
    else
      nullify(list%current)
    endif
  endsubroutine MoveNext