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.

  return
  end function Get_CPU_Time