worker Subroutine

  1. forbear_test.F90
  2. forbear_minimal
  3. worker

subroutine worker()

The worker.

Arguments

None

Called By

proc~~worker~~CalledByGraph proc~worker worker program~forbear_minimal forbear_minimal program~forbear_minimal->proc~worker
Help

Source Code

worker

Source Code

   subroutine worker
   !< The worker.
   real(R8P)        :: x
   real(R8P)        :: y
   integer(I4P)     :: i
   integer(I4P)     :: j
   call bar%start
   x = 0._R8P
   do i=1, 20
      x = x + 0.05_R8P
      do j=1, 10000000
         y = sqrt(x) ! just spend some times
      enddo
      call bar%update(current=x)
   enddo
   endsubroutine worker

All Procedures