Manual Reference Pages - system_cpu_time (3)

NAME

system_cpu_time(3f) - [M_system] get processor time by calling times(3c) (LICENSE:PD)

Synopsis
Description
Output
Errors
Examples

SYNOPSIS

subroutine system_cpu_time(c_user, c_system, c_total)

        real,intent(out) :: c_total
        real,intent(out) :: c_user
        real,intent(out) :: c_system

DESCRIPTION

OUTPUT

c_total
total processor time ( c_user + c_system )

c_user processor user time

c_system
processor system time

ERRORS

No errors are defined.

EXAMPLES

Sample program:

   program demo_system_cpu_time

   use M_system, only : system_cpu_time
   use ISO_C_BINDING, only : c_float
   implicit none
   real    :: user_start, system_start, total_start
   real    :: user_finish, system_finish, total_finish
   integer :: i
   integer :: itimes=1000000
   real    :: value

      call system_cpu_time(total_start,user_start,system_start)

      value=0.0
      do i=1,itimes
         value=sqrt(real(i)+value)
      enddo
      write(10,*)value
      flush(10)
      write(*,*)’average sqrt value=’,value/itimes
      call system_cpu_time(total_finish,user_finish,system_finish)
      write(*,*)’USER ......’,user_finish-user_start
      write(*,*)’SYSTEM ....’,system_finish-system_start
      write(*,*)’TOTAL .....’,total_finish-total_start

end program demo_system_cpu_time

Typical Results:

system_cpu_time (3)

March 11, 2021

Generated by manServer 1.08 from 7100249a-e04d-4221-a1fc-8520edcfdc6f using man macros.

[UP]