eesupp/src/master_cpu_thread.F

8716d94355 Dimi*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: MASTER_CPU_THREAD
                0005
                0006 C     !INTERFACE:
                0007       LOGICAL FUNCTION MASTER_CPU_THREAD( myThid )
                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
2f1974f6c6 Dimi*0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
8716d94355 Dimi*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   MASTER_CPU_THREAD :: true if master CPU & master thread
                0025       INTEGER myThid
                0026 CEOP
                0027
                0028 C     !LOCAL VARIABLES:
                0029
                0030 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0031
                0032       MASTER_CPU_THREAD = .FALSE.
                0033
                0034 #ifdef ALLOW_USE_MPI
                0035       IF ( mpiMyId.EQ.0 ) THEN
                0036         _BEGIN_MASTER( myThid )
                0037         MASTER_CPU_THREAD = .TRUE.
                0038         _END_MASTER( myThid )
                0039       ENDIF
                0040 #else /* ALLOW_USE_MPI */
                0041         _BEGIN_MASTER( myThid )
                0042         MASTER_CPU_THREAD = .TRUE.
                0043         _END_MASTER( myThid )
                0044 #endif /* ALLOW_USE_MPI */
                0045
                0046       RETURN
                0047       END