MoveNext Subroutine

public subroutine MoveNext(list)

Arguments

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

Contents

Source Code


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