; szss96_get_panda.pro -- translated by f2idl
; using argument information from get_panda.f and get_panda_f.c
; and documentation information from get_panda.f

;+
; NAME:
;    szss96_get_panda
; 
; PURPOSE:
;    get values from panda common block
; CALLING SEQUENCE:
;    szss96_get_panda,ZKVTOUT,XA2OUT,XA3OUT,XA4OUT,XP2OUT,XP3OUT,XP4OUT
; 
; OUTPUTS:
;    
;    ZKVTOUT - collision rate in [m**3 s**(-1)]
;    XA2OUT - Einstein coefficient in 1/s for 2.3 micron band
;    XA3OUT - Einstein coefficient in 1/s for 3.3 micron band
;    XA4OUT - Einstein coefficient in 1/s for 7.6 micron band
;    XP2OUT - Collision probability?
;    XP3OUT - Collision probability?
;    XP4OUT - Collision probability?
; MODIFICATION HISTORY:
;    Written 2007 Feb 27, LAY
; :
;     
;-
PRO szss96_get_panda,ZKVTOUT,XA2OUT,XA3OUT,XA4OUT,XP2OUT,XP3OUT,XP4OUT
 
; -------------------- This function name

    fcn = 'szss96_get_panda'

; -------------------- assign parameters (including dimensions)

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

    ZKVTOUT = 0.d
    XA2OUT = 0.d
    XA3OUT = 0.d
    XA4OUT = 0.d
    XP2OUT = 0.d
    XP3OUT = 0.d
    XP4OUT = 0.d

;-------------------------
; check all variables
    if n_params() ne            7 then begin
        print,'szss96_get_panda: wrong number of arguments'
        return
    endif
    if size(ZKVTOUT,/type) ne        5 then begin
        print,'szss96_get_panda: ZKVTOUT of wrong data type'
        return
    endif
    if size(ZKVTOUT,/n_dim) ne        0 then begin
        print,'szss96_get_panda: ZKVTOUT of wrong n_dim'
        return
    endif
    if size(XA2OUT,/type) ne        5 then begin
        print,'szss96_get_panda: XA2OUT of wrong data type'
        return
    endif
    if size(XA2OUT,/n_dim) ne        0 then begin
        print,'szss96_get_panda: XA2OUT of wrong n_dim'
        return
    endif
    if size(XA3OUT,/type) ne        5 then begin
        print,'szss96_get_panda: XA3OUT of wrong data type'
        return
    endif
    if size(XA3OUT,/n_dim) ne        0 then begin
        print,'szss96_get_panda: XA3OUT of wrong n_dim'
        return
    endif
    if size(XA4OUT,/type) ne        5 then begin
        print,'szss96_get_panda: XA4OUT of wrong data type'
        return
    endif
    if size(XA4OUT,/n_dim) ne        0 then begin
        print,'szss96_get_panda: XA4OUT of wrong n_dim'
        return
    endif
    if size(XP2OUT,/type) ne        5 then begin
        print,'szss96_get_panda: XP2OUT of wrong data type'
        return
    endif
    if size(XP2OUT,/n_dim) ne        0 then begin
        print,'szss96_get_panda: XP2OUT of wrong n_dim'
        return
    endif
    if size(XP3OUT,/type) ne        5 then begin
        print,'szss96_get_panda: XP3OUT of wrong data type'
        return
    endif
    if size(XP3OUT,/n_dim) ne        0 then begin
        print,'szss96_get_panda: XP3OUT of wrong n_dim'
        return
    endif
    if size(XP4OUT,/type) ne        5 then begin
        print,'szss96_get_panda: XP4OUT of wrong data type'
        return
    endif
    if size(XP4OUT,/n_dim) ne        0 then begin
        print,'szss96_get_panda: XP4OUT of wrong n_dim'
        return
    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_get_panda__'
    RESULT = CALL_EXTERNAL( lib_name, ENTRY_NAME, $
        ZKVTOUT,XA2OUT,XA3OUT,XA4OUT     ,XP2OUT,XP3OUT,XP4OUT, $
        /verbose )

end