eesupp/src/bar2.F

C $Header: $
C $Name: $
#include "CPP_EEOPTIONS.h"

      SUBROUTINE BAR2_INIT( myThid )
      IMPLICIT NONE
C
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "BAR2.h"
C
      INTEGER myThid
      INTEGER I
C
      DO I = 1, lShare4
       BAR2_level(I,myThid) = 0
       BAR2_barrierCount(I,myThid) = 0
       BAR2_spinsCount(I,myThid) = 0
       BAR2_spinsCount(I,myThid) = 0
       BAR2_spinsMax  (I,myThid) = 0
       BAR2_spinsMin  (I,myThid) = 1000000000
      ENDDO
C
      bar2CollectStatistics = .TRUE.
C
      RETURN
      END
      SUBROUTINE BAR2( myThid )
      IMPLICIT NONE
C
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "BAR2.h"
C
      INTEGER myThid
C
      INTEGER myLevel
      INTEGER nDone
      INTEGER I
      INTEGER spinCount
C
      spinCount = 0
C
      IF ( myThid .NE. 1 ) THEN

       BAR2_level(1,myThid) = BAR2_level(1,myThid)+1
       myLevel              = BAR2_level(1,myThid)
   10  CONTINUE
        IF ( BAR2_level(1,1) .EQ. myLevel  ) GOTO 11
        spinCount = spinCount+1
        CALL FOOL_THE_COMPILER( BAR2_level )
       GOTO 10
   11  CONTINUE

      ELSE

       myLevel = BAR2_level(1,1)
   12  CONTINUE
        CALL FOOL_THE_COMPILER( BAR2_level )
        nDone   = 1
        DO I = 2, nThreads
         IF ( BAR2_level(1,1) .EQ. BAR2_level(1,I)-1 ) nDone = nDone+1
        ENDDO
        spinCount = spinCount+1
       IF ( nDone .LT. nThreads ) GOTO 12

       BAR2_level(1,1) = myLevel+1

      ENDIF
C
      BAR2_barrierCount(1,myThid) = BAR2_barrierCount(1,myThid)+1
      BAR2_spinsCount(1,myThid) = BAR2_spinsCount(1,myThid)+spinCount
      BAR2_spinsMax  (1,myThid) = MAX(BAR2_spinsMax(1,myThid),spinCount)
      BAR2_spinsMin  (1,myThid) = MIN(BAR2_spinsMin(1,myThid),spinCount)
C
      RETURN
      END

1	cnh	1.3	C $Header: $
2			C $Name: $
3	cnh	1.1	#include "CPP_EEOPTIONS.h"
4
5			SUBROUTINE BAR2_INIT( myThid )
6	adcroft	1.2	IMPLICIT NONE
7	cnh	1.1	C
8			#include "SIZE.h"
9			#include "EEPARAMS.h"
10			#include "EESUPPORT.h"
11			#include "BAR2.h"
12			C
13			INTEGER myThid
14			INTEGER I
15			C
16			DO I = 1, lShare4
17			BAR2_level(I,myThid) = 0
18			BAR2_barrierCount(I,myThid) = 0
19			BAR2_spinsCount(I,myThid) = 0
20			BAR2_spinsCount(I,myThid) = 0
21			BAR2_spinsMax (I,myThid) = 0
22			BAR2_spinsMin (I,myThid) = 1000000000
23			ENDDO
24			C
25			bar2CollectStatistics = .TRUE.
26			C
27			RETURN
28			END
29			SUBROUTINE BAR2( myThid )
30	adcroft	1.2	IMPLICIT NONE
31	cnh	1.1	C
32			#include "SIZE.h"
33			#include "EEPARAMS.h"
34			#include "EESUPPORT.h"
35			#include "BAR2.h"
36			C
37			INTEGER myThid
38			C
39			INTEGER myLevel
40			INTEGER nDone
41			INTEGER I
42			INTEGER spinCount
43			C
44			spinCount = 0
45			C
46			IF ( myThid .NE. 1 ) THEN
47
48			BAR2_level(1,myThid) = BAR2_level(1,myThid)+1
49			myLevel = BAR2_level(1,myThid)
50			10 CONTINUE
51			IF ( BAR2_level(1,1) .EQ. myLevel ) GOTO 11
52			spinCount = spinCount+1
53			CALL FOOL_THE_COMPILER( BAR2_level )
54			GOTO 10
55			11 CONTINUE
56
57			ELSE
58
59			myLevel = BAR2_level(1,1)
60			12 CONTINUE
61			CALL FOOL_THE_COMPILER( BAR2_level )
62			nDone = 1
63			DO I = 2, nThreads
64			IF ( BAR2_level(1,1) .EQ. BAR2_level(1,I)-1 ) nDone = nDone+1
65			ENDDO
66			spinCount = spinCount+1
67			IF ( nDone .LT. nThreads ) GOTO 12
68
69			BAR2_level(1,1) = myLevel+1
70
71			ENDIF
72			C
73			BAR2_barrierCount(1,myThid) = BAR2_barrierCount(1,myThid)+1
74			BAR2_spinsCount(1,myThid) = BAR2_spinsCount(1,myThid)+spinCount
75			BAR2_spinsMax (1,myThid) = MAX(BAR2_spinsMax(1,myThid),spinCount)
76			BAR2_spinsMin (1,myThid) = MIN(BAR2_spinsMin(1,myThid),spinCount)
77			C
78			RETURN
79			END
80