subroutine rewind(list) class(BoundaryConditionList),intent(inout) :: list list%current => list%head endsubroutine rewind