; szss96_zkinte.pro -- translated by f2idl
; using argument information from plutot.f and plutot_f.c
; and documentation information from plutot_d.f

;+
; NAME:
;    szss96_zkinte
; 
; PURPOSE:
;    To intepolate the k-coefficients to T
; CALLING SEQUENCE:
;    res = szss96_zkinte(T,J,ICON)
; 
; INPUTS:
;    
;    T - Temperature (K)
;    J - index into k-coefficients (1..JM)
;    ICON - ICON=1 SIG4A; ICON=2 SIG4B
; RESTRICTIONS:
;    Must set up ch4all and ch4v4 parameters first,
;    by calling input6 or set_ch4all, set_ch4v4
; MODIFICATION HISTORY:
;    Fortran Zhu 2007 Nov 14. IDL wrapper LAY 2007 Aug 28
; :
;     
;-
FUNCTION szss96_zkinte,T,J,ICON
 
; -------------------- This function name

    fcn = 'szss96_zkinte'

; -------------------- assign parameters (including dimensions)
JM  = 30
LM  = 4

;-------------------------
; setup the output variables that will be passed to the fortran
; routine


;-------------------------
; check all variables
    if n_params() ne            3 then begin
        print,'szss96_zkinte: wrong number of arguments'
        return, 0
    endif
    if size(T,/type) ne        5 then begin
        print,'szss96_zkinte: T of wrong data type'
        return, 0
    endif
    if size(T,/n_dim) ne        0 then begin
        print,'szss96_zkinte: T of wrong n_dim'
        return, 0
    endif
    if size(J,/type) ne        3 then begin
        print,'szss96_zkinte: J of wrong data type'
        return, 0
    endif
    if size(J,/n_dim) ne        0 then begin
        print,'szss96_zkinte: J of wrong n_dim'
        return, 0
    endif
    if size(ICON,/type) ne        3 then begin
        print,'szss96_zkinte: ICON of wrong data type'
        return, 0
    endif
    if size(ICON,/n_dim) ne        0 then begin
        print,'szss96_zkinte: ICON of wrong n_dim'
        return, 0
    endif

;-------------------------
; Find root directory for library tname
    findpro, fcn, dirlist=dirlist, /noprint
    if dirlist[0] eq '' then root = '.' else root = dirlist[0]
;-------------------------
; CALL
    lib_name = root + '/szss96.so'
    entry_name = 'idl_ce_call_zkinte_'
    RESULT = CALL_EXTERNAL( lib_name, ENTRY_NAME, $
        T,J,ICON, $
        return_type =        5, $
        /verbose )

return, RESULT
end