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