pkg/openad/ad_s_master_cpu_thread.F

69361556c2 Mart*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: MASTER_CPU_THREAD
                0005
                0006 C     !INTERFACE:
                0007       SUBROUTINE OAD_S_MASTER_CPU_THREAD( myThid, isMasterCpuThread )
                0008
                0009 C     !DESCRIPTION:
                0010 C     return TRUE if master CPU & master thread
                0011
                0012 C     !USES:
                0013       IMPLICIT NONE
                0014
                0015 C Global variables
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #ifdef ALLOW_USE_MPI
                0019 # include "EESUPPORT.h"
                0020 #endif
                0021
                0022 C     !INPUT/OUTPUT PARAMETERS:
                0023 C   myThid            :: my Thread Id number
                0024 C   isMasterCpuThread :: true if master CPU & master thread
                0025       INTEGER myThid
                0026       LOGICAL isMasterCpuThread
                0027 CEOP
                0028
                0029 C     !LOCAL VARIABLES:
                0030
                0031 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0032
                0033       isMasterCpuThread = .FALSE.
                0034
                0035 #ifdef ALLOW_USE_MPI
                0036       IF ( mpiMyId.EQ.0 ) THEN
                0037         _BEGIN_MASTER( myThid )
                0038         isMasterCpuThread = .TRUE.
                0039         _END_MASTER( myThid )
                0040       ENDIF
                0041 #else /* ALLOW_USE_MPI */
                0042         _BEGIN_MASTER( myThid )
                0043         isMasterCpuThread = .TRUE.
                0044         _END_MASTER( myThid )
                0045 #endif /* ALLOW_USE_MPI */
                0046
                0047       RETURN
                0048       END