; szss96_set_ch4all.pro -- translated by f2idl
; using argument information from set_ch4all.f and set_ch4all_f.c
; and documentation information from set_ch4all.f

;+
; NAME:
;    szss96_set_ch4all
; 
; PURPOSE:
;    set values from ch4all common block
; CALLING SEQUENCE:
;    szss96_set_ch4all,GGIN,WWIN,TREFIN
; 
; INPUTS:
;    
;    GGIN - normalized wavenumber variable g from 0 to 1 (unitless) [JM]
;    WWIN - weights for each g (unitless) [JM]
;    TREFIN - reference temperatures (K) [LM]
; MODIFICATION HISTORY:
;    Written 2007 Aug 31, LAY
; :
;     
;-
PRO szss96_set_ch4all,GGIN,WWIN,TREFIN
 
; -------------------- This function name

    fcn = 'szss96_set_ch4all'

; -------------------- 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_set_ch4all: wrong number of arguments'
        return
    endif
    if size(GGIN,/type) ne        5 then begin
        print,'szss96_set_ch4all: GGIN of wrong data type'
        return
    endif
    if size(GGIN,/n_dim) ne        1 then begin
        print,'szss96_set_ch4all: GGIN of wrong n_dim'
        return
    endif
    if not array_equal(size(GGIN,/dim), [JM] ) then begin
        print,'szss96_set_ch4all: GGIN of wrong dim'
        return
    endif
    if size(WWIN,/type) ne        5 then begin
        print,'szss96_set_ch4all: WWIN of wrong data type'
        return
    endif
    if size(WWIN,/n_dim) ne        1 then begin
        print,'szss96_set_ch4all: WWIN of wrong n_dim'
        return
    endif
    if not array_equal(size(WWIN,/dim), [JM] ) then begin
        print,'szss96_set_ch4all: WWIN of wrong dim'
        return
    endif
    if size(TREFIN,/type) ne        5 then begin
        print,'szss96_set_ch4all: TREFIN of wrong data type'
        return
    endif
    if size(TREFIN,/n_dim) ne        1 then begin
        print,'szss96_set_ch4all: TREFIN of wrong n_dim'
        return
    endif
    if not array_equal(size(TREFIN,/dim), [LM] ) then begin
        print,'szss96_set_ch4all: TREFIN of wrong 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_set_ch4all__'
    RESULT = CALL_EXTERNAL( lib_name, ENTRY_NAME, $
        GGIN, WWIN, TREFIN, $
        /verbose )

end