timeinfo()

subroutine parautil::timeinfo	(	integer	totit,
		integer	curit,
		real(dp)	startt,
		character(len=30)	loopinfo
	)

Definition at line 313 of file ompi_kronlininv.f08.

    use, intrinsic :: iso_fortran_env, only: output_unit
    character(len=30) :: loopinfo
    integer :: totit,curit
    real(dp) :: frac,eta,startt
    
    frac = real(curit,dp)/(real(totit,dp))
    eta = ( (mpi_wtime()-startt) / real(curit,dp) ) * &
         (real(totit-curit,dp))
    !! char(27) -> escape
    !! ESC[#A -> moves cursor up # lines (ANSI)
    !! achar(13) -> carriage return (ASCII)
    write(output_unit,fmt='(a5,a34,f7.3,a7,f12.2,1x,a3)') &
         char(27)//'[1A'//achar(13),&
         adjustl(loopinfo)//':  ',&
         frac*100_dp,"%,  ETA:",eta/60.0,"min"
    flush(output_unit) !! to make sure it prints immediately 

Here is the caller graph for this function: