ddeabm_new_problem Subroutine

private subroutine ddeabm_new_problem(me)

Call this to indicate that a new problem is being solved. It sets info(1) = 0 (see ddeabm documentation).

Type Bound

ddeabm_class

Arguments

Type IntentOptional Attributes Name
class(ddeabm_class), intent(inout) :: me

Source Code

   subroutine ddeabm_new_problem(me)

      implicit none

      class(ddeabm_class), intent(inout) :: me

      me%info(1) = 0
      me%error = .false.

      select type (me)
      class is (ddeabm_with_event_class)
         if (allocated(me%x_saved)) deallocate (me%x_saved)
      class is (ddeabm_with_event_class_vec)
         if (allocated(me%x_saved)) deallocate (me%x_saved)
      end select

   end subroutine ddeabm_new_problem