; szss96_km_out.pro -- translated by f2idl
; using argument information from km_out.f and km_out_f.c
; and documentation information from km_out.f

;+
; NAME:
;    szss96_km_out
; 
; PURPOSE:
;    Return km, number of layers
; CALLING SEQUENCE:
;    res = szss96_km_out()
; 
; OUTPUTS:
;    Return km, number of layers [int, scalar]
; MODIFICATION HISTORY:
;    Written 2007 Feb 7, LAY
; :
;     
;-
FUNCTION szss96_km_out
 
; -------------------- This function name

    fcn = 'szss96_km_out'

; -------------------- assign parameters (including dimensions)
KM  = 106
LM  = 5

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


;-------------------------
; check all variables
    if n_params() ne        0 then begin
        print,'szss96_km_out: wrong number of arguments'
        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_km_out__'
    RESULT = CALL_EXTERNAL( lib_name, ENTRY_NAME, $
        return_type =        3, $
        /verbose )

return, RESULT
end