C Library Functions  - percent_done (3)

NAME
percent_done(3f) - [M_messages] non-advancing status counter displays percentage done on terminal displays (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Examples
Author
License

SYNOPSIS
subroutine percent_done(part,whole) 

   class(*),intent(in) :: part
   class(*),intent(in) :: whole

DESCRIPTION
For interactive terminal sessions display the message 

     " Percent Complete: NNN.NN%"

OPTIONS
part number of elements completed. Should take any scalar numeric value.
whole total number of elements to be completed. Should take any scalar numeric value.

EXAMPLES

Sample program: 

   program demo_percent_done
   use m_time, only : system_sleep
   use m_messages, only : percent_done
   implicit none
   integer :: i, nr=10


   do i=1,nr
      call percent_done(i,nr)
      call system_sleep(1)  !give a delay in seconds
   enddo


   end program demo_percent_done
Results: 

   Percent Complete: 100.00%

AUTHOR
John S. Urban

LICENSE
Public License

Nemo Release 3.1 percent_done (3) February 23, 2025
Generated by manServer 1.08 from ca30000b-8f05-4d24-b0ce-17d919382fd8 using man macros.