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 private 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 PUSH_SUB(propagator_static_constructor) SAFE_ALLOCATE(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 POP_SUB(propagator_static_constructor) end function propagator_static_constructor