Real*8 adphi(lShare8,MAX_NO_THREADS)
INTEGER lShare8
PARAMETER ( lShare8 = cacheLineSize/8 )
Real*8 GSR8_value(lShare8,MAX_NO_THREADS)
DO I = 1, lShare8
Real*8 phiGSRL(lShare8, MAX_NO_THREADS )
Real*8 phiGMRL(lShare8, MAX_NO_THREADS )