Static Propagator

The “static propagator” is just a dummy propagator, which does not propagate the system. The only implemented operation is to update the interactions, as this is necessary in a multi-system calculation, where other systems are propagated by a “real” propagator.

  type, extends(propagator_t) :: propagator_static_t
  end type propagator_static_t

These are used to define the algorithm, which is done in the constructor of the propagator:

  function propagator_static_constructor(dt) result(this)
    FLOAT,                     intent(in) :: dt
    type(propagator_static_t), pointer    :: this



    this%start_step = OP_SKIP
    this%final_step = OP_SKIP

    call this%add_operation(OP_UPDATE_INTERACTIONS)
    call this%add_operation(OP_FINISHED)

    this%algo_steps = 1

    this%dt = dt

  end function propagator_static_constructor