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	C $Header: $
2	C $Name: $
3	#include "CPP_EEOPTIONS.h"
4
5	SUBROUTINE BAR2_INIT( myThid )
6	IMPLICIT NONE
7	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	IMPLICIT NONE
31	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