---

Manual Reference Pages  - 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
Example
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.

EXAMPLE

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

---

percent_done (3)

March 11, 2021

Generated by manServer 1.08 from 5088bfc3-bbe3-4165-bda4-49f59642921a using man macros.