blob: 32c313467e986831dfc7c4647b1bd4b2f327fd1c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
program main
c
c $NetBSD: etime_test.f,v 1.1 2010/03/17 21:47:11 dmcmahill Exp $
c
c Simple program to check if the etime function is available
c
implicit none
real cpu
real etime
intrinsic etime
real t_array(2)
cpu = etime ( t_array )
write ( *, '(a)' ) ' '
write ( *, '(a)' ) ' ETIME reports:'
write ( *, '(a,g14.6)' )
& ' The current CPU time is ', cpu
write ( *, '(a,g14.6)' )
& ' TARRAY(1) = ', t_array(1)
write ( *, '(a,g14.6)' )
& ' TARRAY(2) = ', t_array(2)
stop
end
|