12 |
IMPLICIT NONE |
IMPLICIT NONE |
13 |
C !DESCRIPTION: |
C !DESCRIPTION: |
14 |
C *==========================================================* |
C *==========================================================* |
15 |
C | SUBROUTINE INI_COMMUNICATION_PATTERNS |
C | SUBROUTINE INI\_COMMUNICATION\_PATTERNS |
16 |
C | o Initialise between tile communication data structures. |
C | o Initialise between tile communication data structures. |
17 |
C *==========================================================* |
C *==========================================================* |
18 |
C | This routine assigns identifiers to each tile and then |
C | This routine assigns identifiers to each tile and then |