get_current_qtime Function

public function get_current_qtime() result(t)

Function to get the current quad precision time, .

Arguments

None

Return Value real(kind=qp)

Returns .


Called by

proc~~get_current_qtime~~CalledByGraph proc~get_current_qtime get_current_qtime proc~co_save_globals_1 co_save_globals_1 proc~co_save_globals_1->proc~get_current_qtime interface~co_save_globals_1 co_save_globals_1 interface~co_save_globals_1->proc~co_save_globals_1

Contents

Source Code


Source Code

  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