;+
; NAME:
;  func_ey92haze_p8
; PURPOSE: (one line)
;  lightcurve function
; DESCRIPTION:
;  lightcurve function calling ey92, phi(y), clear
; CATEGORY:
;  Occultation lightcurve (oclc)
; CALLING SEQUENCE:
;  func_ey92clear, y, param, z
; INPUTS:
;  y = shadow radius (km)
;  param = [nuref, lamref, r1, kappa1, htau1] or 
;          [nuref, lamref, r1, kappa1, htau1, b]
; OPTIONAL INPUT PARAMETERS:
;  none
; KEYWORD INPUT PARAMETERS:
;  none
; KEYWORD OUTPUT PARAMETERS:
;  none
; OUTPUTS:
;  z = lightcurve
; COMMON BLOCKS:
;  None
; SIDE EFFECTS:
; RESTRICTIONS:
;  None
; PROCEDURE:
;  Elliot and Young 1992, AJ 103, pp 991;
; MODIFICATION HISTORY:
;  Written 2006 Jun 28, Leslie Young
;-

pro func_ey92haze_p8, y, param, phi

    print, param

    km = 1d5

    rref = 1250. * km    ; reference radius.  Use same radius as EY92.
    nuref = param[0] * 1e-9     ; refractivity
    lamref = param[1]           ; energy ratio
    a = 0                       ; constant molecular weight
    if n_elements(param) eq 6 then b = param[5] else b = 0 ; temperature exponent
    r1 =  param[2] * km         ;  top of haze
    kappa1 = param[3]           ; haze ext coeff at onset
    htau1 = param[4] * km       ; haze scale height at onset
    delta = 4.343e9 * km ; distance in cm for p8 event
    rsurf = 1000. * km          ; curoff
    farside = 0                 ; no farside
    haze = 1                    ; haze
    order = 4            ; order for series expansion
    phi = oclc_ey92_phi_of_rho(rref, nuref, $
                               lamref,  a, b, $
                               r1, kappa1, htau1, $
                               delta, rsurf, farside, haze, order, $
                               y)
    
end