pro print_pointing1,filout,pointid,npoint,rmspnt,good
; prints results from pointing_eval to ascii file filout

npt=n_elements(pointid)
f1='(a8,2x,i1,2x,5i4,2x,5f8.4)'
sg=[1,2,3,4,6]
sg1=[0,1,2,3,4]

openw,iun,filout,/get_lun
printf,iun,'PointID, qual         Npoint                        RMSpoint'
printf,iun,'                g   r   i   z   D51    r      g-r     r-i     i-z    g-D51'
printf,iun,''
for i=0,npt-1 do begin
  printf,iun,pointid(i),good(i),npoint(sg,i),rmspnt(sg1,i),format=f1
endfor

close,iun
free_lun,iun

end