Platform

x64, Win32, .NET

Purpose

To get the processor time.

Class

Subroutine.

Syntax

SUBROUTINE CPU_TIME(TIME)
REAL,INTENT(OUT)::TIME

Return value

TIME is a scalar value giving the processor time in seconds. A negative value denotes an error condition.

Example

REAL TIME1, TIME2
CALL CPU_TIME(TIME1)
! Processing...
CALL CPU_TIME(TIME2)
PRINT *, 'Processing time was ', TIME2-TIME1, ' seconds'