nest2uniq
call nest2uniq( nside, pnest, puniq )
returns 4 since the first pixel (p=0) at 1 is the pixel with Unique ID number 4.