mpmon.f90 File Reference

Progress monitoring. More...

Go to the source code of this file.

Modules
module	mpmonpgs
	Monitoring data.

Functions/Subroutines
subroutine	monini (l, n1, n2)
	Initialize monitoring. More...
subroutine	monpgs (i)
	Progress monitoring. More...
subroutine	monend ()
	End monitoring. More...

Variables
integer(mpi)	mpmonpgs::lun
	output unit More...
integer(mpi)	mpmonpgs::nrep
	repetition rate More...
integer(mpi)	mpmonpgs::nrepmi
	repetition rate max increase More...

Detailed Description

Progress monitoring.

Author

Claus Kleinwort, DESY, 2020 (Claus.nosp@m..Kle.nosp@m.inwor.nosp@m.t@de.nosp@m.sy.de)

Copyright

Copyright (c) 2020 Deutsches Elektronen-Synchroton, Member of the Helmholtz Association, (DESY), HAMBURG, GERMANY

This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details.

You should have received a copy of the GNU Library General Public License along with this program (see the file COPYING.LIB for more details); if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

Monitor progress in routines taking significant amount of cpu time.

Definition in file mpmon.f90.

Function/Subroutine Documentation

monend()

subroutine monend

End monitoring.

Definition at line 82 of file mpmon.f90.

References mpmonpgs::lun.

Referenced by feasma(), mchdec(), mdiags(), mdptrf(), mdutrf(), minver(), mminrs(), mminrsqlp(), mspardiso(), and xloopn().

monini()

subroutine monini	(	integer(mpi), intent(in)	l,
		integer(mpi), intent(in)	n1,
		integer(mpi), intent(in)	n2
	)

Initialize monitoring.

Parameters

[in]	l	output unit
[in]	n1	repetition rate start value
[in]	n2	repetition rate max increase

Definition at line 42 of file mpmon.f90.

References mpmonpgs::lun, mpmonpgs::nrep, and mpmonpgs::nrepmi.

Referenced by feasma(), mchdec(), mdiags(), mdptrf(), mdutrf(), minver(), mminrs(), mminrsqlp(), mspardiso(), and xloopn().

monpgs()

subroutine monpgs

(

integer(mpi), intent(in)

i

)

Progress monitoring.

Parameters

[in]

i

index

If index >= nrep print index and update nrep -> nrep + min(nrep,nrepmi)

Definition at line 67 of file mpmon.f90.

References mpmonpgs::lun, mpmonpgs::nrep, and mpmonpgs::nrepmi.

Referenced by chdec2(), qldec(), qldecb(), qlpssq(), qlsmq(), qlssq(), and sqminl().