2 |
C $Name$ |
C $Name$ |
3 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
4 |
|
|
5 |
|
CBOP |
6 |
|
C !ROUTINE: COMM_STATS |
7 |
|
|
8 |
|
C !INTERFACE: |
9 |
SUBROUTINE COMM_STATS |
SUBROUTINE COMM_STATS |
|
C /==========================================================\ |
|
|
C | SUBROUTINE COMM_STATS | |
|
|
C | o Print out statistics from communication routines. | |
|
|
C \==========================================================/ |
|
10 |
IMPLICIT NONE |
IMPLICIT NONE |
11 |
|
|
12 |
|
C !DESCRIPTION: |
13 |
|
C *========================================================== |
14 |
|
C | SUBROUTINE COMM_STATS |
15 |
|
C | o Print out statistics from communication routines. |
16 |
|
C *========================================================== |
17 |
|
|
18 |
|
C !USES: |
19 |
C == Global variables == |
C == Global variables == |
20 |
#include "SIZE.h" |
#include "SIZE.h" |
21 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
23 |
#include "EXCH.h" |
#include "EXCH.h" |
24 |
#include "BAR2.h" |
#include "BAR2.h" |
25 |
|
|
26 |
|
C !LOCAL VARIABLES: |
27 |
C == Local variables == |
C == Local variables == |
28 |
|
C bi, bj, I :: Loop counters |
29 |
|
C msgBuf :: Temp. for building text messages. |
30 |
INTEGER bi, bj, I |
INTEGER bi, bj, I |
31 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
32 |
|
CEOP |
33 |
|
|
34 |
C o For each tile print its excange statistics |
C o For each tile print its excange statistics |
35 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |