PRO idxaz,idx,a,z
a=idx mod 1000L
z=FIX((idx+0.1D0) / 1000L)
IF N_ELEMENTS(a) EQ 1 THEN BEGIN
    a=a[0]
    z=z[0]
ENDIF
END