FUNCTION convers5,  encalpha, prestep, resencalpha, stepboarder, p1, p2, p3, p4
;
;#############################################################################
;#
;# Function name    : CONVERS5 
;#
;# Author           : Dietmar Germerott
;# Language         : IDL
;# Purpose          : Determines the step where the search process starts
;# Creation date    : 28-MAR-1996
;# Update date      : 28-MAR-1996
;# External modules : 
;#
;# Call Sequence    : VAR = convers5
;#
;# Arguments        : encalpha -
;#            prestep -
;#            resencalpha -
;#            stepboarder -
;#                    p1 ... p4 -
;#
;# Description      : 
;#
;#
;#############################################################################

   search = LONG(prestep)

   REPEAT BEGIN

      search = search - 1
      efit_1 = encofit(search, stepboarder, p1, p2, p3, p4)/10000.0
      efit_2 = encofit(search - 1, stepboarder, p1, p2, p3, p4)/10000.0
      dif_1 = efit_1 - encalpha
      dif_2 = efit_2 - encalpha
      diff_ = dif_1 * dif_2

   ENDREP UNTIL ((diff_ LE 0) OR (search LE 0))

   IF (ABS(dif_1) LE ABS(dif_2)) THEN BEGIN

      step = search
      resencalpha = efit_1

   ENDIF ELSE BEGIN

      step = search - 1
      resencalpha = efit_2

   ENDELSE

   RETURN, step

END


;---------------------------------------------------------------------------
; End of 'CONVERS5.PRO'.
;---------------------------------------------------------------------------