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

;+
; NAME:
;    szss96_input5
; 
; PURPOSE:
;    TO FILL COMMOM BLOCKS CH4V34 and CH4ALL
; CALLING SEQUENCE:
;    input5
; PROCEDURE:
;    call fortran input5, lines 640-663 of plutot.f
; EXAMPLE:
;    
;    szss96_get_ch4v23,SIGXOUT & if max(sigxout) lt 1e-50 then szss96_input5
; MODIFICATION HISTORY:
;    Fortran Zhu 2007 Nov 14. IDL wrapper LAY 2008 Nov 10
; :
;     
; RESTRUCTIONS:
;    
;    files GGWW.IN1, LBLk.dat2 must be in same directory as input5.pro
;-
PRO szss96_input5
 
; -------------------- This function name

    fcn = 'szss96_input5'

; -------------------- 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        0 then begin
        print,'szss96_input5: wrong number of arguments'
        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_input5_'
    RESULT = CALL_EXTERNAL( lib_name, ENTRY_NAME, $
        /verbose )

end