17 |
C === Global data === |
C === Global data === |
18 |
#include "SIZE.h" |
#include "SIZE.h" |
19 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
20 |
|
#include "MONITOR.h" |
21 |
|
|
22 |
C === Routine arguments === |
C === Routine arguments === |
23 |
INTEGER myNr |
INTEGER myNr |
36 |
O theMin,theMax,theMean,theSD, |
O theMin,theMax,theMean,theSD, |
37 |
I myThid ) |
I myThid ) |
38 |
|
|
39 |
_BEGIN_MASTER( myThid ) |
CALL MON_OUT_RL( arrName, theMax, mon_foot_max ) |
40 |
WRITE(*,'(A,A20,A,1PE22.14)') |
CALL MON_OUT_RL( arrName, theMin, mon_foot_min ) |
41 |
& 'MON_PRINTSTATS_RL: ',arrName,' min=',theMin |
CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ) |
42 |
WRITE(*,'(A,A20,A,1PE22.14)') |
CALL MON_OUT_RL( arrName, theSD, mon_foot_sd ) |
|
& 'MON_PRINTSTATS_RL: ',arrName,' max=',theMax |
|
|
WRITE(*,'(A,A20,A,1PE22.14)') |
|
|
& 'MON_PRINTSTATS_RL: ',arrName,' mean=',theMean |
|
|
WRITE(*,'(A,A20,A,1PE22.14)') |
|
|
& 'MON_PRINTSTATS_RL: ',arrName,' S.D.=',theSD |
|
|
_END_MASTER( ) |
|
43 |
|
|
44 |
RETURN |
RETURN |
45 |
END |
END |