Next: CSHIFT, Previous: COUNT, Up: Intrinsic Procedures
CPU_TIME — CPU elapsed time in secondsREAL value representing the elapsed CPU time in seconds.  This
is useful for testing segments of code to determine execution time.
     CPU_TIME(X)
     | X | The type shall be REALwith intent out. | 
          program test_cpu_time
              real :: start, finish
              call cpu_time(start)
                  ! put code to test here
              call cpu_time(finish)
              print '("Time = ",f6.3," seconds.")',finish-start
          end program test_cpu_time