set_initial_times Subroutine

    subroutine set_initial_times(real_time, imag_time, alpha)
        implicit none
        real(dp), intent(in) :: real_time, imag_time, alpha

        ! with the inclusion of dynamic alpha, both, the real and the imaginary part
        ! have to be stored in the time-evolved popsfile
        ! the
        elapsedImagTime = imag_time
        elapsedRealTime = real_time
        ! also, the previous value of alpha is to be loaded
        real_time_info%time_angle = alpha
    end subroutine set_initial_times