← Back to branch summary

~useakat/cfmc/gg_4g_cfmc

« back to all changes in this revision

Viewing changes to bases50_xhsave/bsisum.f

  • Committer: useakat at gmail
  • Date: 2012-10-01 07:45:50 UTC
  • mfrom: (4.1.13 gg_3g_cfmc_dev)
  • Revision ID: useakat@gmail.com-20121001074550-zs09eu30khm4yvyx
independent ver.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bases50_xhsave/bsisum.f
 
1
C**********************************************************************
 
2
      SUBROUTINE BSISUM( NN, NW )
 
3
C*****************************                                        *
 
4
C* (purpose)                                                          *
 
5
C*    Global sum of the integer NN for a parallel processor           *
 
6
C*    This program has meaning only for the parallel processor.        *
 
7
C*    For the other computers, this must be dummy routine.             *
 
8
C* (Argument)                                                         *
 
9
C*    NN  : Integer data to be broadcasted                            *
 
10
C*    NW  : Number of words (I*4 unit )                               *
 
11
C* (Author)                                                           *
 
12
C*    S. Kawabata   May 1992                                          *
 
13
C**********************************************************************
 
14
      IMPLICIT NONE
 
15
 
 
16
      INTEGER NW,NN(NW)
 
17
 
 
18
      INCLUDE 'bswork.h'
 
19
 
 
20
*#ifdef INTEL
 
21
*         call gisum( NN, 2, IWORK)
 
22
*#elif AP
 
23
*         call c2isum( NGOOD  , NEFF(1) , IR )
 
24
*         call c2isum( NEGTIV , NEFF(2) , IR )
 
25
*#elif NCUBE
 
26
*         call isumrn( NN , 2 )
 
27
*#endif
 
28
      RETURN
 
29
      END