Platform

x64, Win32

Purpose

To get a time in seconds.

Syntax

SUBROUTINE CLOCK@(R)
REAL (KIND=1) R

Description

This routine is usually used to time a process as shown in the example below.

See also

CPU_TIME, DCLOCK@, HIGH_RES_CLOCK@, SECONDS_SINCE_1980@.

Example

CALL CLOCK@(START)
! some calculation. . .
CALL CLOCK@(FINISH)
PRINT *,'elapsed time used = ',FINISH-START