18 |
IMPLICIT NONE |
IMPLICIT NONE |
19 |
C !DESCRIPTION: |
C !DESCRIPTION: |
20 |
C *==========================================================* |
C *==========================================================* |
21 |
C | SUBROUTINE GLOBAL_SUM_R4 |
C | SUBROUTINE GLOBAL\_SUM\_R4 |
22 |
C | o Handle sum for real*4 data. |
C | o Handle sum for real*4 data. |
23 |
C *==========================================================* |
C *==========================================================* |
24 |
C | Perform sum an array of one value per thread and then |
C | Perform sum an array of one value per thread and then |
106 |
IMPLICIT NONE |
IMPLICIT NONE |
107 |
C !DESCRIPTION: |
C !DESCRIPTION: |
108 |
C *==========================================================* |
C *==========================================================* |
109 |
C | SUBROUTINE GLOBAL_SUM_R8 |
C | SUBROUTINE GLOBAL\_SUM\_R8 |
110 |
C | o Handle sum for real*8 data. |
C | o Handle sum for real*8 data. |
111 |
C *==========================================================* |
C *==========================================================* |
112 |
C | Perform sum an array of one value per thread and then |
C | Perform sum an array of one value per thread and then |
202 |
IMPLICIT NONE |
IMPLICIT NONE |
203 |
C !DESCRIPTION: |
C !DESCRIPTION: |
204 |
C *==========================================================* |
C *==========================================================* |
205 |
C | SUBROUTINE GLOBAL_SUM_INT |
C | SUBROUTINE GLOBAL\_SUM\_INT |
206 |
C | o Handle sum for integer data. |
C | o Handle sum for integer data. |
207 |
C *==========================================================* |
C *==========================================================* |
208 |
C | Perform sum an array of one value per thread and then |
C | Perform sum an array of one value per thread and then |