spinCount = 0
spinCount = spinCount+1
INTEGER spinCount
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)