HOWTO: use 'PrintLevel?' in order to reduce output.
1) Decide during programming, how important your write-statement is.
subroutine Bla use output ... if (DoPr(1)) write(*,*) 'Hello world!' ... if (DoPr(2)) write(*,*) 'We still have the old known problem!' ... if (DoPr(5)) write(*,*) 'Big Problem. STOP' stop end subroutine
- Level 5 (TERMINAL) -- A terminal error is not an informational error because corrective action within the program is generally not reasonable. In normal usage, execution should be terminated immediately when an error of this class occurs.
- Level 4 (FATAL) -- A fatal error indicates the existence of a condition that may be serious. In most cases, user or calling routine must take corrective action to recover.
- Level 3 (WARNING) -- A warning indicates the existence of a condition that may require corrective action by user or calling routine
- Level 2 (ALERT) -- Indicates that the user should be adviced about events occuring in the code.
- Level 1 (NOTE) -- Is issued to indicate the possibility of a trivial error or simply to provide information about the computations.
- Level 0 (BASIC) -- Some basic messages
2) Decide in your jobCard, which output you want to have.
By default, everything is written.
a) switch off the writing of both lines in 1):
$input ... DoPrLevel(1) = .FALSE. DoPrLevel(2) = .FALSE. $end
(I personally use this for my HiLepton-one-week-runs. K.G.)
b) switch off the writing of the first line in 1):
$input ... DoPrLevel(1) = .FALSE. $end
c) switch off the writing of the second line in 1):
[Is also possible, but makes not really sense ;) ]
$input ... DoPrLevel(2) = .FALSE. $end