27 lines
639 B
Fortran
27 lines
639 B
Fortran
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
|