Function to get the current quad precision time, .
Returns .
function get_current_qtime ( ) result(t)
!! Function to get the current quad precision time, \(t\).
implicit none
real(qp) :: t
!! Returns \(t\).
t = qtime
end function get_current_qtime