F.1.6 Get_CPU_Time Procedure

The main documentation of the Get_CPU_Time Procedure contains additional explanation of this code listing.

  function Get_CPU_Time () 
    ! Output variable.
    type(real) :: Get_CPU_Time      ! CPU time counter in seconds.

    ! Verify requirements - none.

    ! Intrinsic F95 call to get cpu time info.

    call CPU_TIME (Get_CPU_Time)
    ! Verify guarantees - none.

  end function Get_CPU_Time

Michael L. Hall