Real*4 adphi(lShare4,MAX_NO_THREADS)
INTEGER lShare4
PARAMETER ( lShare4 = cacheLineSize/4 )
DO I = 1, lShare4
Real*4 phiGSRS(lShare4, MAX_NO_THREADS )
INTEGER phiGSI (lShare4, MAX_NO_THREADS )
INTEGER key1(lShare4,MAX_NO_THREADS)
INTEGER key2(lShare4,MAX_NO_THREADS)
INTEGER key3(lShare4,MAX_NO_THREADS)
Real*4 phiGMRS(lShare4, MAX_NO_THREADS )
INTEGER phiGMI (lShare4, MAX_NO_THREADS )