integer size
I size,
integer size, sizetmp
INTEGER size
PARAMETER (size = nmaxevents*maxTimers*MAX_NO_THREADS)
DATA fp_result /size*0.0D0/
DATA i_result /size*0/
DATA i_result1 /size*0/
DATA i_result2 /size*0/
PARAMETER (size = 3*nmaxevents*maxTimers*MAX_NO_THREADS)
DATA values, values1, values2 /size*0/