PRO scan4limb,image,name,head,h_head,index,sflag, mini=mini, maxi=maxi @wflimb.com IF N_ELEMENTS(head) EQ 0 THEN RETURN IF N_ELEMENTS(cflag) EQ 0 THEN cflag = 0 ; *** check for next strings in fits header : ; CRPIX1, CRPIX2, CRRADIUS or RADIUS. x0 = 0 & y0 = 0 & dr = 0 res = chk_h4s(head,"OCLTR_X") x0 = FLOAT(res) res = chk_h4s(head,"OCLTR_Y") y0 = FLOAT(res) res = chk_h4s(head,"OCLTR_R") IF res GT 0 THEN BEGIN dr = FLOAT(res) ENDIF ELSE BEGIN res = chk_h4s(head,"OCLTR_R") dr = FLOAT(res) ENDELSE ; ** in case no strings found, try with wflimb. WHILE ((( x0 OR y0 OR dr ) LT 1) AND (cflag EQ 0)) DO BEGIN flag_limb = 1 wflimb,image,head,name,minimg=mini,maximg=maxi IF flag_limb GT 3 THEN BEGIN IF cflag EQ 0 THEN BEGIN SXADDPAR,head,'OCLTR_X', x0 SXADDPAR,head,'OCLTR_Y', y0 SXADDPAR,head,'OCLTR_R', dr SXADDPAR,head,'HISTORY','='+"'"+name+"'"+'/' HANDLE_VALUE,h_head(index),head,/SET ENDIF ENDIF ENDWHILE cflag = 0 RETURN END