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