removes PARAMS where we do not need
Allan Cornet [Sat, 5 Apr 2008 10:35:25 +0000 (10:35 +0000)]
598 files changed:
scilab/modules/arnoldi/includes/gw_arnoldi.h
scilab/modules/arnoldi/sci_gateway/c/sci_dnaupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_dneupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_dsaupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_dseupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_znaupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_zneupd.c
scilab/modules/boolean/includes/gw_boolean.h
scilab/modules/boolean/sci_gateway/c/sci_and.c
scilab/modules/boolean/sci_gateway/c/sci_bool2s.c
scilab/modules/boolean/sci_gateway/c/sci_find.c
scilab/modules/boolean/sci_gateway/c/sci_or.c
scilab/modules/cacsd/includes/gw_cacsd0.h
scilab/modules/cacsd/includes/gw_cacsd1.h
scilab/modules/cacsd/includes/gw_cacsd2.h
scilab/modules/cacsd/includes/gw_cacsd3.h
scilab/modules/cacsd/includes/gw_slicot.h
scilab/modules/cacsd/sci_gateway/c/gw_cacsd2.c
scilab/modules/cacsd/sci_gateway/c/sci_arl2.c
scilab/modules/cacsd/sci_gateway/c/sci_contr.c
scilab/modules/cacsd/sci_gateway/c/sci_ereduc.c
scilab/modules/cacsd/sci_gateway/c/sci_freq.c
scilab/modules/cacsd/sci_gateway/c/sci_fstair.c
scilab/modules/cacsd/sci_gateway/c/sci_gschur.c
scilab/modules/cacsd/sci_gateway/c/sci_gspec.c
scilab/modules/cacsd/sci_gateway/c/sci_ldiv.c
scilab/modules/cacsd/sci_gateway/c/sci_ltitr.c
scilab/modules/cacsd/sci_gateway/c/sci_ppol.c
scilab/modules/cacsd/sci_gateway/c/sci_rankqr.c
scilab/modules/cacsd/sci_gateway/c/sci_residu.c
scilab/modules/cacsd/sci_gateway/c/sci_rtitr.c
scilab/modules/cacsd/sci_gateway/c/sci_tzer.c
scilab/modules/completion/includes/gw_completion.h
scilab/modules/completion/sci_gateway/c/sci_completion.c
scilab/modules/core/includes/Os_specific.h
scilab/modules/core/includes/callFunctionFromGateway.h
scilab/modules/core/includes/gw_core.h
scilab/modules/core/includes/intmacr2tree.h
scilab/modules/core/includes/stack-c.h
scilab/modules/core/includes/stack1.h
scilab/modules/core/includes/stack2.h
scilab/modules/core/includes/stack3.h
scilab/modules/core/sci_gateway/c/sci_arg.c
scilab/modules/core/sci_gateway/c/sci_banner.c
scilab/modules/core/sci_gateway/c/sci_chdir.c
scilab/modules/core/sci_gateway/c/sci_clear.c
scilab/modules/core/sci_gateway/c/sci_clearfun.c
scilab/modules/core/sci_gateway/c/sci_clearglobal.c
scilab/modules/core/sci_gateway/c/sci_comp.c
scilab/modules/core/sci_gateway/c/sci_debug.c
scilab/modules/core/sci_gateway/c/sci_delbpt.c
scilab/modules/core/sci_gateway/c/sci_dispbpt.c
scilab/modules/core/sci_gateway/c/sci_errcatch.c
scilab/modules/core/sci_gateway/c/sci_errclear.c
scilab/modules/core/sci_gateway/c/sci_error.c
scilab/modules/core/sci_gateway/c/sci_exists.c
scilab/modules/core/sci_gateway/c/sci_format.c
scilab/modules/core/sci_gateway/c/sci_fromc.c
scilab/modules/core/sci_gateway/c/sci_fromjava.c
scilab/modules/core/sci_gateway/c/sci_funcprot.c
scilab/modules/core/sci_gateway/c/sci_funptr.c
scilab/modules/core/sci_gateway/c/sci_getcwd.c
scilab/modules/core/sci_gateway/c/sci_getdebuginfo.c
scilab/modules/core/sci_gateway/c/sci_getmd5.c
scilab/modules/core/sci_gateway/c/sci_getmemory.c
scilab/modules/core/sci_gateway/c/sci_getmodules.c
scilab/modules/core/sci_gateway/c/sci_getos.c
scilab/modules/core/sci_gateway/c/sci_getscilabmode.c
scilab/modules/core/sci_gateway/c/sci_getvariablesonstack.c
scilab/modules/core/sci_gateway/c/sci_getversion.c
scilab/modules/core/sci_gateway/c/sci_global.c
scilab/modules/core/sci_gateway/c/sci_gstacksize.c
scilab/modules/core/sci_gateway/c/sci_havewindow.c
scilab/modules/core/sci_gateway/c/sci_ieee.c
scilab/modules/core/sci_gateway/c/sci_intppty.c
scilab/modules/core/sci_gateway/c/sci_isdef.c
scilab/modules/core/sci_gateway/c/sci_iserror.c
scilab/modules/core/sci_gateway/c/sci_isglobal.c
scilab/modules/core/sci_gateway/c/sci_islittleendian.c
scilab/modules/core/sci_gateway/c/sci_lasterror.c
scilab/modules/core/sci_gateway/c/sci_librarieslist.c
scilab/modules/core/sci_gateway/c/sci_libraryinfo.c
scilab/modules/core/sci_gateway/c/sci_macr2lst.c
scilab/modules/core/sci_gateway/c/sci_macr2tree.c
scilab/modules/core/sci_gateway/c/sci_mode.c
scilab/modules/core/sci_gateway/c/sci_mtlb_mode.c
scilab/modules/core/sci_gateway/c/sci_predef.c
scilab/modules/core/sci_gateway/c/sci_resume.c
scilab/modules/core/sci_gateway/c/sci_return.c
scilab/modules/core/sci_gateway/c/sci_sciargs.c
scilab/modules/core/sci_gateway/c/sci_setbpt.c
scilab/modules/core/sci_gateway/c/sci_stacksize.c
scilab/modules/core/sci_gateway/c/sci_type.c
scilab/modules/core/sci_gateway/c/sci_typename.c
scilab/modules/core/sci_gateway/c/sci_warning.c
scilab/modules/core/sci_gateway/c/sci_what.c
scilab/modules/core/sci_gateway/c/sci_where.c
scilab/modules/core/sci_gateway/c/sci_whereis.c
scilab/modules/core/sci_gateway/c/sci_who.c
scilab/modules/core/sci_gateway/c/sci_with_module.c
scilab/modules/core/src/c/LoadFunctionsTab.c
scilab/modules/core/src/c/cluni0.c
scilab/modules/core/src/c/csignal.c
scilab/modules/core/src/c/force_link.c
scilab/modules/core/src/c/fromc.h
scilab/modules/core/src/c/intmacr2tree.c
scilab/modules/core/src/c/stack1.c
scilab/modules/core/src/c/stack2.c
scilab/modules/core/src/c/stack3.c
scilab/modules/data_structures/includes/gw_data_structures1.h
scilab/modules/data_structures/includes/gw_data_structures2.h
scilab/modules/data_structures/sci_gateway/c/sci_definedfields.c
scilab/modules/data_structures/sci_gateway/c/sci_getfield.c
scilab/modules/data_structures/sci_gateway/c/sci_glist.c
scilab/modules/data_structures/sci_gateway/c/sci_list.c
scilab/modules/data_structures/sci_gateway/c/sci_lsslist.c
scilab/modules/data_structures/sci_gateway/c/sci_lstcat.c
scilab/modules/data_structures/sci_gateway/c/sci_lstsize.c
scilab/modules/data_structures/sci_gateway/c/sci_mlist.c
scilab/modules/data_structures/sci_gateway/c/sci_rlist.c
scilab/modules/data_structures/sci_gateway/c/sci_setfield.c
scilab/modules/data_structures/sci_gateway/c/sci_tlist.c
scilab/modules/differential_equations/includes/gw_differential_equations1.h
scilab/modules/differential_equations/includes/gw_differential_equations2.h
scilab/modules/differential_equations/includes/gw_differential_equations3.h
scilab/modules/differential_equations/includes/gw_differential_equations4.h
scilab/modules/differential_equations/includes/gw_differential_equations6.h
scilab/modules/differential_equations/sci_gateway/c/sci_bvode.c
scilab/modules/differential_equations/sci_gateway/c/sci_feval.c
scilab/modules/differential_equations/sci_gateway/c/sci_int2d.c
scilab/modules/differential_equations/sci_gateway/c/sci_int3d.c
scilab/modules/differential_equations/sci_gateway/c/sci_intg.c
scilab/modules/differential_equations/sci_gateway/c/sci_odc.c
scilab/modules/differential_equations/sci_gateway/c/sci_ode.c
scilab/modules/differential_equations/src/c/fydot2table.c
scilab/modules/dynamic_link/examples/interfaces/c/intex17c.c
scilab/modules/dynamic_link/help/en_US/ilib_build.xml
scilab/modules/dynamic_link/includes/gw_dynamic_link.h
scilab/modules/dynamic_link/sci_gateway/c/sci_addinter.c
scilab/modules/dynamic_link/sci_gateway/c/sci_c_link.c
scilab/modules/dynamic_link/sci_gateway/c/sci_call.c
scilab/modules/dynamic_link/sci_gateway/c/sci_getdynlibext.c
scilab/modules/dynamic_link/sci_gateway/c/sci_link.c
scilab/modules/dynamic_link/sci_gateway/c/sci_ulink.c
scilab/modules/dynamic_link/tests/unit_tests/ilib_build.tst
scilab/modules/dynamic_link/tests/unit_tests/ilib_build.unix.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/ilib_build.win.dia.ref
scilab/modules/elementary_functions/includes/elementary_functions.h
scilab/modules/elementary_functions/includes/gw_elementary_functions.h
scilab/modules/elementary_functions/includes/sci_tools.h
scilab/modules/elementary_functions/sci_gateway/c/sci_abs.c
scilab/modules/elementary_functions/sci_gateway/c/sci_acos.c
scilab/modules/elementary_functions/sci_gateway/c/sci_asin.c
scilab/modules/elementary_functions/sci_gateway/c/sci_atan.c
scilab/modules/elementary_functions/sci_gateway/c/sci_ceil.c
scilab/modules/elementary_functions/sci_gateway/c/sci_chinesehat.c
scilab/modules/elementary_functions/sci_gateway/c/sci_clean.c
scilab/modules/elementary_functions/sci_gateway/c/sci_conj.c
scilab/modules/elementary_functions/sci_gateway/c/sci_cos.c
scilab/modules/elementary_functions/sci_gateway/c/sci_cumprod.c
scilab/modules/elementary_functions/sci_gateway/c/sci_cumsum.c
scilab/modules/elementary_functions/sci_gateway/c/sci_diag.c
scilab/modules/elementary_functions/sci_gateway/c/sci_dsearch.c
scilab/modules/elementary_functions/sci_gateway/c/sci_exp.c
scilab/modules/elementary_functions/sci_gateway/c/sci_expm.c
scilab/modules/elementary_functions/sci_gateway/c/sci_eye.c
scilab/modules/elementary_functions/sci_gateway/c/sci_floor.c
scilab/modules/elementary_functions/sci_gateway/c/sci_frexp.c
scilab/modules/elementary_functions/sci_gateway/c/sci_gsort.c
scilab/modules/elementary_functions/sci_gateway/c/sci_imag.c
scilab/modules/elementary_functions/sci_gateway/c/sci_imult.c
scilab/modules/elementary_functions/sci_gateway/c/sci_int.c
scilab/modules/elementary_functions/sci_gateway/c/sci_isequal.c
scilab/modules/elementary_functions/sci_gateway/c/sci_isequalbitwise.c
scilab/modules/elementary_functions/sci_gateway/c/sci_isreal.c
scilab/modules/elementary_functions/sci_gateway/c/sci_kron.c
scilab/modules/elementary_functions/sci_gateway/c/sci_log.c
scilab/modules/elementary_functions/sci_gateway/c/sci_log1p.c
scilab/modules/elementary_functions/sci_gateway/c/sci_matrix.c
scilab/modules/elementary_functions/sci_gateway/c/sci_maxi.c
scilab/modules/elementary_functions/sci_gateway/c/sci_nearfloat.c
scilab/modules/elementary_functions/sci_gateway/c/sci_number_properties.c
scilab/modules/elementary_functions/sci_gateway/c/sci_ones.c
scilab/modules/elementary_functions/sci_gateway/c/sci_prod.c
scilab/modules/elementary_functions/sci_gateway/c/sci_rand.c
scilab/modules/elementary_functions/sci_gateway/c/sci_real.c
scilab/modules/elementary_functions/sci_gateway/c/sci_round.c
scilab/modules/elementary_functions/sci_gateway/c/sci_sign.c
scilab/modules/elementary_functions/sci_gateway/c/sci_sin.c
scilab/modules/elementary_functions/sci_gateway/c/sci_size.c
scilab/modules/elementary_functions/sci_gateway/c/sci_spones.c
scilab/modules/elementary_functions/sci_gateway/c/sci_sqrt.c
scilab/modules/elementary_functions/sci_gateway/c/sci_sum.c
scilab/modules/elementary_functions/sci_gateway/c/sci_tan.c
scilab/modules/elementary_functions/sci_gateway/c/sci_testmatrix.c
scilab/modules/elementary_functions/sci_gateway/c/sci_tril.c
scilab/modules/elementary_functions/sci_gateway/c/sci_triu.c
scilab/modules/elementary_functions/sci_gateway/c/sci_zeros.c
scilab/modules/elementary_functions/src/c/vfinite.c
scilab/modules/fftw/includes/sci_disposefftwlibrary.h
scilab/modules/fftw/includes/sci_fftw.h
scilab/modules/fftw/includes/sci_fftw_flags.h
scilab/modules/fftw/includes/sci_fftw_forget_wisdom.h
scilab/modules/fftw/includes/sci_fftwlibraryisloaded.h
scilab/modules/fftw/includes/sci_get_fftw_wisdom.h
scilab/modules/fftw/includes/sci_loadfftwlibrary.h
scilab/modules/fftw/includes/sci_set_fftw_wisdom.h
scilab/modules/fftw/sci_gateway/c/sci_disposefftwlibrary.c
scilab/modules/fftw/sci_gateway/c/sci_fftw.c
scilab/modules/fftw/sci_gateway/c/sci_fftw_flags.c
scilab/modules/fftw/sci_gateway/c/sci_fftw_forget_wisdom.c
scilab/modules/fftw/sci_gateway/c/sci_fftwlibraryisloaded.c
scilab/modules/fftw/sci_gateway/c/sci_get_fftw_wisdom.c
scilab/modules/fftw/sci_gateway/c/sci_loadfftwlibrary.c
scilab/modules/fftw/sci_gateway/c/sci_set_fftw_wisdom.c
scilab/modules/fileio/includes/gw_fileio.h
scilab/modules/fileio/sci_gateway/c/sci_createdir.c
scilab/modules/fileio/sci_gateway/c/sci_deletefile.c
scilab/modules/fileio/sci_gateway/c/sci_fileext.c
scilab/modules/fileio/sci_gateway/c/sci_filesep.c
scilab/modules/fileio/sci_gateway/c/sci_findfiles.c
scilab/modules/fileio/sci_gateway/c/sci_fullpath.c
scilab/modules/fileio/sci_gateway/c/sci_getdrives.c
scilab/modules/fileio/sci_gateway/c/sci_getlongpathname.c
scilab/modules/fileio/sci_gateway/c/sci_getshortpathname.c
scilab/modules/fileio/sci_gateway/c/sci_isdir.c
scilab/modules/fileio/sci_gateway/c/sci_maxfiles.c
scilab/modules/fileio/sci_gateway/c/sci_mfprintf.c
scilab/modules/fileio/sci_gateway/c/sci_mprintf.c
scilab/modules/fileio/sci_gateway/c/sci_mscanf.c
scilab/modules/fileio/sci_gateway/c/sci_msscanf.c
scilab/modules/fileio/sci_gateway/c/sci_pathsep.c
scilab/modules/fileio/sci_gateway/c/sci_removedir.c
scilab/modules/fileio/src/c/do_xxscanf.c
scilab/modules/fileio/src/c/fileio.c
scilab/modules/fileio/src/c/fileio.h
scilab/modules/fileio/src/c/mseek.c
scilab/modules/fileio/src/c/set_xxprintf.h
scilab/modules/graphics/includes/math_graphics.h
scilab/modules/graphics/src/c/Contour.c
scilab/modules/graphics/src/c/Format.c
scilab/modules/graphics/src/c/Plo2dEch.c
scilab/modules/graphics/src/c/nues1.c
scilab/modules/gui/includes/gw_gui.h
scilab/modules/gui/includes/sci_raise_window.h
scilab/modules/gui/sci_gateway/c/sci_ClipBoard.c
scilab/modules/gui/sci_gateway/c/sci_getinstalledlookandfeels.c
scilab/modules/gui/sci_gateway/c/sci_getlookandfeel.c
scilab/modules/gui/sci_gateway/c/sci_raise_window.c
scilab/modules/gui/sci_gateway/c/sci_setlookandfeel.c
scilab/modules/gui/sci_gateway/c/sci_x_choice.c
scilab/modules/gui/sci_gateway/c/sci_x_choose.c
scilab/modules/gui/sci_gateway/c/sci_x_choose_modeless.c
scilab/modules/gui/sci_gateway/c/sci_x_dialog.c
scilab/modules/gui/sci_gateway/c/sci_x_mdialog.c
scilab/modules/gui/sci_gateway/c/sci_xgetfile.c
scilab/modules/history_manager/includes/gw_history_manager.h
scilab/modules/history_manager/sci_gateway/c/sci_addhistory.c
scilab/modules/history_manager/sci_gateway/c/sci_displayhistory.c
scilab/modules/history_manager/sci_gateway/c/sci_gethistory.c
scilab/modules/history_manager/sci_gateway/c/sci_gethistoryfile.c
scilab/modules/history_manager/sci_gateway/c/sci_historymanager.c
scilab/modules/history_manager/sci_gateway/c/sci_historysize.c
scilab/modules/history_manager/sci_gateway/c/sci_loadhistory.c
scilab/modules/history_manager/sci_gateway/c/sci_removelinehistory.c
scilab/modules/history_manager/sci_gateway/c/sci_resethistory.c
scilab/modules/history_manager/sci_gateway/c/sci_saveafterncommands.c
scilab/modules/history_manager/sci_gateway/c/sci_saveconsecutivecommands.c
scilab/modules/history_manager/sci_gateway/c/sci_savehistory.c
scilab/modules/history_manager/sci_gateway/c/sci_sethistoryfile.c
scilab/modules/integer/includes/gw_integer.h
scilab/modules/integer/sci_gateway/c/gw_integer.c
scilab/modules/intersci/src/exe/check.h
scilab/modules/intersci/src/exe/crerhs.h
scilab/modules/intersci/src/exe/fornames.c
scilab/modules/intersci/src/exe/getrhs.h
scilab/modules/intersci/src/exe/intersci-n.c
scilab/modules/intersci/src/exe/intersci-n.h
scilab/modules/intersci/src/exe/intersci.h
scilab/modules/intersci/src/exe/out-e.c
scilab/modules/intersci/src/exe/outext.c
scilab/modules/intersci/src/lib/libinter.h
scilab/modules/io/includes/gw_io.h
scilab/modules/io/sci_gateway/c/intsetenv.c
scilab/modules/io/sci_gateway/c/intsetenv.h
scilab/modules/io/sci_gateway/c/sci_deff.c
scilab/modules/io/sci_gateway/c/sci_diary.c
scilab/modules/io/sci_gateway/c/sci_disp.c
scilab/modules/io/sci_gateway/c/sci_exec.c
scilab/modules/io/sci_gateway/c/sci_execstr.c
scilab/modules/io/sci_gateway/c/sci_file.c
scilab/modules/io/sci_gateway/c/sci_fileinfo.c
scilab/modules/io/sci_gateway/c/sci_get_absolute_file_path.c
scilab/modules/io/sci_gateway/c/sci_getenv.c
scilab/modules/io/sci_gateway/c/sci_getf.c
scilab/modules/io/sci_gateway/c/sci_getio.c
scilab/modules/io/sci_gateway/c/sci_getpid.c
scilab/modules/io/sci_gateway/c/sci_getrelativefilename.c
scilab/modules/io/sci_gateway/c/sci_host.c
scilab/modules/io/sci_gateway/c/sci_lib.c
scilab/modules/io/sci_gateway/c/sci_load.c
scilab/modules/io/sci_gateway/c/sci_mgetl.c
scilab/modules/io/sci_gateway/c/sci_newest.c
scilab/modules/io/sci_gateway/c/sci_oldload.c
scilab/modules/io/sci_gateway/c/sci_oldsave.c
scilab/modules/io/sci_gateway/c/sci_print.c
scilab/modules/io/sci_gateway/c/sci_rat.c
scilab/modules/io/sci_gateway/c/sci_read.c
scilab/modules/io/sci_gateway/c/sci_read4b.c
scilab/modules/io/sci_gateway/c/sci_readb.c
scilab/modules/io/sci_gateway/c/sci_save.c
scilab/modules/io/sci_gateway/c/sci_setenv.c
scilab/modules/io/sci_gateway/c/sci_unix.c
scilab/modules/io/sci_gateway/c/sci_write.c
scilab/modules/io/sci_gateway/c/sci_write4b.c
scilab/modules/io/sci_gateway/c/sci_writeb.c
scilab/modules/jvm/includes/gw_jvm.h
scilab/modules/jvm/sci_gateway/c/sci_javaclasspath.c
scilab/modules/jvm/sci_gateway/c/sci_javalibrarypath.c
scilab/modules/jvm/sci_gateway/c/sci_system_getproperty.c
scilab/modules/jvm/sci_gateway/c/sci_system_setproperty.c
scilab/modules/jvm/sci_gateway/c/sci_with_embedded_jre.c
scilab/modules/linear_algebra/examples/intcdgemm.c
scilab/modules/linear_algebra/examples/intdgemm.c
scilab/modules/linear_algebra/sci_gateway/c/gw_linear_algebra.c
scilab/modules/linear_algebra/sci_gateway/c/sci_backslash.c
scilab/modules/linear_algebra/sci_gateway/c/sci_balanc.c
scilab/modules/linear_algebra/sci_gateway/c/sci_chol.c
scilab/modules/linear_algebra/sci_gateway/c/sci_det.c
scilab/modules/linear_algebra/sci_gateway/c/sci_eig.c
scilab/modules/linear_algebra/sci_gateway/c/sci_hess.c
scilab/modules/linear_algebra/sci_gateway/c/sci_inv.c
scilab/modules/linear_algebra/sci_gateway/c/sci_lsq.c
scilab/modules/linear_algebra/sci_gateway/c/sci_lu.c
scilab/modules/linear_algebra/sci_gateway/c/sci_qr.c
scilab/modules/linear_algebra/sci_gateway/c/sci_rcond.c
scilab/modules/linear_algebra/sci_gateway/c/sci_schur.c
scilab/modules/linear_algebra/sci_gateway/c/sci_slash.c
scilab/modules/linear_algebra/sci_gateway/c/sci_svd.c
scilab/modules/localization/includes/gw_localization.h
scilab/modules/localization/sci_gateway/c/sci_dgettext.c
scilab/modules/localization/sci_gateway/c/sci_getdefaultlanguage.c
scilab/modules/localization/sci_gateway/c/sci_getlanguage.c
scilab/modules/localization/sci_gateway/c/sci_getlanguagealias.c
scilab/modules/localization/sci_gateway/c/sci_getlanguagestable.c
scilab/modules/localization/sci_gateway/c/sci_gettext.c
scilab/modules/localization/sci_gateway/c/sci_setlanguage.c
scilab/modules/metanet/includes/gw_metanet.h
scilab/modules/mexlib/includes/mex.h
scilab/modules/mexlib/src/c/mexlib.c
scilab/modules/optimization/includes/gw_optim.h
scilab/modules/optimization/sci_gateway/c/sci_fsolv.c
scilab/modules/optimization/sci_gateway/c/sci_optim.c
scilab/modules/optimization/sci_gateway/c/sci_qld.c
scilab/modules/optimization/sci_gateway/c/sci_quapro.c
scilab/modules/optimization/sci_gateway/c/sci_semidef.c
scilab/modules/optimization/sci_gateway/c/sci_sqrsolve.c
scilab/modules/optimization/src/c/intqld.h
scilab/modules/output_stream/includes/cerro.h
scilab/modules/polynomials/includes/gw_polynomials.h
scilab/modules/polynomials/sci_gateway/c/sci_bezout.c
scilab/modules/polynomials/sci_gateway/c/sci_cleanp.c
scilab/modules/polynomials/sci_gateway/c/sci_coeff.c
scilab/modules/polynomials/sci_gateway/c/sci_degree.c
scilab/modules/polynomials/sci_gateway/c/sci_diag.c
scilab/modules/polynomials/sci_gateway/c/sci_div.c
scilab/modules/polynomials/sci_gateway/c/sci_eval.c
scilab/modules/polynomials/sci_gateway/c/sci_poly.c
scilab/modules/polynomials/sci_gateway/c/sci_prod.c
scilab/modules/polynomials/sci_gateway/c/sci_roots.c
scilab/modules/polynomials/sci_gateway/c/sci_sfact.c
scilab/modules/polynomials/sci_gateway/c/sci_simp.c
scilab/modules/polynomials/sci_gateway/c/sci_simp_mode.c
scilab/modules/polynomials/sci_gateway/c/sci_sum.c
scilab/modules/polynomials/sci_gateway/c/sci_tril.c
scilab/modules/polynomials/sci_gateway/c/sci_triu.c
scilab/modules/polynomials/sci_gateway/c/sci_varn.c
scilab/modules/pvm/includes/gw_pvm.h
scilab/modules/pvm/sci_gateway/c/sci_pvm_addhosts.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_barrier.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_bcast.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_bufinfo.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_config.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_delhosts.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_error.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_error_mode.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_exit.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_f772sci.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_get_timer.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_getinst.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_gettid.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_gsize.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_halt.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_joingroup.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_kill.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_lvgroup.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_mytid.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_parent.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_probe.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_recv.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_recv_var.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_reduce.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_sci2f77.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_send.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_send_var.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_set_timer.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_spawn.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_spawn_independent.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_start.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_tasks.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_tidtohost.c
scilab/modules/pvm/src/c/sci_tools.h
scilab/modules/randlib/includes/grand.h
scilab/modules/randlib/src/c/kiss.c
scilab/modules/renderer/includes/gw_renderer.h
scilab/modules/renderer/sci_gateway/c/gw_renderer.c
scilab/modules/scicos/help/en_US/fromws_c_routcos.htm
scilab/modules/scicos/help/en_US/readau_routcos.htm
scilab/modules/scicos/help/en_US/readc_routcos.htm
scilab/modules/scicos/help/en_US/time_delay_routcos.htm
scilab/modules/scicos/help/en_US/tows_c_routcos.htm
scilab/modules/scicos/help/en_US/variable_delay_routcos.htm
scilab/modules/scicos/help/en_US/writeau_routcos.htm
scilab/modules/scicos/help/en_US/writec_routcos.htm
scilab/modules/scicos/help/fr_FR/fromws_c_routcos.htm
scilab/modules/scicos/help/fr_FR/readau_routcos.htm
scilab/modules/scicos/help/fr_FR/readc_routcos.htm
scilab/modules/scicos/help/fr_FR/time_delay_routcos.htm
scilab/modules/scicos/help/fr_FR/tows_c_routcos.htm
scilab/modules/scicos/help/fr_FR/variable_delay_routcos.htm
scilab/modules/scicos/help/fr_FR/writeau_routcos.htm
scilab/modules/scicos/help/fr_FR/writec_routcos.htm
scilab/modules/scicos/includes/gw_scicos.h
scilab/modules/scicos/includes/intcscicos.h
scilab/modules/scicos/includes/scicos.h
scilab/modules/scicos/sci_gateway/c/intcscicos.c
scilab/modules/scicos/sci_gateway/c/matscicos.c
scilab/modules/scicos/sci_gateway/c/sci_buildouttb.c
scilab/modules/scicos/sci_gateway/c/sci_ctree2.c
scilab/modules/scicos/sci_gateway/c/sci_ctree3.c
scilab/modules/scicos/sci_gateway/c/sci_ctree4.c
scilab/modules/scicos/sci_gateway/c/sci_curblock.c
scilab/modules/scicos/sci_gateway/c/sci_curblockc.c
scilab/modules/scicos/sci_gateway/c/sci_diffobjs.c
scilab/modules/scicos/sci_gateway/c/sci_duplicate.c
scilab/modules/scicos/sci_gateway/c/sci_end_scicosim.c
scilab/modules/scicos/sci_gateway/c/sci_getblocklabel.c
scilab/modules/scicos/sci_gateway/c/sci_getscicosvars.c
scilab/modules/scicos/sci_gateway/c/sci_permutobj.c
scilab/modules/scicos/sci_gateway/c/sci_phase_simulation.c
scilab/modules/scicos/sci_gateway/c/sci_pointer_xproperty.c
scilab/modules/scicos/sci_gateway/c/sci_sci_tree2.c
scilab/modules/scicos/sci_gateway/c/sci_sci_tree3.c
scilab/modules/scicos/sci_gateway/c/sci_sci_tree4.c
scilab/modules/scicos/sci_gateway/c/sci_scicos_debug.c
scilab/modules/scicos/sci_gateway/c/sci_scicos_debug_count.c
scilab/modules/scicos/sci_gateway/c/sci_scicos_time.c
scilab/modules/scicos/sci_gateway/c/sci_scicosim.c
scilab/modules/scicos/sci_gateway/c/sci_sctree.c
scilab/modules/scicos/sci_gateway/c/sci_set_blockerror.c
scilab/modules/scicos/sci_gateway/c/sci_set_xproperty.c
scilab/modules/scicos/sci_gateway/c/sci_var2vec.c
scilab/modules/scicos/sci_gateway/c/sci_vec2var.c
scilab/modules/scicos/src/c/import.c
scilab/modules/scicos_blocks/includes/blocks.h.vc
scilab/modules/scicos_blocks/src/c/blocks.c
scilab/modules/scicos_blocks/src/c/dmmul.c
scilab/modules/scicos_blocks/src/c/fromws_c.c
scilab/modules/scicos_blocks/src/c/readau.c
scilab/modules/scicos_blocks/src/c/readc.c
scilab/modules/scicos_blocks/src/c/time_delay.c
scilab/modules/scicos_blocks/src/c/tows_c.c
scilab/modules/scicos_blocks/src/c/variable_delay.c
scilab/modules/scicos_blocks/src/c/writeau.c
scilab/modules/scicos_blocks/src/c/writec.c
scilab/modules/scicos_blocks/src/scripts/GenBlocks.sh
scilab/modules/shell/includes/gw_shell.h
scilab/modules/shell/sci_gateway/c/sci_clc.c
scilab/modules/shell/sci_gateway/c/sci_lines.c
scilab/modules/shell/sci_gateway/c/sci_prompt.c
scilab/modules/shell/sci_gateway/c/sci_tohome.c
scilab/modules/signal_processing/includes/gw_signal.h
scilab/modules/signal_processing/sci_gateway/c/sci_amell.c
scilab/modules/signal_processing/sci_gateway/c/sci_corr.c
scilab/modules/signal_processing/sci_gateway/c/sci_delip.c
scilab/modules/signal_processing/sci_gateway/c/sci_ffir.c
scilab/modules/signal_processing/sci_gateway/c/sci_fft.c
scilab/modules/signal_processing/sci_gateway/c/sci_fiir.c
scilab/modules/signal_processing/sci_gateway/c/sci_remez.c
scilab/modules/signal_processing/sci_gateway/c/sci_rpem.c
scilab/modules/signal_processing/sci_gateway/c/sci_syredi.c
scilab/modules/sound/includes/gw_sound.h
scilab/modules/sound/sci_gateway/c/sci_PlaySound.c
scilab/modules/sound/sci_gateway/c/sci_beep.c
scilab/modules/sound/sci_gateway/c/sci_savewave.c
scilab/modules/sound/src/c/sox.c
scilab/modules/sound/src/c/sox.h
scilab/modules/sound/src/c/st.h
scilab/modules/sparse/includes/gw_sparse.h
scilab/modules/sparse/sci_gateway/c/sci_bfinit.c
scilab/modules/sparse/sci_gateway/c/sci_blkfc1i.c
scilab/modules/sparse/sci_gateway/c/sci_blkslvi.c
scilab/modules/sparse/sci_gateway/c/sci_fadj2sp.c
scilab/modules/sparse/sci_gateway/c/sci_full.c
scilab/modules/sparse/sci_gateway/c/sci_inpnvi.c
scilab/modules/sparse/sci_gateway/c/sci_ludel.c
scilab/modules/sparse/sci_gateway/c/sci_lufact.c
scilab/modules/sparse/sci_gateway/c/sci_luget.c
scilab/modules/sparse/sci_gateway/c/sci_lusolve.c
scilab/modules/sparse/sci_gateway/c/sci_mfull.c
scilab/modules/sparse/sci_gateway/c/sci_msparse.c
scilab/modules/sparse/sci_gateway/c/sci_mspget.c
scilab/modules/sparse/sci_gateway/c/sci_nnz.c
scilab/modules/sparse/sci_gateway/c/sci_ordmmd.c
scilab/modules/sparse/sci_gateway/c/sci_readmps.c
scilab/modules/sparse/sci_gateway/c/sci_sfinit.c
scilab/modules/sparse/sci_gateway/c/sci_sparse.c
scilab/modules/sparse/sci_gateway/c/sci_spchol.c
scilab/modules/sparse/sci_gateway/c/sci_spclean.c
scilab/modules/sparse/sci_gateway/c/sci_spcompa.c
scilab/modules/sparse/sci_gateway/c/sci_spget.c
scilab/modules/sparse/sci_gateway/c/sci_spmatrix.c
scilab/modules/sparse/sci_gateway/c/sci_spmax.c
scilab/modules/sparse/sci_gateway/c/sci_spmin.c
scilab/modules/sparse/sci_gateway/c/sci_symfcti.c
scilab/modules/special_functions/includes/gw_special_functions1.h
scilab/modules/special_functions/sci_gateway/c/sci_calerf.c
scilab/modules/special_functions/sci_gateway/c/sci_dlgamma.c
scilab/modules/special_functions/sci_gateway/c/sci_gamma.c
scilab/modules/special_functions/sci_gateway/c/sci_lgamma.c
scilab/modules/special_functions/sci_gateway/c/sci_oldbesseli.c
scilab/modules/special_functions/sci_gateway/c/sci_oldbesselj.c
scilab/modules/special_functions/sci_gateway/c/sci_oldbesselk.c
scilab/modules/special_functions/sci_gateway/c/sci_oldbessely.c
scilab/modules/spreadsheet/includes/gw_spreadsheet.h
scilab/modules/spreadsheet/sci_gateway/c/sci_xls_open.c
scilab/modules/spreadsheet/sci_gateway/c/sci_xls_read.c
scilab/modules/statistics/sci_gateway/c/sci_cdfbet.c
scilab/modules/statistics/sci_gateway/c/sci_cdfbin.c
scilab/modules/statistics/sci_gateway/c/sci_cdfchi.c
scilab/modules/statistics/sci_gateway/c/sci_cdfchn.c
scilab/modules/statistics/sci_gateway/c/sci_cdff.c
scilab/modules/statistics/sci_gateway/c/sci_cdffnc.c
scilab/modules/statistics/sci_gateway/c/sci_cdfgam.c
scilab/modules/statistics/sci_gateway/c/sci_cdfnbn.c
scilab/modules/statistics/sci_gateway/c/sci_cdfnor.c
scilab/modules/statistics/sci_gateway/c/sci_cdfpoi.c
scilab/modules/statistics/sci_gateway/c/sci_cdft.c
scilab/modules/string/includes/gw_string.h
scilab/modules/string/sci_gateway/c/sci_ascii.c
scilab/modules/string/sci_gateway/c/sci_code2str.c
scilab/modules/string/sci_gateway/c/sci_convstr.c
scilab/modules/string/sci_gateway/c/sci_emptystr.c
scilab/modules/string/sci_gateway/c/sci_grep.c
scilab/modules/string/sci_gateway/c/sci_isalphanum.c
scilab/modules/string/sci_gateway/c/sci_isascii.c
scilab/modules/string/sci_gateway/c/sci_isdigit.c
scilab/modules/string/sci_gateway/c/sci_isletter.c
scilab/modules/string/sci_gateway/c/sci_length.c
scilab/modules/string/sci_gateway/c/sci_part.c
scilab/modules/string/sci_gateway/c/sci_regexp.c
scilab/modules/string/sci_gateway/c/sci_str2code.c
scilab/modules/string/sci_gateway/c/sci_strcat.c
scilab/modules/string/sci_gateway/c/sci_strchr.c
scilab/modules/string/sci_gateway/c/sci_strcmp.c
scilab/modules/string/sci_gateway/c/sci_strcspn.c
scilab/modules/string/sci_gateway/c/sci_strindex.c
scilab/modules/string/sci_gateway/c/sci_string.c
scilab/modules/string/sci_gateway/c/sci_stripblanks.c
scilab/modules/string/sci_gateway/c/sci_strncpy.c
scilab/modules/string/sci_gateway/c/sci_strrchr.c
scilab/modules/string/sci_gateway/c/sci_strrev.c
scilab/modules/string/sci_gateway/c/sci_strsplit.c
scilab/modules/string/sci_gateway/c/sci_strspn.c
scilab/modules/string/sci_gateway/c/sci_strstr.c
scilab/modules/string/sci_gateway/c/sci_strsubst.c
scilab/modules/string/sci_gateway/c/sci_strtod.c
scilab/modules/string/sci_gateway/c/sci_strtok.c
scilab/modules/string/sci_gateway/c/sci_tokens.c
scilab/modules/symbolic/includes/gw_symbolic.h
scilab/modules/symbolic/sci_gateway/c/sci_addsubf.c
scilab/modules/symbolic/sci_gateway/c/sci_ldivf.c
scilab/modules/symbolic/sci_gateway/c/sci_mulf.c
scilab/modules/symbolic/sci_gateway/c/sci_rdivf.c
scilab/modules/time/includes/gw_time.h
scilab/modules/time/includes/sci_calendar.h
scilab/modules/time/includes/sci_getdate.h
scilab/modules/time/includes/sci_realtime.h
scilab/modules/time/includes/sci_sleep.h
scilab/modules/time/includes/sci_timer.h
scilab/modules/time/includes/sci_xpause.h
scilab/modules/time/sci_gateway/c/sci_calendar.c
scilab/modules/time/sci_gateway/c/sci_getdate.c
scilab/modules/time/sci_gateway/c/sci_realtime.c
scilab/modules/time/sci_gateway/c/sci_sleep.c
scilab/modules/time/sci_gateway/c/sci_timer.c
scilab/modules/time/sci_gateway/c/sci_xpause.c
scilab/modules/time/src/c/getdate.c

index b8347f5..3ed8195 100644 (file)
 /*--------------------------------------------------------------------------*/
 int gw_arnoldi(void);
 /*--------------------------------------------------------------------------*/
-int C2F(intdsaupd) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(intdnaupd) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(intznaupd) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(intdseupd) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(intdneupd) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(intzneupd) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(intdsaupd)(char *fname,unsigned long fname_len);
+int C2F(intdnaupd)(char *fname,unsigned long fname_len);
+int C2F(intznaupd)(char *fname,unsigned long fname_len);
+int C2F(intdseupd)(char *fname,unsigned long fname_len);
+int C2F(intdneupd)(char *fname,unsigned long fname_len);
+int C2F(intzneupd)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif /* __GW_ARNOLDI_H__ */
 /*--------------------------------------------------------------------------*/
index ac641be..36e4605 100644 (file)
@@ -21,9 +21,9 @@
 #define DOUBLE(x)      ( stk(x))
 #define CMPLX(x)       (zstk(x))
 /*--------------------------------------------------------------------------*/
-extern int C2F(dnaupd) __PARAMS((int *ido, char *bmat, int *n, char *which, int *nev, double *tol, double *resid, int *ncv, double *v, int *ldv, int *iparam, int *ipntr, double *workd, double *workl, int *lworkl, int *info, unsigned long bmat_len, unsigned long which_len));
+extern int C2F(dnaupd)(int *ido, char *bmat, int *n, char *which, int *nev, double *tol, double *resid, int *ncv, double *v, int *ldv, int *iparam, int *ipntr, double *workd, double *workl, int *lworkl, int *info, unsigned long bmat_len, unsigned long which_len);
 /*--------------------------------------------------------------------------*/
-int C2F(intdnaupd) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(intdnaupd)(char *fname,unsigned long fname_len)
 {
   int IDO,   mIDO,   nIDO,    pIDO;
   int BMAT,  mBMAT,  nBMAT,   pBMAT;
index 662ac5a..55a2b55 100644 (file)
@@ -21,9 +21,9 @@
 #define DOUBLE(x)      ( stk(x))
 #define CMPLX(x)       (zstk(x))
 /*--------------------------------------------------------------------------*/
-extern int C2F(dneupd) __PARAMS((int *rvec, char *howmny, int *select, double *dr, double *di, double *z, int *ldz, double *sigmar, double *sigmai, double *workev, char *bmat, int *n, char *which, int *nev, double *tol, double *resid, int *ncv, double *v, int *ldv, int *iparam, int *ipntr, double *workd, double *workl, int *lworkl, int *info, unsigned long howmany_length, unsigned long bmat_length, unsigned long which_length));
+extern int C2F(dneupd)(int *rvec, char *howmny, int *select, double *dr, double *di, double *z, int *ldz, double *sigmar, double *sigmai, double *workev, char *bmat, int *n, char *which, int *nev, double *tol, double *resid, int *ncv, double *v, int *ldv, int *iparam, int *ipntr, double *workd, double *workl, int *lworkl, int *info, unsigned long howmany_length, unsigned long bmat_length, unsigned long which_length);
 /*--------------------------------------------------------------------------*/
-int C2F(intdneupd) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(intdneupd)(char *fname,unsigned long fname_len)
 {
   int RVEC,     mRVEC,     nRVEC,      pRVEC;
   int HOWMANY,  mHOWMANY,  nHOWMANY,   pHOWMANY;
index 30ab4ad..ea844b6 100644 (file)
@@ -21,9 +21,9 @@
 #define DOUBLE(x)      ( stk(x))
 #define CMPLX(x)       (zstk(x))
 /*--------------------------------------------------------------------------*/
-extern int C2F(dsaupd) __PARAMS((int *ido, char *bmat, int *n, char *which, int *nev, double *tol, double *resid, int *ncv, double *v, int *ldv, int *iparam, int *ipntr, double *workd, double *workl, int *lworkl, int *info, unsigned long bmat_len, unsigned long which_len));
+extern int C2F(dsaupd)(int *ido, char *bmat, int *n, char *which, int *nev, double *tol, double *resid, int *ncv, double *v, int *ldv, int *iparam, int *ipntr, double *workd, double *workl, int *lworkl, int *info, unsigned long bmat_len, unsigned long which_len);
 /*--------------------------------------------------------------------------*/
-int C2F(intdsaupd) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(intdsaupd)(char *fname,unsigned long fname_len)
 {
   int IDO,   mIDO,   nIDO,    pIDO;
   int BMAT,  mBMAT,  nBMAT,   pBMAT;
index fb4ead7..84244fd 100644 (file)
@@ -21,9 +21,9 @@
 #define DOUBLE(x)      ( stk(x))
 #define CMPLX(x)       (zstk(x))
 /*--------------------------------------------------------------------------*/
-extern int C2F(dseupd) __PARAMS((int *rvec, char *howmny, int *select, double *d, double *z, int *ldz, double *sigma, char *bmat, int *n, char *which, int *nev ,double *tol, double *resid, int *ncv, double *v ,int *ldv, int *iparam,int *ipntr, double *workd,double *workl,int *lworkl,int *info, unsigned long rvec_length, unsigned long howmany_length, unsigned long bmat_length, unsigned long which_len));
+extern int C2F(dseupd)(int *rvec, char *howmny, int *select, double *d, double *z, int *ldz, double *sigma, char *bmat, int *n, char *which, int *nev ,double *tol, double *resid, int *ncv, double *v ,int *ldv, int *iparam,int *ipntr, double *workd,double *workl,int *lworkl,int *info, unsigned long rvec_length, unsigned long howmany_length, unsigned long bmat_length, unsigned long which_len);
 /*--------------------------------------------------------------------------*/
-int C2F(intdseupd) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(intdseupd)(char *fname,unsigned long fname_len)
 {
   int RVEC,     mRVEC,     nRVEC,      pRVEC;
   int HOWMANY,  mHOWMANY,  nHOWMANY,   pHOWMANY;
index 4b0cf09..dd3037c 100644 (file)
@@ -23,7 +23,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(znaupd)();
 /*--------------------------------------------------------------------------*/
-int C2F(intznaupd) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(intznaupd)(char *fname,unsigned long fname_len)
 {
   int IDO,   mIDO,   nIDO,    pIDO;
   int BMAT,  mBMAT,  nBMAT,   pBMAT;
index 28d5472..a5bbe99 100644 (file)
@@ -23,7 +23,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(zneupd)();
 /*--------------------------------------------------------------------------*/
-int C2F(intzneupd) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(intzneupd)(char *fname,unsigned long fname_len)
 {
   int RVEC,     mRVEC,     nRVEC,      pRVEC;
   int HOWMANY,  mHOWMANY,  nHOWMANY,   pHOWMANY;
index 5dbad8d..a55999e 100644 (file)
 /*--------------------------------------------------------------------------*/
 int gw_boolean(void);
 /*--------------------------------------------------------------------------*/
-int C2F(intor) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(intand) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_find) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_bool2s) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(intor)(char *fname,unsigned long fname_len);
+int C2F(intand)(char *fname,unsigned long fname_len);
+int C2F(sci_find)(char *fname,unsigned long fname_len);
+int C2F(sci_bool2s)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif /*  __GW_BOOLEAN__ */
 /*--------------------------------------------------------------------------*/
index 738b7ee..b79681f 100644 (file)
@@ -14,7 +14,7 @@
 #include <string.h>
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern void vect_and __PARAMS((int *v,int m,int n,int *r,int opt));
+extern void vect_and(int *v,int m,int n,int *r,int opt);
 /*--------------------------------------------------------------------------*/
 int C2F(intand)(char *fname,unsigned long l);
 /*--------------------------------------------------------------------------*/
index 62578aa..506e7e8 100644 (file)
@@ -14,7 +14,7 @@
 #include "machine.h"
 #include "gw_boolean.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_bool2s) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_bool2s)(char *fname,unsigned long fname_len)
 {
        extern int C2F(intsbool2s)();
        C2F(intsbool2s)();
index 6ae307e..a8a3b55 100644 (file)
@@ -14,7 +14,7 @@
 #include "machine.h"
 #include "gw_boolean.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_find) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_find)(char *fname,unsigned long fname_len)
 {
        extern int C2F(intfind)();
        C2F(intfind)();
index 16436a4..c414e3e 100644 (file)
@@ -14,7 +14,7 @@
 #include "stack-c.h"
 #include <string.h>
 /*--------------------------------------------------------------------------*/
-extern void vect_or __PARAMS((int *v,int m,int n,int *r,int opt));
+extern void vect_or (int *v,int m,int n,int *r,int opt);
 /*--------------------------------------------------------------------------*/
 int C2F(intor)(char *fname,unsigned long l);
 
index 8dee5e2..9d2af25 100644 (file)
 /*--------------------------------------------------------------------------*/
 int gw_cacsd0(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_gschur) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_gspec) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_ereduc) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_fstair) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_gschur)(char *fname,unsigned long fname_len);
+int C2F(sci_gspec)(char *fname,unsigned long fname_len);
+int C2F(sci_ereduc)(char *fname,unsigned long fname_len);
+int C2F(sci_fstair)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif /*  __GW_CACSD0__ */
 /*--------------------------------------------------------------------------*/
index 1fe9b09..736680c 100644 (file)
@@ -19,9 +19,9 @@
 /*--------------------------------------------------------------------------*/
 int gw_cacsd1(void);
 /*--------------------------------------------------------------------------*/
-int C2F(scilyap) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(scisylv) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(intricc)  _PARAMS((char *fname,unsigned long fname_len));
+int C2F(scilyap)(char *fname,unsigned long fname_len);
+int C2F(scisylv)(char *fname,unsigned long fname_len);
+int C2F(intricc)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif /*  __GW_CACSD1__ */
 /*--------------------------------------------------------------------------*/
index 268242d..e3afa08 100644 (file)
 /*--------------------------------------------------------------------------*/ 
 int gw_cacsd2(void);
 /*--------------------------------------------------------------------------*/ 
-int C2F(sci_ppol) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_tzer) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_freq) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_ltitr) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_rtitr) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_ppol)(char *fname,unsigned long fname_len);
+int C2F(sci_tzer)(char *fname,unsigned long fname_len);
+int C2F(sci_freq)(char *fname,unsigned long fname_len);
+int C2F(sci_ltitr)(char *fname,unsigned long fname_len);
+int C2F(sci_rtitr)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif /*  __GW_GW_CACSD2__ */
 /*--------------------------------------------------------------------------*/
index 4ae0df1..e776400 100644 (file)
@@ -19,9 +19,9 @@
 /*--------------------------------------------------------------------------*/
 int gw_cacsd3(void);
 /*--------------------------------------------------------------------------*/
-extern int C2F(sci_arl2) _PARAMS((char *fname,unsigned long fname_len));
-extern int C2F(sci_residu) _PARAMS((char *fname,unsigned long fname_len));
-extern int C2F(sci_ldiv) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(sci_arl2)(char *fname,unsigned long fname_len);
+extern int C2F(sci_residu)(char *fname,unsigned long fname_len);
+extern int C2F(sci_ldiv)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif /*  __GW_CACSD3__ */
 /*--------------------------------------------------------------------------*/
index 5d8177f..1e9f940 100644 (file)
@@ -20,7 +20,7 @@
 #ifndef __DEF_MXARRAY__
 #define __DEF_MXARRAY__
 typedef int mxArray;
-typedef int Gatefunc __PARAMS((int nlhs,mxArray *plhs[],int nrhs,mxArray *prhs[]));
+typedef int Gatefunc (int nlhs,mxArray *plhs[],int nrhs,mxArray *prhs[]);
 #endif
 /*--------------------------------------------------------------------------*/ 
 extern Gatefunc C2F(sident);
index d85d2ad..da8e0d9 100644 (file)
@@ -15,7 +15,7 @@
 #include "gw_cacsd2.h"
 #include "callFunctionFromGateway.h"
 /*--------------------------------------------------------------------------*/
-static int C2F(sci_xxxx)_PARAMS((char *fname,unsigned long fname_len))
+static int C2F(sci_xxxx)(char *fname,unsigned long fname_len)
 {
        /* not used */
        return 0;
index 047b024..b7a1f88 100644 (file)
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(sciarl2) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(sciarl2)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_arl2) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_arl2)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_arl2) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_arl2)(char *fname,unsigned long fname_len)
 {
        C2F(sciarl2)(fname,fname_len);
        return 0;
index ca7563f..41f723c 100644 (file)
@@ -20,7 +20,7 @@
 #include "core_math.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
-extern double C2F(dlamch)  __PARAMS((char *CMACH, unsigned long int));
+extern double C2F(dlamch)(char *CMACH, unsigned long int);
 extern int C2F(ab01od)();
 /*--------------------------------------------------------------------------*/
 int intab01od(char* fname)
index 5929225..85f0b99 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd0.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intereduc) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(intereduc)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_ereduc) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_ereduc)(char *fname,unsigned long fname_len)
 {
        C2F(intereduc)(fname,fname_len);
        return 0;
index 425224c..66de45e 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd2.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scifreq) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scifreq)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_freq) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_freq)(char *fname,unsigned long fname_len)
 {
        C2F(scifreq)(fname,fname_len);
        return 0;
index 5fc7bb7..edb7682 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd0.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intfstair) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(intfstair)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_fstair) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_fstair)(char *fname,unsigned long fname_len)
 {
        C2F(intfstair)(fname,fname_len);
        return 0;
index bd6fcba..48a9b5d 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd0.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scigschur) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scigschur)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_gschur) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_gschur)(char *fname,unsigned long fname_len)
 {
        C2F(scigschur)(fname,fname_len);
        return 0;
index 17f2f4f..88cd2d5 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd0.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scigspec) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scigspec)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_gspec) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_gspec)(char *fname,unsigned long fname_len)
 {
        C2F(scigspec)(fname,fname_len);
        return 0;
index 1a4cf84..1e9c26c 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd3.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scildiv) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scildiv)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_ldiv) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_ldiv)(char *fname,unsigned long fname_len)
 {
        C2F(scildiv)(fname,fname_len);
        return 0;
index e2788dd..c355e69 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd2.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(sciltitr) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(sciltitr)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_ltitr) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_ltitr)(char *fname,unsigned long fname_len)
 {
        C2F(sciltitr)(fname,fname_len);
        return 0;
index afe4486..82d5dcb 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd2.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scippol) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scippol)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_ppol) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_ppol)(char *fname,unsigned long fname_len)
 {
        C2F(scippol)(fname,fname_len);
        return 0;
index d1a1aad..82a203f 100644 (file)
@@ -17,8 +17,8 @@
 #include "stack-c.h"
 #include "sci_rankqr.h"
 /*--------------------------------------------------------------------------*/ 
-extern int C2F(intmb03od) __PARAMS((char *fname, unsigned long fname_len));
-extern int C2F(intzb03od) __PARAMS((char *fname, unsigned long fname_len));
+extern int C2F(intmb03od)(char *fname, unsigned long fname_len);
+extern int C2F(intzb03od)(char *fname, unsigned long fname_len);
 /*--------------------------------------------------------------------------*/ 
 int intrankqr(char* fname)
 {
index c33fdbb..8fa2c7c 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd3.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(sciresidu) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(sciresidu)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_residu) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_residu)(char *fname,unsigned long fname_len)
 {
        C2F(sciresidu)(fname,fname_len);
        return 0;
index 6a0175b..9dcf6cf 100644 (file)
@@ -16,9 +16,9 @@
 #include "stack-c.h"
 #include "gw_cacsd2.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scirtitr) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scirtitr)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_rtitr) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_rtitr)(char *fname,unsigned long fname_len)
 {
        C2F(scirtitr)(fname,fname_len);
        return 0;
index d56878f..3cfcb0d 100644 (file)
@@ -18,9 +18,9 @@
 #include "localization.h"
 #include "gw_cacsd2.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scitzer) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scitzer)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_tzer) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_tzer)(char *fname,unsigned long fname_len)
 {
        CheckRhs(4,4);
        CheckLhs(2,3);
index b68e085..3e63993 100644 (file)
@@ -18,7 +18,7 @@ int gw_completion(void);
 /*--------------------------------------------------------------------------*/
 /* Declaration of all the profile function declared and */
 /* used in sci_gateway */
-int C2F(sci_completion) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_completion)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif /* __GW_COMPLETION_H__ */
 
index 82e35e2..9e20d58 100644 (file)
@@ -21,7 +21,7 @@
 static int returnEmptyMatrix(int pos);
 static int putResultOnStack(int pos,char **result,int sizeresult);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_completion) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_completion)(char *fname,unsigned long fname_len)
 {
        int l1 = 0, m1 = 0, n1 = 0;
        char *partOfWord = NULL;
index 7de80fc..8848a1d 100644 (file)
@@ -24,50 +24,50 @@ void C2F(addinter)(int *iflag,int *descla, int *ptrdescla, int *nvla, char *inam
                   int *desc, int *ptrdesc, int *nv, char *c_cpp,
                   int *lib_cpp, int *err);
 
-extern void C2F(userlk) __PARAMS((integer *k));
+extern void C2F(userlk)(integer *k);
 
 /*  "basin-n.c.X1" */
 
-extern int C2F(basin) __PARAMS((integer *ierr, integer *lunit, char *string, char *fmt, ftnlen string_len, ftnlen fmt_len));
+extern int C2F(basin)(integer *ierr, integer *lunit, char *string, char *fmt, ftnlen string_len, ftnlen fmt_len);
 
 /*  "basout-n.c.X1" */
-extern int C2F(basou1) __PARAMS((integer *lunit, char *string, ftnlen string_len));
+extern int C2F(basou1)(integer *lunit, char *string, ftnlen string_len);
 /*  "cgpath-n.c.X1" */
-extern void C2F(cgpath) __PARAMS((char *nomfic, integer *ln));
+extern void C2F(cgpath)(char *nomfic, integer *ln);
 /*  "clunit-n.c.X1" */
-extern int C2F(clunit) __PARAMS((integer *lunit, char *name, integer *mode, ftnlen name_len));
+extern int C2F(clunit)(integer *lunit, char *name, integer *mode, ftnlen name_len);
 /*  "dbasin-n.c.X1" */
-extern int C2F(dbasin) __PARAMS((integer *ierr, integer *lunit, char *fmt, double *v, integer *iv, integer *n, ftnlen fmt_len));
-extern int C2F(s2val) __PARAMS((char *str, double *v, integer *iv, integer *n, integer *maxv, integer *ierr, ftnlen str_len));
-extern int C2F(nextv) __PARAMS((char *str, double *v, integer *nv, integer *ir, integer *ierr, ftnlen str_len));
-extern int C2F(s2int) __PARAMS((char *str, integer *nlz, integer *v, integer *ir, integer *ierr, ftnlen str_len));
+extern int C2F(dbasin)(integer *ierr, integer *lunit, char *fmt, double *v, integer *iv, integer *n, ftnlen fmt_len);
+extern int C2F(s2val)(char *str, double *v, integer *iv, integer *n, integer *maxv, integer *ierr, ftnlen str_len);
+extern int C2F(nextv)(char *str, double *v, integer *nv, integer *ir, integer *ierr, ftnlen str_len);
+extern int C2F(s2int)(char *str, integer *nlz, integer *v, integer *ir, integer *ierr, ftnlen str_len);
 /*  "fgetarg-n.c.X1" */
-extern int C2F(fgetarg) __PARAMS((integer *n, char *str, ftnlen str_len));
+extern int C2F(fgetarg)(integer *n, char *str, ftnlen str_len);
 
 /*  "getpidc-n.c.X1" */
-extern int C2F(getpidc) __PARAMS((int *id1));
+extern int C2F(getpidc)(int *id1);
 
 /*  "inffic-n.c.X1" */
-extern void C2F(inffic) __PARAMS((integer *iopt, char *name, integer *nc));
-extern void C2F(infficl) __PARAMS((integer *iopt, integer *nc));
+extern void C2F(inffic)(integer *iopt, char *name, integer *nc);
+extern void C2F(infficl)(integer *iopt, integer *nc);
 /*  "inibrk-n.c.X1" */
-extern int C2F(inibrk) __PARAMS((void));
-extern int C2F(sunieee) __PARAMS((void));
-extern integer C2F(my_handler_) __PARAMS((integer *sig, integer *code, integer *sigcontext, integer *addr));
-extern integer C2F(my_ignore_) __PARAMS((integer *sig, integer *code, integer *sigcontext, integer *addr));
+extern int C2F(inibrk)(void);
+extern int C2F(sunieee)(void);
+extern integer C2F(my_handler_)(integer *sig, integer *code, integer *sigcontext, integer *addr);
+extern integer C2F(my_ignore_)(integer *sig, integer *code, integer *sigcontext, integer *addr);
 
 /*  "plevel-n.c.X1" */
-extern int C2F(plevel) __PARAMS((integer *n));
+extern int C2F(plevel)(integer *n);
 /*  "sigbas-n.c.X1" */
-extern int C2F(systemc) __PARAMS((char *command, integer *stat));
+extern int C2F(systemc)(char *command, integer *stat);
 /*  "timer-n.c.X1" */
-extern int C2F(stimer) __PARAMS((void));
+extern int C2F(stimer)(void);
 /*  "tmpdir-n.c.X1" */
-extern void C2F(settmpdir) __PARAMS((void));
-extern void C2F(tmpdirc) __PARAMS((void));
+extern void C2F(settmpdir)(void);
+extern void C2F(tmpdirc)(void);
 
 /* link.c */
-extern int LinkStatus  __PARAMS((void));
+extern int LinkStatus (void);
 
 
 #endif /* SUNSCI_PROTO */
index f271f76..3f41fc1 100644 (file)
@@ -15,7 +15,7 @@
 
 #include "machine.h"
 
-typedef int (*function_Interf) __PARAMS((char *fname,unsigned long l));
+typedef int (*function_Interf)(char *fname,unsigned long l);
 
 /** 
  * See SCI/modules/<module_name>/sci_gateway/c/gw_<module_name>.c for example 
index 97f30c1..0623f8d 100644 (file)
 /*--------------------------------------------------------------------------*/ 
 int gw_core(void);
 /*--------------------------------------------------------------------------*/ 
-int C2F(sci_debug) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_who) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_warning) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_argn) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_comp) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_mode) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_type) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_error) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_resume) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_return) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_format) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_isdef) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_exists) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_errcatch) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_errclear) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_iserror) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_predef) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_newfun) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_clearfun) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_funptr) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_macr2lst) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_setbpt) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_delbpt) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_dispbpt) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_funcprot) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_whereis) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_where) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_havewindow) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_stacksize) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_mtlb_mode) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_clear) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_what) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_sciargs) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_chdir) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_getcwd) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_ieee) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_typename) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_global) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_clearglobal) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_isglobal) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_gstacksize) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_intppty) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_lasterror) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_getversion) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_macr2tree) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_getos) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_banner) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_fromjava) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_getmemory) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_fromc) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_getmd5) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_getmodules) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_with_module) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_islittleendian) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_getscilabmode) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_librarieslist) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_libraryinfo) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_getvariablesonstack) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_getdebuginfo) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_debug)(char *fname,unsigned long fname_len);
+int C2F(sci_who)(char *fname,unsigned long fname_len);
+int C2F(sci_warning)(char *fname,unsigned long fname_len);
+int C2F(sci_argn)(char *fname,unsigned long fname_len);
+int C2F(sci_comp)(char *fname,unsigned long fname_len);
+int C2F(sci_mode)(char *fname,unsigned long fname_len);
+int C2F(sci_type)(char *fname,unsigned long fname_len);
+int C2F(sci_error)(char *fname,unsigned long fname_len);
+int C2F(sci_resume)(char *fname,unsigned long fname_len);
+int C2F(sci_return)(char *fname,unsigned long fname_len);
+int C2F(sci_format)(char *fname,unsigned long fname_len);
+int C2F(sci_isdef)(char *fname,unsigned long fname_len);
+int C2F(sci_exists)(char *fname,unsigned long fname_len);
+int C2F(sci_errcatch)(char *fname,unsigned long fname_len);
+int C2F(sci_errclear)(char *fname,unsigned long fname_len);
+int C2F(sci_iserror)(char *fname,unsigned long fname_len);
+int C2F(sci_predef)(char *fname,unsigned long fname_len);
+int C2F(sci_newfun)(char *fname,unsigned long fname_len);
+int C2F(sci_clearfun)(char *fname,unsigned long fname_len);
+int C2F(sci_funptr)(char *fname,unsigned long fname_len);
+int C2F(sci_macr2lst)(char *fname,unsigned long fname_len);
+int C2F(sci_setbpt)(char *fname,unsigned long fname_len);
+int C2F(sci_delbpt)(char *fname,unsigned long fname_len);
+int C2F(sci_dispbpt)(char *fname,unsigned long fname_len);
+int C2F(sci_funcprot)(char *fname,unsigned long fname_len);
+int C2F(sci_whereis)(char *fname,unsigned long fname_len);
+int C2F(sci_where)(char *fname,unsigned long fname_len);
+int C2F(sci_havewindow)(char *fname,unsigned long fname_len);
+int C2F(sci_stacksize)(char *fname,unsigned long fname_len);
+int C2F(sci_mtlb_mode)(char *fname,unsigned long fname_len);
+int C2F(sci_clear)(char *fname,unsigned long fname_len);
+int C2F(sci_what)(char *fname,unsigned long fname_len);
+int C2F(sci_sciargs)(char *fname,unsigned long fname_len);
+int C2F(sci_chdir)(char *fname,unsigned long fname_len);
+int C2F(sci_getcwd)(char *fname,unsigned long fname_len);
+int C2F(sci_ieee)(char *fname,unsigned long fname_len);
+int C2F(sci_typename)(char *fname,unsigned long fname_len);
+int C2F(sci_global)(char *fname,unsigned long fname_len);
+int C2F(sci_clearglobal)(char *fname,unsigned long fname_len);
+int C2F(sci_isglobal)(char *fname,unsigned long fname_len);
+int C2F(sci_gstacksize)(char *fname,unsigned long fname_len);
+int C2F(sci_intppty)(char *fname,unsigned long fname_len);
+int C2F(sci_lasterror)(char *fname,unsigned long fname_len);
+int C2F(sci_getversion)(char *fname,unsigned long fname_len);
+int C2F(sci_macr2tree)(char *fname,unsigned long fname_len);
+int C2F(sci_getos)(char *fname,unsigned long fname_len);
+int C2F(sci_banner)(char *fname,unsigned long fname_len);
+int C2F(sci_fromjava)(char *fname,unsigned long fname_len);
+int C2F(sci_getmemory)(char *fname,unsigned long fname_len);
+int C2F(sci_fromc)(char *fname,unsigned long fname_len);
+int C2F(sci_getmd5)(char *fname,unsigned long fname_len);
+int C2F(sci_getmodules)(char *fname,unsigned long fname_len);
+int C2F(sci_with_module)(char *fname,unsigned long fname_len);
+int C2F(sci_islittleendian)(char *fname,unsigned long fname_len);
+int C2F(sci_getscilabmode)(char *fname,unsigned long fname_len);
+int C2F(sci_librarieslist)(char *fname,unsigned long fname_len);
+int C2F(sci_libraryinfo)(char *fname,unsigned long fname_len);
+int C2F(sci_getvariablesonstack)(char *fname,unsigned long fname_len);
+int C2F(sci_getdebuginfo)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/ 
 #endif /*  __GW_CORE__ */
 /*--------------------------------------------------------------------------*/
index 61b57b3..4c749be 100644 (file)
@@ -74,7 +74,7 @@ extern int C2F(mktlist)(int *nbitems);
   - 0 if execution succeeds
   - not null if execution fails
 ****************************************************************/
-int C2F(macr2tree) _PARAMS((char *fname, unsigned long fname_len));
+int C2F(macr2tree) (char *fname, unsigned long fname_len);
 
 /****************************************************************
  Function name: CreateVariableTList
index 668a77d..d16743b 100644 (file)
@@ -343,7 +343,7 @@ typedef struct { double r, i; } doublecomplex;
 
 #define VarPtr(x) C2F(intersci).lad[x-1]
 
-typedef int (*interfun) __PARAMS((char *fname,unsigned long l));
+typedef int (*interfun)(char *fname,unsigned long l);
 
 typedef struct tagTabF {
   interfun f;
@@ -385,7 +385,7 @@ typedef struct rhs_opts__ {
   unsigned long int l;
 } rhs_opts;
 
-int get_optionals __PARAMS((char *name,rhs_opts opts[]));
+int get_optionals(char *name,rhs_opts opts[]);
 
 
 /*-------------------------------------
@@ -405,15 +405,15 @@ int get_optionals __PARAMS((char *name,rhs_opts opts[]));
  * prototypes
  *-----------------------------*/
 
-extern int C2F(firstopt) __PARAMS((void));
-extern int C2F(findopt) __PARAMS((char *, rhs_opts *));
+extern int C2F(firstopt)(void);
+extern int C2F(findopt)(char *, rhs_opts *);
 
-extern int C2F(isopt) __PARAMS((integer *,char *,unsigned long));
+extern int C2F(isopt)(integer *,char *,unsigned long);
 
-extern int C2F(checkrhs)  __PARAMS((char *fname, integer *imin, integer *imax, unsigned long fname_len));
-extern int C2F(checklhs)  __PARAMS((char *fname, integer *imin, integer *imax, unsigned long fname_len));
+extern int C2F(checkrhs)(char *fname, integer *imin, integer *imax, unsigned long fname_len);
+extern int C2F(checklhs)(char *fname, integer *imin, integer *imax, unsigned long fname_len);
 
-extern void C2F(freeptr) __PARAMS((double *ip[]));
+extern void C2F(freeptr)(double *ip[]);
 
 #endif /*  STACK_SCI  */
 
index c499cc6..77fc960 100644 (file)
 #ifndef STACK1_H 
 #define STACK1_H 
 
-typedef  void (*S_fp) __PARAMS((char *,int *));
+typedef  void (*S_fp)(char *,int *);
 
-extern integer C2F(ogettype)  __PARAMS((integer *lw));
+extern integer C2F(ogettype)(integer *lw);
 
 
 /** used in stack1.c : defined elsewhere */
 
-extern  int C2F(cvname) __PARAMS((integer *,char *,integer *, unsigned long int));
-extern int C2F(icopy)  __PARAMS((integer *,integer *,integer *,integer *,integer *));
-extern int C2F(dcopy)  __PARAMS((integer *,double *,integer *,double *,integer *));
-extern int C2F(scidcopy)  __PARAMS((integer *,double *,integer *,double *,integer *));
-extern int C2F(unsfdcopy)  __PARAMS((integer *,double *,integer *,double *,integer *));
-extern int C2F(rcopy)  __PARAMS((integer *,float *,integer *,float *,integer *));
-extern void C2F(cstringf) __PARAMS((char ***,integer *,integer *,integer *,integer *,integer *));
-extern int C2F(stringc)  __PARAMS((integer *,char ***,integer *));
-extern int C2F(stackg)   __PARAMS((integer *));
+extern  int C2F(cvname)(integer *,char *,integer *, unsigned long int);
+extern int C2F(icopy)(integer *,integer *,integer *,integer *,integer *);
+extern int C2F(dcopy)(integer *,double *,integer *,double *,integer *);
+extern int C2F(scidcopy)(integer *,double *,integer *,double *,integer *);
+extern int C2F(unsfdcopy)(integer *,double *,integer *,double *,integer *);
+extern int C2F(rcopy)(integer *,float *,integer *,float *,integer *);
+extern void C2F(cstringf)(char ***,integer *,integer *,integer *,integer *,integer *);
+extern int C2F(stringc)(integer *,char ***,integer *);
+extern int C2F(stackg)(integer *);
 
 /* calelm */
 
-extern int C2F(entier)  __PARAMS((integer *n, double *d__, integer *s));
-extern int C2F(simple)  __PARAMS((integer *n, double *d__, float *s));
-extern int C2F(iset)  __PARAMS((integer *n, integer *dx, integer *dy, integer *incy));
+extern int C2F(entier)(integer *n, double *d__, integer *s);
+extern int C2F(simple)(integer *n, double *d__, float *s);
+extern int C2F(iset)(integer *n, integer *dx, integer *dy, integer *incy);
 
 /* stack0.c */
 
-extern int C2F(stacki2d)  __PARAMS((integer *n, integer *il1, integer *dl1));
-extern int C2F(stackr2d)  __PARAMS((integer *n, integer *sl1, integer *dl1));
-extern int C2F(stackc2i)  __PARAMS((integer *n, integer *sl1, integer *il1));
+extern int C2F(stacki2d)(integer *n, integer *il1, integer *dl1);
+extern int C2F(stackr2d)(integer *n, integer *sl1, integer *dl1);
+extern int C2F(stackc2i)(integer *n, integer *sl1, integer *il1);
 
 /* stack1.c */
 
-int C2F(getwsmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *ilr, integer *ilrd, unsigned long fname_len));
-int C2F(getlistwsmat)  __PARAMS((char *fname, integer *topk, integer *spos,integer*lnum, integer *m, integer *n, integer *ilr, integer *ilrd, unsigned long fname_len));
-
-char * get_fname __PARAMS(( char *fname,   unsigned long fname_len));
-int cre_smat_from_str __PARAMS((char *fname,  integer *lw, integer * m, integer * n, char **Str,    unsigned long fname_len));
-
-int C2F(getlistmat)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(getmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
-
-int C2F(listcremat)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *lrs, integer *lcs, unsigned long fname_len));
-int C2F(cremat)  __PARAMS((char *fname, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(crematvar)  __PARAMS((integer *id, integer *lw, integer *it, integer *m, integer *n, double *rtab, double *itab));
-int C2F(crebmatvar) __PARAMS((integer *id, integer *lw, integer *m, integer *n, integer *val));
-int C2F(cresmatvar) __PARAMS((integer *id, integer *lw, char *str, integer *lstr, unsigned long str_len));
-int C2F(fakecremat)  __PARAMS((integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc));
-int C2F(getlistbmat)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *lr, unsigned long fname_len));
-int C2F(getbmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
-
-int C2F(listcrebmat)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, integer *lrs, unsigned long fname_len));
-int C2F(crebmat)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
-int C2F(fakecrebmat)  __PARAMS(( integer *lw, integer *m, integer *n, integer *lr));
-
-int C2F(getsparse)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(getlistsparse)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(listcresparse)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lrs, integer *lcs, unsigned long fname_len));
-int C2F(cresparse)  __PARAMS((char *fname, integer *lw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len));
-
-int C2F(getlistvect)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(getvect)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(getrmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
-int C2F(getcmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
-int C2F(getrvect)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
-int C2F(getscalar)  __PARAMS((char *fname, integer *topk, integer *lw, integer *lr, unsigned long fname_len));
-int C2F(matsize)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, unsigned long fname_len));
-int C2F(vectsize)  __PARAMS((char *fname, integer *topk, integer *lw, integer *n, unsigned long fname_len));
-int C2F(matbsize)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, unsigned long fname_len));
-int C2F(getsmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, unsigned long fname_len));
-int C2F(getsimat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, unsigned long fname_len));
-int C2F(listcresmat)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, integer *nchar, integer *job, integer *ilrs, unsigned long fname_len));
-int C2F(cresmat)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *nchar, unsigned long fname_len));
-int C2F(cresmati)  __PARAMS((char *fname, integer *stlw, integer *m, integer *n, integer *nchar, integer *job, integer *lr, integer *sz, unsigned long fname_len));
-int C2F(cresmat1)  __PARAMS((char *fname, integer *lw, integer *m, integer *nchar, unsigned long fname_len));
-int C2F(cresmat3)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *nchar, char *buffer, unsigned long fname_len, unsigned long buffer_len));
-int C2F(cresmat2)  __PARAMS((char *fname, integer *lw, integer *nchar, integer *lr, unsigned long fname_len));
-int C2F(smatj)  __PARAMS((char *fname, integer *lw, integer *j, unsigned long fname_len));
-int C2F(lmatj)  __PARAMS((char *fname, integer *lw, integer *j, unsigned long fname_len));
-int C2F(pmatj)  __PARAMS((char *fname, integer *lw, integer *j, unsigned long fname_len));
-int C2F(copysmat)  __PARAMS((char *fname, integer *flw, integer *tlw, unsigned long fname_len));
-int C2F(setsimat)  __PARAMS((char *fname, integer *lw, integer *i__, integer *j, integer *nlr, unsigned long fname_len));
-int C2F(realmat)  __PARAMS((void));
-int C2F(crewmat)  __PARAMS((char *fname, integer *lw, integer *m, integer *lr, unsigned long fname_len));
-int C2F(copyobj)  __PARAMS((char *fname, integer *lw, integer *lwd, unsigned long fname_len));
-int C2F(vcopyobj)  __PARAMS((char *fname, integer *lw, integer *lwd, unsigned long fname_len));
-int C2F(swapmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it1, integer *m1, integer *n1, integer *mn1, integer *it2, integer *m2, integer *n2, integer *mn2, unsigned long fname_len));
-int C2F(insmat)  __PARAMS((integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, integer *lr1, integer *lc1));
-int C2F(stackinfo)  __PARAMS((integer *lw, integer *typ));
-int C2F(allmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, unsigned long fname_len));
-int C2F(allmatset)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, unsigned long fname_len));
-int C2F(getilist)  __PARAMS((char *fname, integer *topk, integer *lw, integer *n, integer *i__, integer *ili, unsigned long fname_len));
-int C2F(objvide)  __PARAMS((char *fname, integer *lw, unsigned long fname_len));
-int C2F(getexternal)  __PARAMS((char *fname, integer *topk, integer *lw, char *name__, int *type__, S_fp setfun, unsigned long fname_len, unsigned long name_len));
-int C2F(getpoly)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, char *name__, integer *namel, integer *ilp, integer *lr, integer *lc, unsigned long fname_len, unsigned long name_len));
-int C2F(crewimat)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
-int C2F(getwimat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
-int C2F(checkval)  __PARAMS((char *fname, integer *ival1, integer *ival2, unsigned long fname_len));
-int C2F(optvarget)  __PARAMS((char *fname, integer *topk, integer *iel, char *name__, unsigned long fname_len, unsigned long name_len));
-int C2F(bufstore)  __PARAMS((char *fname, integer *lbuf, integer *lbufi, integer *lbuff, integer *lr, integer *nlr, unsigned long fname_len));
-int C2F(crestringv)  __PARAMS((char *fname, integer *spos, integer *ilorig, integer *lw, unsigned long fname_len));
-
-int C2F(crepointer)  __PARAMS((char *fname, integer *spos, integer *lw, unsigned long fname_len));
-int C2F(listcrepointer)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw,  integer *lrs,  unsigned long fname_len));
-
-int C2F(lcrestringmatfromc)  __PARAMS((char *fname, integer *spos, integer *numi, integer *stlw, integer *lorig, integer *m, integer *n, unsigned long fname_len));
-int C2F(crestringmatfromc)  __PARAMS((char *fname, integer *spos, integer *lorig, integer *m, integer *n, unsigned long fname_len));
-int C2F(crelist)  __PARAMS((integer *slw, integer *ilen, integer *lw));
-int C2F(cretlist)  __PARAMS((integer *slw, integer *ilen, integer *lw));
-int C2F(cremlist)  __PARAMS((integer *slw, integer *ilen, integer *lw));
-int C2F(getlistvectrow)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(getvectrow)  __PARAMS((char *fname, integer *topk, integer *spos, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(getlistvectcol)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(getvectcol)  __PARAMS((char *fname, integer *topk, integer *spos, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
-int C2F(getlistscalar)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *lr, unsigned long fname_len));
-int C2F(listcrestring)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *nch, integer *ilrs, unsigned long fname_len));
-int C2F(crestring)  __PARAMS((char *fname, integer *spos, integer *nchar, integer *ilrs, unsigned long fname_len));
-int C2F(crestringi)  __PARAMS((char *fname, integer *stlw, integer *nchar, integer *ilrs, unsigned long fname_len));
-int C2F(getlistsimat)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, unsigned long fname_len));
-
-
-int C2F(getsimati)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *i, integer *j, integer *lr, integer *nlr,integer *inlist,integer *nel, unsigned long fname_len));
-int C2F(getonepoly)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *md, char *name__, integer *namel, integer *lr, integer *lc, unsigned long fname_len, unsigned long name_len));
-
-int C2F(getlistpointer)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *lr, unsigned long fname_len));
- int C2F(getpointer)  __PARAMS((char *fname, integer *topk, integer *lw, integer *lr, unsigned long fname_len));
-
-
-
-
-int C2F(mspcreate)  __PARAMS((integer *lw, integer *m, integer *n, integer *nzmax, integer *it));
-int C2F(cresmat4)  __PARAMS((char *fname, integer *lw, integer *m, integer *nchar, integer *lr, unsigned long fname_len));
-int C2F(credata) __PARAMS((char *fname, integer *lw, integer m, unsigned long fname_len));
-
-int cre_listsmat_from_str  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, char **Str, long unsigned int fname_len));
-
-int cre_sparse_from_ptr __PARAMS((char *fname,integer * lw,integer *m, integer *n,SciSparse *Str, unsigned long fname_len ));
-
-int cre_listsparse_from_ptr  __PARAMS((char *fname,integer * lw,integer * numi,integer * stlw,integer *  m,integer * n, SciSparse *M, unsigned long fname_len ));
+int C2F(getwsmat)(char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *ilr, integer *ilrd, unsigned long fname_len);
+int C2F(getlistwsmat)(char *fname, integer *topk, integer *spos,integer*lnum, integer *m, integer *n, integer *ilr, integer *ilrd, unsigned long fname_len);
+
+char * get_fname ( char *fname,   unsigned long fname_len);
+int cre_smat_from_str (char *fname,  integer *lw, integer * m, integer * n, char **Str,    unsigned long fname_len);
+
+int C2F(getlistmat)(char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(getmat)(char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len);
+
+int C2F(listcremat)(char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *lrs, integer *lcs, unsigned long fname_len);
+int C2F(cremat)(char *fname, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(crematvar)(integer *id, integer *lw, integer *it, integer *m, integer *n, double *rtab, double *itab);
+int C2F(crebmatvar) (integer *id, integer *lw, integer *m, integer *n, integer *val);
+int C2F(cresmatvar) (integer *id, integer *lw, char *str, integer *lstr, unsigned long str_len);
+int C2F(fakecremat)(integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc);
+int C2F(getlistbmat)(char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *lr, unsigned long fname_len);
+int C2F(getbmat)(char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len);
+
+int C2F(listcrebmat)(char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, integer *lrs, unsigned long fname_len);
+int C2F(crebmat)(char *fname, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len);
+int C2F(fakecrebmat)( integer *lw, integer *m, integer *n, integer *lr);
+
+int C2F(getsparse)(char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(getlistsparse)(char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(listcresparse)(char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lrs, integer *lcs, unsigned long fname_len);
+int C2F(cresparse)(char *fname, integer *lw, integer *it, integer *m, integer *n, integer *nel, integer *mnel, integer *icol, integer *lr, integer *lc, unsigned long fname_len);
+
+int C2F(getlistvect)(char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(getvect)(char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(getrmat)(char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len);
+int C2F(getcmat)(char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len);
+int C2F(getrvect)(char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len);
+int C2F(getscalar)(char *fname, integer *topk, integer *lw, integer *lr, unsigned long fname_len);
+int C2F(matsize)(char *fname, integer *topk, integer *lw, integer *m, integer *n, unsigned long fname_len);
+int C2F(vectsize)(char *fname, integer *topk, integer *lw, integer *n, unsigned long fname_len);
+int C2F(matbsize)(char *fname, integer *topk, integer *lw, integer *m, integer *n, unsigned long fname_len);
+int C2F(getsmat)(char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, unsigned long fname_len);
+int C2F(getsimat)(char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, unsigned long fname_len);
+int C2F(listcresmat)(char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, integer *nchar, integer *job, integer *ilrs, unsigned long fname_len);
+int C2F(cresmat)(char *fname, integer *lw, integer *m, integer *n, integer *nchar, unsigned long fname_len);
+int C2F(cresmati)(char *fname, integer *stlw, integer *m, integer *n, integer *nchar, integer *job, integer *lr, integer *sz, unsigned long fname_len);
+int C2F(cresmat1)(char *fname, integer *lw, integer *m, integer *nchar, unsigned long fname_len);
+int C2F(cresmat3)(char *fname, integer *lw, integer *m, integer *n, integer *nchar, char *buffer, unsigned long fname_len, unsigned long buffer_len);
+int C2F(cresmat2)(char *fname, integer *lw, integer *nchar, integer *lr, unsigned long fname_len);
+int C2F(smatj)(char *fname, integer *lw, integer *j, unsigned long fname_len);
+int C2F(lmatj)(char *fname, integer *lw, integer *j, unsigned long fname_len);
+int C2F(pmatj)(char *fname, integer *lw, integer *j, unsigned long fname_len);
+int C2F(copysmat)(char *fname, integer *flw, integer *tlw, unsigned long fname_len);
+int C2F(setsimat)(char *fname, integer *lw, integer *i__, integer *j, integer *nlr, unsigned long fname_len);
+int C2F(realmat)(void);
+int C2F(crewmat)(char *fname, integer *lw, integer *m, integer *lr, unsigned long fname_len);
+int C2F(copyobj)(char *fname, integer *lw, integer *lwd, unsigned long fname_len);
+int C2F(vcopyobj)(char *fname, integer *lw, integer *lwd, unsigned long fname_len);
+int C2F(swapmat)(char *fname, integer *topk, integer *lw, integer *it1, integer *m1, integer *n1, integer *mn1, integer *it2, integer *m2, integer *n2, integer *mn2, unsigned long fname_len);
+int C2F(insmat)(integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, integer *lr1, integer *lc1);
+int C2F(stackinfo)(integer *lw, integer *typ);
+int C2F(allmat)(char *fname, integer *topk, integer *lw, integer *m, integer *n, unsigned long fname_len);
+int C2F(allmatset)(char *fname, integer *lw, integer *m, integer *n, unsigned long fname_len);
+int C2F(getilist)(char *fname, integer *topk, integer *lw, integer *n, integer *i__, integer *ili, unsigned long fname_len);
+int C2F(objvide)(char *fname, integer *lw, unsigned long fname_len);
+int C2F(getexternal)(char *fname, integer *topk, integer *lw, char *name__, int *type__, S_fp setfun, unsigned long fname_len, unsigned long name_len);
+int C2F(getpoly)(char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, char *name__, integer *namel, integer *ilp, integer *lr, integer *lc, unsigned long fname_len, unsigned long name_len);
+int C2F(crewimat)(char *fname, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len);
+int C2F(getwimat)(char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len);
+int C2F(checkval)(char *fname, integer *ival1, integer *ival2, unsigned long fname_len);
+int C2F(optvarget)(char *fname, integer *topk, integer *iel, char *name__, unsigned long fname_len, unsigned long name_len);
+int C2F(bufstore)(char *fname, integer *lbuf, integer *lbufi, integer *lbuff, integer *lr, integer *nlr, unsigned long fname_len);
+int C2F(crestringv)(char *fname, integer *spos, integer *ilorig, integer *lw, unsigned long fname_len);
+
+int C2F(crepointer)(char *fname, integer *spos, integer *lw, unsigned long fname_len);
+int C2F(listcrepointer)(char *fname, integer *lw, integer *numi, integer *stlw,  integer *lrs,  unsigned long fname_len);
+
+int C2F(lcrestringmatfromc)(char *fname, integer *spos, integer *numi, integer *stlw, integer *lorig, integer *m, integer *n, unsigned long fname_len);
+int C2F(crestringmatfromc)(char *fname, integer *spos, integer *lorig, integer *m, integer *n, unsigned long fname_len);
+int C2F(crelist)(integer *slw, integer *ilen, integer *lw);
+int C2F(cretlist)(integer *slw, integer *ilen, integer *lw);
+int C2F(cremlist)(integer *slw, integer *ilen, integer *lw);
+int C2F(getlistvectrow)(char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(getvectrow)(char *fname, integer *topk, integer *spos, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(getlistvectcol)(char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(getvectcol)(char *fname, integer *topk, integer *spos, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len);
+int C2F(getlistscalar)(char *fname, integer *topk, integer *spos, integer *lnum, integer *lr, unsigned long fname_len);
+int C2F(listcrestring)(char *fname, integer *lw, integer *numi, integer *stlw, integer *nch, integer *ilrs, unsigned long fname_len);
+int C2F(crestring)(char *fname, integer *spos, integer *nchar, integer *ilrs, unsigned long fname_len);
+int C2F(crestringi)(char *fname, integer *stlw, integer *nchar, integer *ilrs, unsigned long fname_len);
+int C2F(getlistsimat)(char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, unsigned long fname_len);
+
+
+int C2F(getsimati)(char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *i, integer *j, integer *lr, integer *nlr,integer *inlist,integer *nel, unsigned long fname_len);
+int C2F(getonepoly)(char *fname, integer *topk, integer *lw, integer *it, integer *md, char *name__, integer *namel, integer *lr, integer *lc, unsigned long fname_len, unsigned long name_len);
+
+int C2F(getlistpointer)(char *fname, integer *topk, integer *spos, integer *lnum, integer *lr, unsigned long fname_len);
+ int C2F(getpointer)(char *fname, integer *topk, integer *lw, integer *lr, unsigned long fname_len);
+
+
+
+
+int C2F(mspcreate)(integer *lw, integer *m, integer *n, integer *nzmax, integer *it);
+int C2F(cresmat4)(char *fname, integer *lw, integer *m, integer *nchar, integer *lr, unsigned long fname_len);
+int C2F(credata) (char *fname, integer *lw, integer m, unsigned long fname_len);
+
+int cre_listsmat_from_str(char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, char **Str, long unsigned int fname_len);
+
+int cre_sparse_from_ptr (char *fname,integer * lw,integer *m, integer *n,SciSparse *Str, unsigned long fname_len );
+
+int cre_listsparse_from_ptr(char *fname,integer * lw,integer * numi,integer * stlw,integer *  m,integer * n, SciSparse *M, unsigned long fname_len );
 
 
 
 /**********************************************************************
  * INT MATRICES 
  **********************************************************************/
-int C2F(getlistimat) __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, long unsigned int fname_len));
+int C2F(getlistimat) (char *fname, integer *topk, integer *spos, integer *lnum, integer *it, integer *m, integer *n, integer *lr, long unsigned int fname_len);
 
-int C2F(getimat) __PARAMS((char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, long unsigned int fname_len));
+int C2F(getimat) (char *fname, integer *topk, integer *lw, integer *it, integer *m, integer *n, integer *lr, long unsigned int fname_len);
 
-int C2F(listcreimat) __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *lrs, long unsigned int fname_len));
+int C2F(listcreimat) (char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *lrs, long unsigned int fname_len);
 
-int C2F(creimat) __PARAMS((char *fname, integer *lw, integer *it, integer *m, integer *n, integer *lr, long unsigned int fname_len));
+int C2F(creimat) (char *fname, integer *lw, integer *it, integer *m, integer *n, integer *lr, long unsigned int fname_len);
 int C2F(creimati)(char *fname,integer *stlw,integer *it,integer *m,integer *n,integer *lr,int *flagx,unsigned long fname_len);
 
 /**********************************************************************
  * HANDLE MATRICES 
  **********************************************************************/
-int C2F(getlisthmat)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *lr, unsigned long fname_len));
-int C2F(gethmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
+int C2F(getlisthmat)(char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *lr, unsigned long fname_len);
+int C2F(gethmat)(char *fname, integer *topk, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len);
 
 
-int C2F(listcrehmat)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, integer *lrs, unsigned long fname_len));
-int C2F(crehmat)  __PARAMS((char *fname, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len));
+int C2F(listcrehmat)(char *fname, integer *lw, integer *numi, integer *stlw, integer *m, integer *n, integer *lrs, unsigned long fname_len);
+int C2F(crehmat)(char *fname, integer *lw, integer *m, integer *n, integer *lr, unsigned long fname_len);
 
 #endif 
index 9a80133..fdc2119 100644 (file)
@@ -20,7 +20,7 @@
  * @param size size of the array
  * @param lda
  */
-void SciToF77 __PARAMS((double *ptr, int size, int lda));
+void SciToF77(double *ptr, int size, int lda);
 
 /**
  * Convert an Fortran array of double to a Scilab format
@@ -29,43 +29,43 @@ void SciToF77 __PARAMS((double *ptr, int size, int lda));
  * @param size size of the array
  * @param lda
  */
-void F77ToSci __PARAMS((double *ptr, int size, int lda));
-void double2z __PARAMS((double *ptr,  double *ptr77z, int size, int lda));
-void z2double __PARAMS((double *ptrz, double *ptrsci, int size, int lda));
+void F77ToSci(double *ptr, int size, int lda);
+void double2z(double *ptr,  double *ptr77z, int size, int lda);
+void z2double(double *ptrz, double *ptrsci, int size, int lda);
 
 /* from int */
 
-extern  int C2F(tpconv) __PARAMS((integer *,integer *,integer *,void *, integer *,void *, integer *));
+extern  int C2F(tpconv)(integer *,integer *,integer *,void *, integer *,void *, integer *);
 
 /* from system */
 
-extern int C2F(mklist) __PARAMS((integer *));
-extern int C2F(mklistt) __PARAMS((integer *,integer *));
-extern int C2F(funs) __PARAMS((integer *));
-extern int C2F(putid) __PARAMS((integer *,integer *));
-extern int C2F(allowptr) __PARAMS((integer *));
-extern int C2F(ref2val) __PARAMS((void));
-extern int C2F(allops) __PARAMS((void));
-extern int C2F(putfunnam) __PARAMS((char *fname,integer *lw, unsigned long));
+extern int C2F(mklist)(integer *);
+extern int C2F(mklistt)(integer *,integer *);
+extern int C2F(funs)(integer *);
+extern int C2F(putid)(integer *,integer *);
+extern int C2F(allowptr)(integer *);
+extern int C2F(ref2val)(void);
+extern int C2F(allops)(void);
+extern int C2F(putfunnam)(char *fname,integer *lw, unsigned long);
 
 
 /* from intersci */
 
-extern void C2F(cchar) __PARAMS((int *n,char **ip,int *op));
-extern void C2F(cdouble) __PARAMS((int *n,double **ip,double *op));
-extern void C2F(cint)  __PARAMS((int *n,int **ip,double *op));
-extern void C2F(cfloat) __PARAMS ((     int *n,     float *ip[],     double *op));
-extern void C2F(cbool) __PARAMS ((     int *n,     int *ip[],     int *op));
+extern void C2F(cchar)(int *n,char **ip,int *op);
+extern void C2F(cdouble)(int *n,double **ip,double *op);
+extern void C2F(cint) (int *n,int **ip,double *op);
+extern void C2F(cfloat)(     int *n,     float *ip[],     double *op);
+extern void C2F(cbool)(     int *n,     int *ip[],     int *op);
 
 /* from somewhere (maybe stack1.h) */
 
-extern void C2F(setfeval) __PARAMS((char *,int *));
-extern int C2F(fakecresmat2) __PARAMS((integer *lw, integer *nchar, integer *lr));
+extern void C2F(setfeval)(char *,int *);
+extern int C2F(fakecresmat2)(integer *lw, integer *nchar, integer *lr);
 /* from stack2.h */
 int C2F(isoptlw)(integer *topk,integer  *lw, char *namex, unsigned long name_len);
 integer C2F(numopt)(void);
 
-int C2F(convert2sci) __PARAMS((int *));
+int C2F(convert2sci)(int *);
 
 /* 
  * returns the type of object at position lw in the stack
@@ -84,11 +84,11 @@ integer C2F(gettype)(integer *lw);
  *     variable on the stack is at position top-rhs+nbvars
  * @return
  */
-int C2F(putlhsvar) __PARAMS((void));
+int C2F(putlhsvar)(void);
 
-int C2F(isref) __PARAMS((integer *lw));
-integer C2F(vartype) __PARAMS((integer *number));
-integer C2F(elementtype) __PARAMS((integer *lnumber,integer *number));
+int C2F(isref)(integer *lw);
+integer C2F(vartype)(integer *number);
+integer C2F(elementtype)(integer *lnumber,integer *number);
 
 /**
  * Create a variable into the Scilab stack
@@ -101,11 +101,11 @@ integer C2F(elementtype) __PARAMS((integer *lnumber,integer *number));
  * @param[out] lr the address of the data in Scilab Stack
  * @param type_len length of the char *type__
  */
-int C2F(createvar) __PARAMS((integer *lw, char *type__, integer *m, integer *n, integer *lr, unsigned long type_len));
+int C2F(createvar)(integer *lw, char *type__, integer *m, integer *n, integer *lr, unsigned long type_len);
 
-int C2F(creatework)  __PARAMS((integer *number,integer *m,integer  *lr));
+int C2F(creatework) (integer *number,integer *m,integer  *lr);
 
-int C2F(setworksize)  __PARAMS((integer *number,integer *size));
+int C2F(setworksize) (integer *number,integer *size);
 
 
 /**
@@ -130,15 +130,15 @@ int C2F(setworksize)  __PARAMS((integer *number,integer *size));
  * @param type_len length of the char *type__
  * @return the result of the operation
  */
-int C2F(createcvar) __PARAMS((integer *lw, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long type_len));
+int C2F(createcvar)(integer *lw, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long type_len);
 
 
-int C2F(createlist) __PARAMS((integer *lw, integer *nel));
-int C2F(createvarfrom) __PARAMS((integer *lw, char *type__, integer *m, integer *n, integer *lr, integer *lar, unsigned long type_len));
-int C2F(createcvarfrom) __PARAMS((integer *lw, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, integer *lar, integer *lac, unsigned long type_len));
-int C2F(createlistvarfrom) __PARAMS((integer *lnumber, integer *number, char *type__, integer *m, integer *n, integer *lr, integer *lar, unsigned long type_len));
+int C2F(createlist)(integer *lw, integer *nel);
+int C2F(createvarfrom)(integer *lw, char *type__, integer *m, integer *n, integer *lr, integer *lar, unsigned long type_len);
+int C2F(createcvarfrom)(integer *lw, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, integer *lar, integer *lac, unsigned long type_len);
+int C2F(createlistvarfrom)(integer *lnumber, integer *number, char *type__, integer *m, integer *n, integer *lr, integer *lar, unsigned long type_len);
 
-int C2F(getmatdims)  __PARAMS((integer *number, integer *m, integer *n));
+int C2F(getmatdims) (integer *number, integer *m, integer *n);
 
 
 /**
@@ -163,7 +163,7 @@ int C2F(getmatdims)  __PARAMS((integer *number, integer *m, integer *n));
  * @param type_len length of the char *type__
  * @return the result of the operation
  */
-int C2F(getrhsvar) __PARAMS((integer *number, char *type__, integer *m, integer *n, integer *lr, unsigned long type_len));
+int C2F(getrhsvar)(integer *number, char *type__, integer *m, integer *n, integer *lr, unsigned long type_len);
 
 
 /**
@@ -183,11 +183,11 @@ int C2F(getrhsvar) __PARAMS((integer *number, char *type__, integer *m, integer
  * @param type_len length of the char *type__
  * @return the result of the operation
  */
-int C2F(getrhscvar) __PARAMS((integer *number, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long type_len));
+int C2F(getrhscvar)(integer *number, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long type_len);
 
 
-int C2F(getlistrhsvar) __PARAMS((integer *lnumber, integer *number, char *type__, integer *m, integer *n, integer *lr,  unsigned long type_len));
-int C2F(getlistrhscvar) __PARAMS((integer *lnumber, integer *number, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long type_len));
+int C2F(getlistrhsvar)(integer *lnumber, integer *number, char *type__, integer *m, integer *n, integer *lr,  unsigned long type_len);
+int C2F(getlistrhscvar)(integer *lnumber, integer *number, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long type_len);
 
 
 
@@ -200,7 +200,7 @@ int C2F(getlistrhscvar) __PARAMS((integer *lnumber, integer *number, char *type_
  * @param iptr the data we want to add into the stack
  * @param type_len length of the char *type__
  */
-int C2F(createvarfromptr) __PARAMS((integer *number, char *type__, integer *m, integer *n,void *iptr, unsigned long type_len));
+int C2F(createvarfromptr)(integer *number, char *type__, integer *m, integer *n,void *iptr, unsigned long type_len);
 
 
 /**
@@ -213,61 +213,61 @@ int C2F(createvarfromptr) __PARAMS((integer *number, char *type__, integer *m, i
  * @param iptc the complex data we want to add into the stack
  * @param type_len length of the char *type__
  */
-int C2F(createcvarfromptr) __PARAMS((integer *number, char *type__, integer *it, integer *m, integer *n, double *iptr, double *iptc, unsigned long type_len));
-
-int C2F(mklistfromvars) __PARAMS((integer *pos, integer *n));
-int C2F(mktlistfromvars) __PARAMS((integer *pos, integer *n));
-int C2F(mkmlistfromvars) __PARAMS((integer *pos, integer *n));
-int C2F(in2str) __PARAMS((integer *n, integer *line, char *str, unsigned long str_len));
-int C2F(callscifun) __PARAMS((char *string, unsigned long string_len));
-int C2F(scifunction) __PARAMS((integer *number, integer *ptr, integer *mlhs, integer *mrhs));
-int C2F(scistring) __PARAMS((integer *ifirst, char *thestring, integer *mlhs, integer *mrhs, unsigned long thestring_len));
-integer C2F(getopcode) __PARAMS((char *string, unsigned long string_len));
-int C2F(scibuiltin) __PARAMS((integer *number, integer *ifun, integer *ifin, integer *mlhs, integer *mrhs));
-int C2F(sciops) __PARAMS((integer *number, integer *op, integer *mlhs, integer *mrhs));
-int C2F(getrhssys) __PARAMS((integer *lw, integer *n, integer *m, integer *p, integer *ptra, integer *ptrb, integer *ptrc, integer *ptrd, integer *ptrx0, double *h__));
-int C2F(errorinfo) __PARAMS((char *fname, integer *info, unsigned long fname_len));
-integer C2F(maxvol) __PARAMS((integer *lw, char *type__, unsigned long type_len));
-
-int  C2F(createlistvarfromptr)  __PARAMS((integer *lnumber, integer *number, char *typex, integer *m, integer *n, void *iptr, long unsigned int type_len));
-
-int C2F(createlistcvarfromptr)  __PARAMS((integer * lnumber,integer * number, char * typex,integer *it,integer * m,integer * n, void *iptr, void * iptc, unsigned long ttype_len));
+int C2F(createcvarfromptr)(integer *number, char *type__, integer *it, integer *m, integer *n, double *iptr, double *iptc, unsigned long type_len);
+
+int C2F(mklistfromvars)(integer *pos, integer *n);
+int C2F(mktlistfromvars)(integer *pos, integer *n);
+int C2F(mkmlistfromvars)(integer *pos, integer *n);
+int C2F(in2str)(integer *n, integer *line, char *str, unsigned long str_len);
+int C2F(callscifun)(char *string, unsigned long string_len);
+int C2F(scifunction)(integer *number, integer *ptr, integer *mlhs, integer *mrhs);
+int C2F(scistring)(integer *ifirst, char *thestring, integer *mlhs, integer *mrhs, unsigned long thestring_len);
+integer C2F(getopcode)(char *string, unsigned long string_len);
+int C2F(scibuiltin)(integer *number, integer *ifun, integer *ifin, integer *mlhs, integer *mrhs);
+int C2F(sciops)(integer *number, integer *op, integer *mlhs, integer *mrhs);
+int C2F(getrhssys)(integer *lw, integer *n, integer *m, integer *p, integer *ptra, integer *ptrb, integer *ptrc, integer *ptrd, integer *ptrx0, double *h__);
+int C2F(errorinfo)(char *fname, integer *info, unsigned long fname_len);
+integer C2F(maxvol)(integer *lw, char *type__, unsigned long type_len);
+
+int  C2F(createlistvarfromptr) (integer *lnumber, integer *number, char *typex, integer *m, integer *n, void *iptr, long unsigned int type_len);
+
+int C2F(createlistcvarfromptr) (integer * lnumber,integer * number, char * typex,integer *it,integer * m,integer * n, void *iptr, void * iptc, unsigned long ttype_len);
 int C2F(createlistcvarfrom)(integer *lnumber, integer *number, char *typex, integer *it, integer *m,integer *n,integer *lr,integer *lc,integer *lar,integer *lac, unsigned long type_len);
 
-int C2F(createdata) __PARAMS((integer *lw, integer n));
-
-char * ArgPosition __PARAMS((int i));
-char * ArgsPosition __PARAMS((int i,int j));
-
-int IsRef __PARAMS((int lw));
-int Ref2val __PARAMS((int from , int to )) ;
-
-void *GetVarPtr __PARAMS((int n));
-void *GetData __PARAMS((int lw));
-void *GetRawData __PARAMS((int lw));
-int GetDataSize __PARAMS((int lw));
-void *GetDataFromName __PARAMS(( char *name ));
-int C2F(createreffromname) __PARAMS((int number, char *name ));
-int C2F(createreference) __PARAMS(( int number, int pointed ));
-int C2F(changetoref) __PARAMS(( int number, int pointed ));
-
-int check_square __PARAMS((int pos,int m,int n));
-int check_vector __PARAMS((int pos,int m,int n));
-int check_row __PARAMS((int pos,int m,int n));
-int check_col __PARAMS((int pos,int m,int n));
-int check_scalar __PARAMS((int pos,int m,int n));
-int check_dims __PARAMS((int pos,int m,int n,int m1,int n1));
-int check_length __PARAMS((int pos,int m,int n));
-int check_same_dims   __PARAMS((int pos1,int pos2,int m1,int n1,int m2,int n2));
-int check_dim_prop  __PARAMS((int pos1,int pos2,int n));
-int check_one_dim   __PARAMS((int pos1,int dim,int val,int valref));
-
-int check_list_square __PARAMS((int lpos,int pos,int m,int n));
-int check_list_vector __PARAMS((int lpos,int pos,int m,int n));
-int check_list_row __PARAMS((int lpos,int pos,int m,int n));
-int check_list_col __PARAMS((int lpos,int pos,int m,int n));
-int check_list_scalar __PARAMS((int lpos,int pos,int m,int n));
-int check_list_one_dim __PARAMS((int lpos,int pos,int dim,int val,int valref));
+int C2F(createdata)(integer *lw, integer n);
+
+char * ArgPosition(int i);
+char * ArgsPosition(int i,int j);
+
+int IsRef(int lw);
+int Ref2val(int from , int to ) ;
+
+void *GetVarPtr(int n);
+void *GetData(int lw);
+void *GetRawData(int lw);
+int GetDataSize(int lw);
+void *GetDataFromName( char *name );
+int C2F(createreffromname)(int number, char *name );
+int C2F(createreference)( int number, int pointed );
+int C2F(changetoref)( int number, int pointed );
+
+int check_square(int pos,int m,int n);
+int check_vector(int pos,int m,int n);
+int check_row(int pos,int m,int n);
+int check_col(int pos,int m,int n);
+int check_scalar(int pos,int m,int n);
+int check_dims(int pos,int m,int n,int m1,int n1);
+int check_length(int pos,int m,int n);
+int check_same_dims  (int pos1,int pos2,int m1,int n1,int m2,int n2);
+int check_dim_prop (int pos1,int pos2,int n);
+int check_one_dim  (int pos1,int dim,int val,int valref);
+
+int check_list_square(int lpos,int pos,int m,int n);
+int check_list_vector(int lpos,int pos,int m,int n);
+int check_list_row(int lpos,int pos,int m,int n);
+int check_list_col(int lpos,int pos,int m,int n);
+int check_list_scalar(int lpos,int pos,int m,int n);
+int check_list_one_dim(int lpos,int pos,int dim,int val,int valref);
 
 int C2F(overload)(int *lw,char *fname,unsigned long l);
 
index 771ebca..03f456c 100644 (file)
  * @param name_len
  * @return if the operation successed (true) or not (false)
  */
-int C2F(readmat)  __PARAMS((char *name__, integer *m, integer *n, double *scimat, unsigned long name_len));
+int C2F(readmat)  (char *name__, integer *m, integer *n, double *scimat, unsigned long name_len);
 
 
-int C2F(creadmat)  __PARAMS((char *name__, integer *m, integer *n, double *scimat, unsigned long name_len));
-int C2F(creadcmat)  __PARAMS((char *name__, integer *m, integer *n, double *scimat, unsigned long name_len));
-int C2F(creadsmat)  __PARAMS((char *name__, integer *m, integer *n, double *scimat, unsigned long name_len));
+int C2F(creadmat)  (char *name__, integer *m, integer *n, double *scimat, unsigned long name_len);
+int C2F(creadcmat)  (char *name__, integer *m, integer *n, double *scimat, unsigned long name_len);
+int C2F(creadsmat)  (char *name__, integer *m, integer *n, double *scimat, unsigned long name_len);
 
 /**
  * cwritemat writes vector/matrix in scilab's internal stack
@@ -55,16 +55,16 @@ int C2F(creadsmat)  __PARAMS((char *name__, integer *m, integer *n, double *scim
  * @param name_len strlen of name__ (Fortran needs it)
  * @return if the operation successed (true) or not (false)
  */
-int C2F(cwritemat)  __PARAMS((char *name__, integer *m, integer *n, double *mat, unsigned long name_len));
-int C2F(cwritecmat)  __PARAMS((char *name__, integer *m, integer *n, double *mat, unsigned long name_len));
-int C2F(readchain)  __PARAMS((char *name__, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len));
-int C2F(creadchain)  __PARAMS((char *name__, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len));
-int C2F(creadchains)  __PARAMS((char *name__, integer *ir, integer *ic, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len));
-int C2F(cwritechain)  __PARAMS((char *name__, integer *m, char *chai, unsigned long name_len, unsigned long chai_len));
-int C2F(matptr)  __PARAMS((char *name__, integer *m, integer *n, integer *lp, unsigned long name_len));
-int C2F(cmatptr)  __PARAMS((char *name__, integer *m, integer *n, integer *lp, unsigned long name_len));
-int C2F(cmatcptr)  __PARAMS((char *name__, integer *m, integer *n, integer *lp, unsigned long name_len));
-int C2F(cmatsptr)  __PARAMS((char *name__, integer *m, integer *n, integer *ix, integer *j, integer *lp, integer *nlr, unsigned long name_len));
+int C2F(cwritemat)  (char *name__, integer *m, integer *n, double *mat, unsigned long name_len);
+int C2F(cwritecmat)  (char *name__, integer *m, integer *n, double *mat, unsigned long name_len);
+int C2F(readchain)  (char *name__, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len);
+int C2F(creadchain)  (char *name__, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len);
+int C2F(creadchains)  (char *name__, integer *ir, integer *ic, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len);
+int C2F(cwritechain)  (char *name__, integer *m, char *chai, unsigned long name_len, unsigned long chai_len);
+int C2F(matptr)  (char *name__, integer *m, integer *n, integer *lp, unsigned long name_len);
+int C2F(cmatptr)  (char *name__, integer *m, integer *n, integer *lp, unsigned long name_len);
+int C2F(cmatcptr)  (char *name__, integer *m, integer *n, integer *lp, unsigned long name_len);
+int C2F(cmatsptr)  (char *name__, integer *m, integer *n, integer *ix, integer *j, integer *lp, integer *nlr, unsigned long name_len);
 
 /** 
 read a boolean matrix in scilab stack
@@ -81,9 +81,9 @@ get pointer on a named boolean matrix
 */
 int C2F(cmatbptr)(char *namex, integer *m,integer *n,integer *lp, unsigned long name_len);
 
-int C2F(str2name)  __PARAMS((char *name__, integer *id, unsigned long name_len));
-int C2F(objptr)  __PARAMS((char *name__, integer *lp, integer *fin, unsigned long name_len));
-int C2F(putvar) __PARAMS((int *number, char *namex, unsigned long name_len ));
+int C2F(str2name)  (char *name__, integer *id, unsigned long name_len);
+int C2F(objptr)  (char *name__, integer *lp, integer *fin, unsigned long name_len);
+int C2F(putvar) (int *number, char *namex, unsigned long name_len );
 
 
 /**
index 69c4b8c..b322d50 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intargn)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_argn) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_argn) (char *fname,unsigned long fname_len)
 {
        C2F(intargn)();
        return 0;
index 5fad20a..13dd6de 100644 (file)
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-int C2F(intbanner) _PARAMS((char *fname));
 extern void banner(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_banner) _PARAMS((char *fname,unsigned long fname_len))
-{
-       C2F(intbanner)(fname);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
-int C2F(intbanner) _PARAMS((char *fname))
+int C2F(sci_banner)(char *fname,unsigned long fname_len)
 {
        Rhs=Max(Rhs,0);
        CheckRhs(0,0) ;
index 0c94e8f..8d9d387 100644 (file)
@@ -18,7 +18,7 @@
 #include "localization.h"
 #include "cluni0.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_chdir) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_chdir)(char *fname,unsigned long fname_len)
 {
        Rhs = Max(0, Rhs);
        CheckRhs(0,1);
index ddaf017..63403ec 100644 (file)
@@ -13,9 +13,9 @@
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intclear) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(intclear)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_clear) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_clear)(char *fname,unsigned long fname_len)
 {
        C2F(intclear)(fname,fname_len);
        return 0;
index 46c4c33..cf25279 100644 (file)
@@ -19,7 +19,7 @@
 #include "Funtab.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_clearfun) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_clearfun)(char *fname,unsigned long fname_len)
 {
        static int l1 = 0,n1 = 0,m1 = 0;
        int *Status = NULL;
index 21ad5a3..72abd93 100644 (file)
@@ -13,9 +13,9 @@
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intclearglobal) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(intclearglobal)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_clearglobal) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_clearglobal)(char *fname,unsigned long fname_len)
 {
        C2F(intclearglobal)(fname,fname_len);
        return 0;
index 7b6c159..de8804c 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
  extern int C2F(intcomp)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_comp) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_comp)(char *fname,unsigned long fname_len)
 {
        C2F(intcomp)();
        return 0;
index 0d989f9..8d3ba9c 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intdebug)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_debug) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_debug)(char *fname,unsigned long fname_len)
 {
        C2F(intdebug)();
        return 0;
index 188f5d0..1366cf1 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intdelbpt)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_delbpt) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_delbpt)(char *fname,unsigned long fname_len)
 {
        C2F(intdelbpt)();
        return 0;
index 4da4581..2c845db 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intdispbpt)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_dispbpt) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_dispbpt)(char *fname,unsigned long fname_len)
 {
        C2F(intdispbpt)();
        return 0;
index 6a954e8..5c23279 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(interrcatch)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_errcatch) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_errcatch)(char *fname,unsigned long fname_len)
 {
        C2F(interrcatch)();
        return 0;
index a782313..ba7148c 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(interrclear)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_errclear) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_errclear)(char *fname,unsigned long fname_len)
 {
        C2F(interrclear)();
        return 0;
index 32e55f6..a703a42 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(interror)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_error) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_error)(char *fname,unsigned long fname_len)
 {
        C2F(interror)();
        return 0;
index 69b347a..272d3bf 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intexists)(int *val);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_exists) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_exists)(char *fname,unsigned long fname_len)
 {
        int val=0;
        C2F(intexists)(&val);
index b5f13de..9a73df7 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intformat)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_format) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_format)(char *fname,unsigned long fname_len)
 {
        C2F(intformat)();
        return 0;
index 3803ff1..eb03baa 100644 (file)
 #include "MALLOC.h"
 #include "../../src/c/fromc.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_fromc) _PARAMS((char *fname,unsigned long fname_len))
-{
-       C2F(intfromc)(fname);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
-int C2F(intfromc) _PARAMS((char *fname))
+int C2F(sci_fromc)(char *fname,unsigned long fname_len)
 {
        static int n1;
        int *paramoutINT=(int*)MALLOC(sizeof(int));
index 7071634..7319262 100644 (file)
 #include "MALLOC.h"
 #include "fromjava.h"
 /*--------------------------------------------------------------------------*/
-int C2F(intfromjava) _PARAMS((char *fname));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_fromjava) _PARAMS((char *fname,unsigned long fname_len))
-{
-       C2F(intfromjava)(fname);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
-int C2F(intfromjava) _PARAMS((char *fname))
+int C2F(sci_fromjava)(char *fname,unsigned long fname_len)
 {
        static int n1;
        int *paramoutINT=(int*)MALLOC(sizeof(int)+1);
index bbdf09f..6e758e7 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intfuncprot)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_funcprot) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_funcprot)(char *fname,unsigned long fname_len)
 {
        C2F(intfuncprot)();
        return 0;
index 1309801..607d467 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intfunptr)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_funptr) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_funptr) (char *fname,unsigned long fname_len)
 {
        C2F(intfunptr)();
        return 0;
index e3edc35..dac6fe7 100644 (file)
@@ -17,7 +17,7 @@
 #include "Scierror.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getcwd) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getcwd)(char *fname,unsigned long fname_len)
 {
        int ierr=0;
        int lpath=0;
index 5ff175a..237435b 100644 (file)
@@ -24,7 +24,7 @@
 #include "getstaticdebuginfo.h"
 #endif
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getdebuginfo) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getdebuginfo)(char *fname,unsigned long fname_len)
 {
        char **outputDynamicList = NULL;
        char **outputStaticList = NULL;
index d1788a1..00cdf17 100644 (file)
@@ -21,7 +21,7 @@
 #include "freeArrayOfString.h"
 #include "cluni0.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getmd5) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getmd5) (char *fname,unsigned long fname_len)
 {
        static int l1 = 0;
        static int m1 = 0;
index 85a3e4d..b39799c 100644 (file)
@@ -14,7 +14,7 @@
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getmemory) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getmemory) (char *fname,unsigned long fname_len)
 {
        static int l1,one=1;
 
index 5de2574..59bbe00 100644 (file)
@@ -17,7 +17,7 @@
 #include "Scierror.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getmodules) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getmodules) (char *fname,unsigned long fname_len)
 {
        struct MODULESLIST *Modules=NULL;
 
index b77af50..9cbeae7 100644 (file)
 #include "stack-c.h"
 #include "MALLOC.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intgetos) _PARAMS((char *fname));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_getos) _PARAMS((char *fname,unsigned long fname_len))
-{
-       C2F(intgetos)(fname);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
-/* Allan CORNET INRIA 2004 */
-int C2F(intgetos) _PARAMS((char *fname))
+int C2F(sci_getos)(char *fname,unsigned long fname_len)
 {
        static int n1,m1;
        char OperatingSystem[256];
index 31802fb..3a7f743 100644 (file)
@@ -16,7 +16,7 @@
 #include "MALLOC.h"
 #include "scilabmode.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getscilabmode) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getscilabmode)(char *fname,unsigned long fname_len)
 {
        static int n1,m1;
        char *output=NULL ;
index 812326d..55e7f22 100644 (file)
@@ -17,7 +17,7 @@
 #include "Scierror.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getvariablesonstack) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getvariablesonstack)(char *fname,unsigned long fname_len)
 {
        int l1,n1,m1;
        char **Variables = NULL;
index 5c6c47d..c023378 100644 (file)
@@ -31,7 +31,7 @@ static int getversion_two_rhs(void);
 /*--------------------------------------------------------------------------*/
 #define VERSION_STRING "string_info"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getversion) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getversion)(char *fname,unsigned long fname_len)
 {
        Rhs=Max(0,Rhs);
 
index 328f309..e3f4a24 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intglobal)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_global) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_global)(char *fname,unsigned long fname_len)
 {
        C2F(intglobal)();
        return 0;
index df1bf6a..d6f5d70 100644 (file)
@@ -40,7 +40,7 @@ extern integer C2F(adjustgstacksize)();
 * sz : 2-vector [total used]
 */
 /*--------------------------------------------------------------------------*/
-int C2F(sci_gstacksize) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_gstacksize)(char *fname,unsigned long fname_len)
 {
        static int l1,n1,m1;
 
index e2fd2ff..6e3eaf0 100644 (file)
@@ -15,7 +15,7 @@
 #include "MALLOC.h"
 #include "scilabmode.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_havewindow) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_havewindow)(char *fname,unsigned long fname_len)
 {
        static int n1,m1;
        int *Status=NULL;
index ddfc155..cf9b8cf 100644 (file)
@@ -13,9 +13,9 @@
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intsieee) _PARAMS((char *fname, unsigned long fname_len));
+extern int C2F(intsieee)(char *fname, unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_ieee) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_ieee)(char *fname,unsigned long fname_len)
 {
        C2F(intsieee)(fname,fname_len);
        return 0;
index 8009f51..1746608 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intintppty)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_intppty) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_intppty)(char *fname,unsigned long fname_len)
 {
        C2F(intintppty)();
        return 0;
index d4ebcea..276c078 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intexists)(int *val);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_isdef) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_isdef)(char *fname,unsigned long fname_len)
 {
        int val=1;
        C2F(intexists)(&val);
index a2fc6c6..488ef5d 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intiserror)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_iserror) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_iserror)(char *fname,unsigned long fname_len)
 {
        C2F(intiserror)();
        return 0;
index 325f926..c177d79 100644 (file)
@@ -13,9 +13,9 @@
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intisglobal) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(intisglobal)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_isglobal) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_isglobal)(char *fname,unsigned long fname_len)
 {
        C2F(intisglobal)(fname,fname_len);
        return 0;
index 3c3c999..7344b58 100644 (file)
@@ -14,7 +14,7 @@
 #include "islittleendian.h"
 #include "MALLOC.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_islittleendian) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_islittleendian)(char *fname,unsigned long fname_len)
 {
        static int n1,m1;
        int *Status=NULL;
index 3d97b85..3593091 100644 (file)
@@ -13,9 +13,9 @@
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(lasterror) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(lasterror)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_lasterror) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_lasterror)(char *fname,unsigned long fname_len)
 {
        C2F(lasterror)(fname,fname_len);
        return 0;
index d5edc4b..457ce32 100644 (file)
@@ -15,7 +15,7 @@
 #include "librarieslist.h"
 #include "MALLOC.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_librarieslist) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_librarieslist)(char *fname,unsigned long fname_len)
 {
        char **libraries = NULL;
        int sizelibraries = 0;
index a92c143..c704dbd 100644 (file)
@@ -17,7 +17,7 @@
 #include "Scierror.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_libraryinfo) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_libraryinfo)(char *fname,unsigned long fname_len)
 {
        int l1,n1,m1;
 
index fcdafa3..73a75e0 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intmacrovar)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_macr2lst) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_macr2lst)(char *fname,unsigned long fname_len)
 {
        C2F(intmacrovar)();
        return 0;
index 59e9426..b33d7a9 100644 (file)
@@ -13,9 +13,9 @@
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(macr2tree) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(macr2tree)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_macr2tree) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_macr2tree)(char *fname,unsigned long fname_len)
 {
        C2F(macr2tree)(fname,fname_len);
        return 0;
index bb86f47..00bfd5a 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intmode)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_mode) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_mode)(char *fname,unsigned long fname_len)
 {
        C2F(intmode)();
        return 0;
index 1e51d32..2cf0fd6 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intmtlbmode)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_mtlb_mode) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_mtlb_mode)(char *fname,unsigned long fname_len)
 {
        C2F(intmtlbmode)();
        return 0;
index 56c9fef..c328e54 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intpredef)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_predef) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_predef)(char *fname,unsigned long fname_len)
 {
        C2F(intpredef)();
        return 0;
index 7ee2b68..b5bea6a 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intresume)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_resume) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_resume)(char *fname,unsigned long fname_len)
 {
        C2F(intresume)();
        return 0;
index f16af7c..b00be15 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intresume)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_return) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_return)(char *fname,unsigned long fname_len)
 {
        C2F(intresume)();
        return 0;
index a955afe..37d07b2 100644 (file)
@@ -16,7 +16,7 @@
 #include "MALLOC.h"
 #include "freeArrayOfString.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_sciargs) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_sciargs)(char *fname,unsigned long fname_len)
 {
        char **arguments = NULL;
        int nb_arguments = 0;
index 5d4b27b..af9e456 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intsetbpt)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_setbpt) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_setbpt)(char *fname,unsigned long fname_len)
 {
        C2F(intsetbpt)();
        return 0;
index 28e7213..7d5bf37 100644 (file)
@@ -37,7 +37,7 @@ extern integer C2F(adjuststacksize)();
 * sz : 2-vector [total used]
 */
 /*--------------------------------------------------------------------------*/
-int C2F(sci_stacksize) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_stacksize)(char *fname,unsigned long fname_len)
 {
        static int l1,n1,m1;
 
index 37235b0..1c76079 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(inttype)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_type) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_type)(char *fname,unsigned long fname_len)
 {
        C2F(inttype)();
        return 0;
index 22c4e5c..8d2a44b 100644 (file)
@@ -13,9 +13,9 @@
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(inttypnam) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(inttypnam)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_typename) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_typename)(char *fname,unsigned long fname_len)
 {
        C2F(inttypnam)(fname,fname_len);
        return 0;
index 786ad7c..c5bb79d 100644 (file)
@@ -22,7 +22,7 @@
 #include "localization.h"
 #include "freeArrayOfString.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_warning) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_warning)(char *fname,unsigned long fname_len)
 {
        static int l1 = 0,n1 = 0,m1 = 0;
 
index e7129a7..5b40c7c 100644 (file)
@@ -30,7 +30,7 @@ static void SortStrings(char **Strs,int SizeOfStrs);
 /*--------------------------------------------------------------------------*/
 extern char **GetFunctionsList(int *sizeList);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_what) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_what)(char *fname,unsigned long fname_len)
 {
        int sizecommandwords = 0;
        char **commandwords = getcommandkeywords(&sizecommandwords);
index eb282c2..a2b22e7 100644 (file)
@@ -17,7 +17,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(where)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_where) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_where)(char *fname,unsigned long fname_len)
 {
        if (Rhs > 0)
        {
index 1d48328..a1c7ffb 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intwhereis)(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_whereis) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_whereis)(char *fname,unsigned long fname_len)
 {
        C2F(intwhereis)();
        return 0;
index 9ea5934..1255808 100644 (file)
@@ -33,7 +33,7 @@ static int NoRhs(struct VariableStruct* GVstruct,int GlenStructArray,struct Vari
 static int OneLhs(struct VariableStruct* Vstruct,int lenStructArray,BOOL Sorted);
 static int TwoLhs(struct VariableStruct* Vstruct,int lenStructArray,BOOL Sorted);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_who) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_who)(char *fname,unsigned long fname_len)
  {
         static int l1,n1,m1;
 
index 5f8507f..16caaf6 100644 (file)
@@ -16,7 +16,7 @@
 #include "Scierror.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_with_module) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_with_module)(char *fname,unsigned long fname_len)
 {
        static int l1,n1,m1;
        int *Status=NULL;
index 2d53a58..4bdab5b 100644 (file)
@@ -28,7 +28,7 @@
 /*--------------------------------------------------------------------------*/  
 static int firstentry = 0;
 /*--------------------------------------------------------------------------*/  
-extern int C2F(cvname) __PARAMS((integer *,char *,integer *, unsigned long int));
+extern int C2F(cvname)(integer *,char *,integer *, unsigned long int);
 /*--------------------------------------------------------------------------*/  
 static int Add_a_Scilab_primitive_in_hashtable(char *str, int *dataI, int *data);
 static BOOL Load_primitives_from_file(char *filename);
index 14ab512..7979100 100644 (file)
@@ -24,7 +24,7 @@ static char *SCI_a[]  = {  "SCI/"   , "sci/"   , "$SCI"   , "SCI\\"    , "sci\\"
 static char *HOME_a[] = {  "HOME/"  , "home/"  , "~/"     , "HOME\\"   , "home\\"  , "~\\" , "$HOME" , (char *) 0};
 static char *TMP_a[]  = {  "TMPDIR/", "tmpdir/","TMPDIR\\", "tmpdir\\" , "$TMPDIR" , (char *) 0};
 
-static int Cluni0 __PARAMS((char *env,char **alias,char* in_name,char *out_name, long int lin));
+static int Cluni0(char *env,char **alias,char* in_name,char *out_name, long int lin);
 
 static int n=0;
 
index 3780bc2..9e8cb41 100644 (file)
@@ -14,7 +14,7 @@
 #include "csignal.h"
 #include "sigbas.h"
 
-extern int C2F(sigbas)(); /*  __PARAMS((integer *));*/
+extern int C2F(sigbas)();
 
 void controlC_handler (int sig)
 {
index 2ec4cc7..c94f731 100644 (file)
@@ -27,15 +27,16 @@ IERODE_struct C2F(ierode);
 * Unused function just here to force linker to load some 
 * functions 
 ***********************************************************/
-extern int   Blas_contents __PARAMS((int));
-extern int   Lapack_contents __PARAMS((int));
-extern int   Calelm_contents __PARAMS((int));
-extern int   Sun_contents __PARAMS((int));
-extern int   System2_contents __PARAMS((int));
-extern int   System_contents __PARAMS((int));
-extern int   Intersci_contents __PARAMS((int));
-extern int   Sparse_contents __PARAMS((int));
-
+/*
+extern int   Blas_contents(int);
+extern int   Lapack_contents(int);
+extern int   Calelm_contents(int);
+extern int   Sun_contents(int);
+extern int   System2_contents(int);
+extern int   System_contents(int);
+extern int   Intersci_contents(int);
+extern int   Sparse_contents(int);
+*/
 int ForceLink(void);
 int ForceLink(void)
 {
@@ -48,7 +49,8 @@ int ForceLink(void)
        System2_contents(0);
        System_contents(0);
        Intersci_contents(0);
-       Sparse_contents(0);*/
+       Sparse_contents(0);
+       */
        return 0;
 }
 #endif
index 6264129..324e855 100644 (file)
 /**
  * @TODO add comment
  *
- * @param intfromc  
- * @return <ReturnValue>
- */
-int C2F(intfromc) _PARAMS((char *fname));
-
-/**
- * @TODO add comment
- *
  * @param void  
  */
 void SetFromCToON(void);
index 8c96796..c003ab6 100644 (file)
@@ -36,7 +36,7 @@ static int CreateRecursiveIndex2List(int *data,int *index2);
 /****************************************************************
  Function name: macr2tree
 ****************************************************************/
-int C2F(macr2tree) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(macr2tree) (char *fname,unsigned long fname_len)
 {
   /* Returned value parameters */
   int m_pgrm_tlist = 1,n_pgrm_tlist = 6;
index 53d5ba2..bea6f85 100644 (file)
@@ -31,12 +31,12 @@ static int c_true = TRUE;
 static int c_false = FALSE;
 
 /* Static function declarations ... Function only used here */
-static int C2F(getwsmati) __PARAMS((char * fname, integer *topk, integer * spos,integer * lw,integer * m, integer *n,integer * ilr,integer * ilrd ,int * inlistx,integer* nel,unsigned long fname_len));
+static int C2F(getwsmati)(char * fname, integer *topk, integer * spos,integer * lw,integer * m, integer *n,integer * ilr,integer * ilrd ,int * inlistx,integer* nel,unsigned long fname_len);
 static int C2F(gethmati)(char *fname,integer *topk,integer *spos,integer *lw,integer *m,integer *n,integer *lr,int *inlistx,integer *nel,unsigned long fname_len);
-static int C2F(getsmati)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, int *inlist__, integer *nel, unsigned long fname_len));
-static int C2F(getpointeri)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *lr, int *inlist__, integer *nel, unsigned long fname_len));
-static int C2F(getimati) __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *it, integer *m, integer *n, integer *lr, int *inlistx, integer *nel, long unsigned int fname_len));
-static int C2F(getbmati)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *lr, int *inlist__, integer *nel, unsigned long fname_len));
+static int C2F(getsmati) (char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *i__, integer *j, integer *lr, integer *nlr, int *inlist__, integer *nel, unsigned long fname_len);
+static int C2F(getpointeri) (char *fname, integer *topk, integer *spos, integer *lw, integer *lr, int *inlist__, integer *nel, unsigned long fname_len);
+static int C2F(getimati)(char *fname, integer *topk, integer *spos, integer *lw, integer *it, integer *m, integer *n, integer *lr, int *inlistx, integer *nel, long unsigned int fname_len);
+static int C2F(getbmati) (char *fname, integer *topk, integer *spos, integer *lw, integer *m, integer *n, integer *lr, int *inlist__, integer *nel, unsigned long fname_len);
 static int C2F(cremati)(char *fname,integer *stlw,integer *it,integer *m,integer *n,integer *lr,integer *lc,int *flagx,unsigned long fname_len);
 static int C2F(getmati)(char *fname,integer *topk,integer *spos,integer *lw,integer *it,integer *m,integer *n,integer *lr,integer *lc,int *inlistx,integer *nel,unsigned long fname_len);
 static int C2F(crebmati)(char *fname,integer *stlw,integer *m,integer *n,integer *lr,int *flagx,unsigned long fname_len);
@@ -75,7 +75,7 @@ int C2F(getlistmat)(char *fname,integer *topk,integer *spos,integer *lnum,intege
 {
   integer nv, ili;
 
-  if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+  if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE )
     return FALSE;
 
   if (*lnum > nv) {
@@ -2912,7 +2912,7 @@ int C2F(objvide)(char *fname,integer *lw,unsigned long fname_len)
  *       et type est mise a true 
  *------------------------------------------------ */
 
-int C2F(getexternal)(char *fname,integer *topk,integer *lw,char *namex,int *typex,void (*setfun) __PARAMS((char *,int *)),unsigned long fname_len,unsigned long name_len)
+int C2F(getexternal)(char *fname,integer *topk,integer *lw,char *namex,int *typex,void (*setfun)(char *,int *),unsigned long fname_len,unsigned long name_len)
 {
   int ret_value;
   integer irep;
index 6437c52..a315acf 100644 (file)
 static integer cx1 = 1;
 static integer cx0 = 0;
 
-static char *Get_Iname __PARAMS((void));
-static int C2F(mvfromto) __PARAMS((integer *itopl,integer *));
+static char *Get_Iname(void);
+static int C2F(mvfromto)(integer *itopl,integer *);
 
-static int rhs_opt_find __PARAMS((char *name,rhs_opts opts[]));
-static void rhs_opt_print_names __PARAMS((rhs_opts opts[]));
+static int rhs_opt_find(char *name,rhs_opts opts[]);
+static void rhs_opt_print_names(rhs_opts opts[]);
 
 /*------------------------------------------------*/
 void strcpy_tws(char *str1,char *str2, int len);
@@ -2988,7 +2988,7 @@ static int check_list_prop(char *mes, int lpos,int posi, int m)
   return TRUE;
 }
 
-int check_list_square __PARAMS((int lpos,int posi,int m,int n))
+int check_list_square(int lpos,int posi,int m,int n)
 {
   return check_list_prop(_("square"),lpos,posi, (m != n));
 }
index b65c15e..56853ca 100644 (file)
@@ -23,8 +23,8 @@
 #include "cvstr.h"
 #include "localization.h"
 #include "Scierror.h"
-extern int C2F(dmcopy)  __PARAMS((double *a, integer *na, double *b, integer *nb, integer *m, integer *n));
-extern int C2F(stackp)  __PARAMS((integer *id, integer *macmod));
+extern int C2F(dmcopy)(double *a, integer *na, double *b, integer *nb, integer *m, integer *n);
+extern int C2F(stackp)(integer *id, integer *macmod);
 
 /*------------------------------------------------------*/
 void *Name2ptr(char *namex);
index 40102d0..40a1501 100644 (file)
 int C2F(gwdatastructures1)(void); 
 int gw_data_structures1(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_glist) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_scilist) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_lsslist) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_rlist) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_scitlist) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_lstcat) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_scimlist) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_definedfields) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_lstsize) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_glist)(char *fname,unsigned long fname_len);
+int C2F(sci_scilist)(char *fname,unsigned long fname_len);
+int C2F(sci_lsslist)(char *fname,unsigned long fname_len);
+int C2F(sci_rlist)(char *fname,unsigned long fname_len);
+int C2F(sci_scitlist)(char *fname,unsigned long fname_len);
+int C2F(sci_lstcat)(char *fname,unsigned long fname_len);
+int C2F(sci_scimlist)(char *fname,unsigned long fname_len);
+int C2F(sci_definedfields)(char *fname,unsigned long fname_len);
+int C2F(sci_lstsize)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif /*  __GW_DATA_STRUCTURES1__ */
 /*--------------------------------------------------------------------------*/
index 4e158ac..5501efb 100644 (file)
@@ -23,8 +23,8 @@
 /*--------------------------------------------------------------------------*/
 int gw_data_structures2(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getfield) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_setfield) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_getfield)(char *fname,unsigned long fname_len);
+int C2F(sci_setfield)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif /*  __GW_DATA_STRUCTURES2__ */
 /*--------------------------------------------------------------------------*/
index c6b707f..0c01322 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(definedfields)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_definedfields) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_definedfields)(char *fname,unsigned long fname_len)
 {
        C2F(definedfields)();
        return 0;
index 2e43123..495d3f5 100644 (file)
@@ -15,9 +15,9 @@
 
 extern int C2F(intgetfield)();
 
-int C2F(sci_getfield) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_getfield)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getfield) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getfield)(char *fname,unsigned long fname_len)
 {
        C2F(intgetfield)();
        return 0;
index 8df892e..cf98ac0 100644 (file)
@@ -16,7 +16,7 @@
 extern int C2F(gratyp)();
 extern int C2F(mtlist)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_glist) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_glist)(char *fname,unsigned long fname_len)
 {
     C2F(mtlist)(C2F(gratyp));
        return 0;
index 55e9c8e..2d5eb61 100644 (file)
@@ -13,9 +13,9 @@
 /*--------------------------------------------------------------------------*/
 #include "gw_data_structures1.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scilist) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scilist)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_scilist) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_scilist)(char *fname,unsigned long fname_len)
 {
        C2F(scilist)(fname,fname_len);
        return 0;
index cf84cac..1bca12e 100644 (file)
@@ -16,7 +16,7 @@
 extern int C2F(mtlist)();
 extern int C2F(lsstyp)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_lsslist) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_lsslist)(char *fname,unsigned long fname_len)
 {
    C2F(mtlist)(C2F(lsstyp));
    return 0;
index 3a2292b..3ad6041 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intlstcat)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_lstcat) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_lstcat)(char *fname,unsigned long fname_len)
 {
     C2F(intlstcat)();
        return 0;
index b85f2e2..d26b535 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intlstsize)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_lstsize) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_lstsize)(char *fname,unsigned long fname_len)
 {
     C2F(intlstsize)();
        return 0;
index ef0f65b..b5f7e36 100644 (file)
@@ -13,9 +13,9 @@
 /*--------------------------------------------------------------------------*/
 #include "gw_data_structures1.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scilist) _PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scilist)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_scimlist) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_scimlist)(char *fname,unsigned long fname_len)
 {
        C2F(scilist)(fname,fname_len);
        return 0;
index 6ab4521..401daaf 100644 (file)
@@ -16,7 +16,7 @@
 extern int C2F(mtlist)();
 extern int C2F(rattyp)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_rlist) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_rlist)(char *fname,unsigned long fname_len)
 {
        C2F(mtlist)(C2F(rattyp));
        return 0;
index 6e514b4..b7ef414 100644 (file)
@@ -15,9 +15,9 @@
 
 extern int C2F(intsetfield)();
 
-int C2F(sci_setfield) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_setfield)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_setfield) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_setfield)(char *fname,unsigned long fname_len)
 {
        C2F(intsetfield)();
        return 0;
index b647cf0..de42139 100644 (file)
@@ -13,9 +13,9 @@
 /*--------------------------------------------------------------------------*/
 #include "gw_data_structures1.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(scilist)_PARAMS((char *fname,unsigned long fname_len));
+extern int C2F(scilist)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_scitlist) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_scitlist)(char *fname,unsigned long fname_len)
 {
        C2F(scilist)(fname,fname_len);
        return 0;
index ae3e7fc..d95bcb7 100644 (file)
@@ -18,7 +18,7 @@
 /*--------------------------------------------------------------------------*/
 int gw_differential_equations1(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_ode) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_ode)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif  /* __GW_DIFFERENTIAL_EQUATIONS1__ */
 /*--------------------------------------------------------------------------*/
index 2bf0be1..18b24cc 100644 (file)
@@ -18,9 +18,9 @@
 /*--------------------------------------------------------------------------*/ 
 int gw_differential_equations2(void);
 /*--------------------------------------------------------------------------*/ 
-int C2F(sciimpl) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(dassli) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(dasrti) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sciimpl)(char *fname,unsigned long fname_len);
+int C2F(dassli)(char *fname,unsigned long fname_len);
+int C2F(dasrti)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/ 
 #endif  /* __GW_DIFFERENTIAL_EQUATIONS2__ */
 /*--------------------------------------------------------------------------*/
index 57c272c..365f719 100644 (file)
@@ -18,7 +18,7 @@
 /*--------------------------------------------------------------------------*/
 int gw_differential_equations3(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_odc) _PARAMS((char *fname,unsigned long l));
+int C2F(sci_odc)(char *fname,unsigned long l);
 /*--------------------------------------------------------------------------*/
 #endif  /* __GW_DIFFERENTIAL_EQUATIONS3__ */
 /*--------------------------------------------------------------------------*/
index 37e0852..5446a27 100644 (file)
 /*--------------------------------------------------------------------------*/
 int gw_differential_equations4(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_intg) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_int2d) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_int3d) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_feval) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_intg)(char *fname,unsigned long fname_len);
+int C2F(sci_int2d)(char *fname,unsigned long fname_len);
+int C2F(sci_int3d)(char *fname,unsigned long fname_len);
+int C2F(sci_feval)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
 #endif  /* __GW_DIFFERENTIAL_EQUATIONS4__ */
 /*--------------------------------------------------------------------------*/
index 37a0b1e..9b36a5b 100644 (file)
@@ -18,7 +18,7 @@
 /*--------------------------------------------------------------------------*/ 
 int gw_differential_equations6(void);
 /*--------------------------------------------------------------------------*/ 
-int C2F(scibvode) __PARAMS((char *fname,unsigned long fname_len));
+int C2F(scibvode)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/ 
 #endif  /* __GW_DIFFERENTIAL_EQUATIONS6__ */
 /*--------------------------------------------------------------------------*/
index 65cf53b..4d04c49 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(scibvode)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_bvode) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_bvode)(char *fname,unsigned long fname_len)
 {
        C2F(scibvode)(fname, fname_len);
        return 0;
index d932bab..a6ef611 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(feval)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_feval) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_feval)(char *fname,unsigned long fname_len)
 {
        C2F(feval)(fname,fname_len);
        return 0;
index 8e585d5..9b4c65f 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(int2d)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_int2d) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_int2d)(char *fname,unsigned long fname_len)
 {
        C2F(int2d)(fname, fname_len);
        return 0;
index 297015f..61ea759 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(int3d)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_int3d) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_int3d)(char *fname,unsigned long fname_len)
 {
        C2F(int3d)(fname,fname_len);
        return 0;
index 15d32f0..5594c17 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(intg)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_intg) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_intg)(char *fname,unsigned long fname_len)
 {
        C2F(intg)(fname,fname_len);
        return 0;
index 09d8eb4..3ef49ba 100644 (file)
@@ -14,7 +14,7 @@
 #include "machine.h"
 #include "gw_differential_equations3.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_odc) _PARAMS((char *fname,unsigned long l))
+int C2F(sci_odc)(char *fname,unsigned long l)
 {
        extern int C2F(sciodc)();
        C2F(sciodc)();
index 6e2d1b1..eb1f709 100644 (file)
@@ -15,7 +15,7 @@
 /*--------------------------------------------------------------------------*/
 extern int C2F(sciode)();
 /*--------------------------------------------------------------------------*/
-int C2F(sci_ode) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_ode)(char *fname,unsigned long fname_len)
 {
        C2F(sciode)();
        return 0;
index 8d91c85..4c13b2c 100644 (file)
@@ -12,7 +12,7 @@
  */
 #include "AddFunctionInTable.h"
 
-extern int C2F(getcodc) __PARAMS((integer *nd1, integer *iflag1));
+extern int C2F(getcodc)(integer *nd1, integer *iflag1);
 
 /***********************************
 * Search Table for odedc
index 3fe689b..944f3ac 100644 (file)
@@ -27,10 +27,10 @@ typedef struct {
 
 #define ARGS_ex17c double,double, double *
 
-typedef int (*funcex) __PARAMS((ARGS_ex17c));
-extern int f1c __PARAMS((ARGS_ex17c));
-extern int f2c __PARAMS((ARGS_ex17c));
-extern int ex17c __PARAMS((double *,integer ,double *,integer,double *, funcex));
+typedef int (*funcex)(ARGS_ex17c);
+extern int f1c(ARGS_ex17c);
+extern int f2c(ARGS_ex17c);
+extern int ex17c(double *,integer ,double *,integer,double *, funcex);
  
 FTAB FTab_ex17c[] ={
   {"f1c", (voidf) f1c},
@@ -54,7 +54,7 @@ static int sci_f, lhs_f, rhs_f;
  * Functions 
  ***************************************************/
 
-static int sciex17c __PARAMS((ARGS_ex17c));
+static int sciex17c (ARGS_ex17c);
 static funcex Argex17c;
 
 /***************************************************
index 5e57896..fd16ca7 100644 (file)
@@ -93,7 +93,7 @@ mputl(f2,'fun2.c');
 //creating the interface file
 i=['#include ""stack-c.h""'
        '#include ""stackTypeVariable.h""'
-   'extern int fun1 _PARAMS(( double *x, double *y));'
+   'extern int fun1 ( double *x, double *y);'
    'int intfun1(char *fname)' 
    '{'
    '  int m1,n1,l1;'
index a542132..a295b84 100644 (file)
@@ -22,13 +22,13 @@ int gw_dynamic_link(void);
 /* Declaration of all the profile function declared and */
 /* used in sci_gateway */
 /*--------------------------------------------------------------------------*/ 
-int C2F(sci_getdynlibext) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_addinter) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_fort) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_call) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_link) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_ulink) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_c_link) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(sci_getdynlibext)(char *fname,unsigned long fname_len);
+int C2F(sci_addinter)(char *fname,unsigned long fname_len);
+int C2F(sci_fort)(char *fname,unsigned long fname_len);
+int C2F(sci_call)(char *fname,unsigned long fname_len);
+int C2F(sci_link)(char *fname,unsigned long fname_len);
+int C2F(sci_ulink)(char *fname,unsigned long fname_len);
+int C2F(sci_c_link)(char *fname,unsigned long fname_len);
 /*--------------------------------------------------------------------------*/ 
 #endif /* __GW_DYNAMIC_LINK__ */
 /*--------------------------------------------------------------------------*/ 
index fdc520f..7b209f7 100644 (file)
@@ -20,7 +20,7 @@
 #include "dl_genErrorMessage.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
-int C2F(sci_addinter) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_addinter)(char *fname,unsigned long fname_len)
 {
        CheckRhs(3,3);
        CheckLhs(1,1);
index 4223462..aab4425 100644 (file)
@@ -20,7 +20,7 @@
 #include "localization.h"
 #include "Scierror.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_c_link) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_c_link)(char *fname,unsigned long fname_len)
 {
        int ilib = 0;
 
index 4553581..35d3b10 100644 (file)
 #include "machine.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intfort) _PARAMS((char *fname,unsigned long fname_len)); /* fortran */
+extern int C2F(intfort)(char *fname,unsigned long fname_len); /* fortran */
 /*--------------------------------------------------------------------------*/
-int C2F(sci_fort) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_fort)(char *fname,unsigned long fname_len)
 {
        return C2F(sci_call)(fname,fname_len);
 }
 /*--------------------------------------------------------------------------*/
-int C2F(sci_call) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_call)(char *fname,unsigned long fname_len)
 {
        if (Rhs == 0)
        {
index 2eeab27..5be1684 100644 (file)
@@ -17,7 +17,7 @@
 #include "stack-c.h"
 #include "gw_dynamic_link.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_getdynlibext) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_getdynlibext)(char *fname,unsigned long fname_len)
 {
        static int n1 = 0, m1 = 0;
        int outIndex = 0 ;
index 8ba91dd..4b50d36 100644 (file)
@@ -25,7 +25,7 @@
 static int linkNoRhs(void);
 static int linkOneRhsShow(void);
 /*-----------------------------------------------------------------------------------*/
-int C2F(sci_link) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_link)(char *fname,unsigned long fname_len)
 {
        BOOL fflag = FALSE;
        int idsharedlibrary = -1;
index df93551..f44a8ff 100644 (file)
@@ -20,7 +20,7 @@
 #include "Scierror.h"
 #include "dynamic_link.h"
 /*--------------------------------------------------------------------------*/
-int C2F(sci_ulink) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_ulink)(char *fname,unsigned long fname_len)
 {
        static int l1,n1,m1;
 
index 90b4fe1..66f8113 100644 (file)
@@ -38,7 +38,7 @@ mputl(f2,TMP_DIR+filesep()+'fun2.c');
 //creating the interface file
 i=['#include ""stack-c.h""'
        '#include ""stackTypeVariable.h""'
-   'extern int fun1 _PARAMS(( double *x, double *y));'
+   'extern int fun1 ( double *x, double *y);'
    'int intfun1(fname)' 
    'char * fname;'
    '{'
index 7126553..35ea2aa 100644 (file)
@@ -28,7 +28,7 @@ mputl(f2,TMP_DIR+filesep()+'fun2.c');
 //creating the interface file
 i=['#include ""stack-c.h""'
        '#include ""stackTypeVariable.h""'
-   'extern int fun1 _PARAMS(( double *x, double *y));'
+   'extern int fun1 ( double *x, double *y);'
    'int intfun1(fname)'
    'char * fname;'
    '{'
index c216c51..93243ca 100644 (file)
@@ -28,7 +28,7 @@ mputl(f2,TMP_DIR+filesep()+'fun2.c');
 //creating the interface file
 i=['#include ""stack-c.h""'
        '#include ""stackTypeVariable.h""'
-   'extern int fun1 _PARAMS(( double *x, double *y));'
+   'extern int fun1 ( double *x, double *y);'
    'int intfun1(fname)'
    'char * fname;'
    '{'
index ce78645..33cf2e7 100644 (file)
@@ -1,6 +1,6 @@
 /*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
+ * Scilab( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright(C) INRIA
  * 
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
 #ifndef __CALELM_H 
 #define  __CALELM_H 
 
-typedef integer (*I_fp)();
+typedef integer(*I_fp)();
 
-int C2F(vfinite)  _PARAMS((int *n, double *v));
+int C2F(vfinite)(int *n, double *v);
 
-extern int C2F(wsort) _PARAMS((double *countr, double *counti, int *n, int *index, I_fp test));
+extern int C2F(wsort)(double *countr, double *counti, int *n, int *index, I_fp test);
 
-extern int C2F(rcsort) _PARAMS((I_fp test, int *isz, int *iptr, int *iv, int *n, int *index));
+extern int C2F(rcsort)(I_fp test, int *isz, int *iptr, int *iv, int *n, int *index);
 
-extern double C2F(arcosh) _PARAMS((double *x));
-extern double C2F(arsinh) _PARAMS((double *x));
-extern int C2F(calerf) _PARAMS((double *arg, double *result, int *jint));
-extern double C2F(derf) _PARAMS((double *x));
-extern double C2F(derfc) _PARAMS((double *x));
-extern double C2F(derfcx) _PARAMS((double *x));
-extern int C2F(dgefa) _PARAMS((double *a, int *lda, int *n, int *ipvt, int *info));
-extern int C2F(ccopy) _PARAMS((int *n, char *dx, int *incx, char *dy, int *incy, int dx_len, int dy_len));
-extern double C2F(coshin) _PARAMS((double *x));
-extern int C2F(cupro) _PARAMS((int *n, double *w));
-extern int C2F(cuproi) _PARAMS((int *n, double *wr, double *wi));
-extern int C2F(cusum) _PARAMS((int *n, double *w));
-extern int C2F(dadd) _PARAMS((int *n, double *dx, int *incx, double *dy, int *incy));
-extern int C2F(dad) _PARAMS((double *a, int *na, int *i1, int *i2, int *j1, int *j2, double *r__, int *isw));
-/* extern double C2F(dcabs1) _PARAMS((doublecomplex *z__));*/
-extern int C2F(ddif) _PARAMS((int *n, double *a, int *na, double *b, int *nb));
-extern int C2F(ddpow1) _PARAMS((int *n, double *v, int *iv, double *p, int *ip, double *rr, double *ri, int *ir, int *ierr, int *iscmpl));
-extern int C2F(ddpowe) _PARAMS((double *v, double *p, double *rr, double *ri, int *ierr, int *iscmpl));
-extern int C2F(ddpow) _PARAMS((int *n, double *vr, double *vi, int *iv, double *dpow, int *ierr, int *iscmpl));
-extern int C2F(ddrdiv) _PARAMS((double *a, int *ia, double *b, int *ib, double *r__, int *ir, int *n, int *ierr));
-extern int C2F(dipowe) _PARAMS((double *v, int *p, double *r__, int *ierr));
-extern int C2F(dipow) _PARAMS((int *n, double *v, int *iv, int *ipow, int *ierr));
-extern int C2F(dlblks) _PARAMS((char *name__, int *nbc, int name_len));
-extern double C2F(dlgama) _PARAMS((double *x));
-extern int C2F(dmcopy) _PARAMS((double *a, int *na, double *b, int *nb, int *m, int *n));
-extern int C2F(dmmul1) _PARAMS((double *a, int *na, double *b, int *nb, double *c__, int *nc, int *l, int *m, int *n));
-extern int C2F(dmmul) _PARAMS((double *a, int *na, double *b, int *nb, double *c__, int *nc, int *l, int *m, int *n));
-extern int C2F(dmprod) _PARAMS((int *flag__, double *a, int *na, int *m, int *n, double *v, int *nv));
-extern int C2F(dmsum) _PARAMS((int *flag__, double *a, int *na, int *m, int *n, double *v, int *nv));
-extern int C2F(drdiv) _PARAMS((double *a, int *ia, double *b, int *ib, double *r__, int *ir, int *n, int *ierr));
-extern int C2F(dset) _PARAMS((int *n, double *dx, double *dy, int *incy));
-extern int C2F(dsort) _PARAMS((double *count, int *n, int *index));
-extern double C2F(dsum) _PARAMS((int *n, double *dx, int *incx));
-extern int C2F(dtild) _PARAMS((int *n, double *x, int *incx));
-extern int C2F(dvmul) _PARAMS((int *n, double *dx, int *incx, double *dy, int *incy));
-extern int C2F(dwdiv) _PARAMS((double *ar, double *br, double *bi, double *cr, double *ci, int *ierr));
-extern int C2F(dwpow1) _PARAMS((int *n, double *v, int *iv, double *pr, double *pi, int *ip, double *rr, double *ri, int *ir, int *ierr));
-extern int C2F(dwpowe) _PARAMS((double *v, double *pr, double *pi, double *rr, double *ri, int *ierr));
-extern int C2F(dwpow) _PARAMS((int *n, double *vr, double *vi, int *iv, double *powr, double *powi, int *ierr));
-extern int C2F(dwrdiv) _PARAMS((double *ar, int *ia, double *br, double *bi, int *ib, double *rr, double *ri, int *ir, int *n, int *ierr));
-extern int C2F(franck) _PARAMS((double *a, int *na, int *n, int *job));
-extern double C2F(dgamma) _PARAMS((double *x));
-extern int C2F(gdcp2i) _PARAMS((int *n, int *itab, int *m));
-extern int C2F(hilber) _PARAMS((double *a, int *lda, int *n));
+extern double C2F(arcosh)(double *x);
+extern double C2F(arsinh)(double *x);
+extern int C2F(calerf)(double *arg, double *result, int *jint);
+extern double C2F(derf)(double *x);
+extern double C2F(derfc)(double *x);
+extern double C2F(derfcx)(double *x);
+extern int C2F(dgefa)(double *a, int *lda, int *n, int *ipvt, int *info);
+extern int C2F(ccopy)(int *n, char *dx, int *incx, char *dy, int *incy, int dx_len, int dy_len);
+extern double C2F(coshin)(double *x);
+extern int C2F(cupro)(int *n, double *w);
+extern int C2F(cuproi)(int *n, double *wr, double *wi);
+extern int C2F(cusum)(int *n, double *w);
+extern int C2F(dadd)(int *n, double *dx, int *incx, double *dy, int *incy);
+extern int C2F(dad)(double *a, int *na, int *i1, int *i2, int *j1, int *j2, double *r__, int *isw);
+extern int C2F(ddif)(int *n, double *a, int *na, double *b, int *nb);
+extern int C2F(ddpow1)(int *n, double *v, int *iv, double *p, int *ip, double *rr, double *ri, int *ir, int *ierr, int *iscmpl);
+extern int C2F(ddpowe)(double *v, double *p, double *rr, double *ri, int *ierr, int *iscmpl);
+extern int C2F(ddpow)(int *n, double *vr, double *vi, int *iv, double *dpow, int *ierr, int *iscmpl);
+extern int C2F(ddrdiv)(double *a, int *ia, double *b, int *ib, double *r__, int *ir, int *n, int *ierr);
+extern int C2F(dipowe)(double *v, int *p, double *r__, int *ierr);
+extern int C2F(dipow)(int *n, double *v, int *iv, int *ipow, int *ierr);
+extern int C2F(dlblks)(char *name__, int *nbc, int name_len);
+extern double C2F(dlgama)(double *x);
+extern int C2F(dmcopy)(double *a, int *na, double *b, int *nb, int *m, int *n);
+extern int C2F(dmmul1)(double *a, int *na, double *b, int *nb, double *c__, int *nc, int *l, int *m, int *n);
+extern int C2F(dmmul)(double *a, int *na, double *b, int *nb, double *c__, int *nc, int *l, int *m, int *n);
+extern int C2F(dmprod)(int *flag__, double *a, int *na, int *m, int *n, double *v, int *nv);
+extern int C2F(dmsum)(int *flag__, double *a, int *na, int *m, int *n, double *v, int *nv);
+extern int C2F(drdiv)(double *a, int *ia, double *b, int *ib, double *r__, int *ir, int *n, int *ierr);
+extern int C2F(dset)(int *n, double *dx, double *dy, int *incy);
+extern int C2F(dsort)(double *count, int *n, int *index);
+extern double C2F(dsum)(int *n, double *dx, int *incx);
+extern int C2F(dtild)(int *n, double *x, int *incx);
+extern int C2F(dvmul)(int *n, double *dx, int *incx, double *dy, int *incy);
+extern int C2F(dwdiv)(double *ar, double *br, double *bi, double *cr, double *ci, int *ierr);
+extern int C2F(dwpow1)(int *n, double *v, int *iv, double *pr, double *pi, int *ip, double *rr, double *ri, int *ir, int *ierr);
+extern int C2F(dwpowe)(double *v, double *pr, double *pi, double *rr, double *ri, int *ierr);
+extern int C2F(dwpow)(int *n, double *vr, double *vi, int *iv, double *powr, double *powi, int *ierr);
+extern int C2F(dwrdiv)(double *ar, int *ia, double *br, double *bi, int *ib, double *rr, double *ri, int *ir, int *n, int *ierr);
+extern int C2F(franck)(double *a, int *na, int *n, int *job);
+extern double C2F(dgamma)(double *x);
+extern int C2F(gdcp2i)(int *n, int *itab, int *m);
+extern int C2F(hilber)(double *a, int *lda, int *n);
 
-extern int C2F(idmax) _PARAMS((int *n, double *dx, int *incx));
-extern int C2F(idmin) _PARAMS((int *n, double *dx, int *incx));
-extern int C2F(imcopy) _PARAMS((int *a, int *na, int *b, int *nb, int *m, int *n));
-extern double C2F(infinity) _PARAMS((double *x));
-extern int C2F(intp) _PARAMS((double *x, double *xd, double *yd, int *n, int *nc, double *y));
-extern int C2F(isort) _PARAMS((int *count, int *n, int *index));
-extern int C2F(isova0) _PARAMS((double *a, int *lda, int *m, int *n, double *path, int *kpath, int *ir, int *ic, int *dir, int *pend, int *h__, int *v, double *c__));
-extern int C2F(isoval) _PARAMS((double *a, int *lda, int *m, int *n, double *c__, double *path, int *npath, int *maxp, int *ierr, int *iw, int *job));
-extern int C2F(ivimp) _PARAMS((int *i1, int *i2, int *pas, int *iv));
-extern int C2F(iwamax) _PARAMS((int *n, double *xr, double *xi, int *incx));
-extern int C2F(kronc) _PARAMS((double *ar, double *ai, int *ia, int *ma, int *na, double *br, double *bi, int *ib, int *mb, int *nb, double *pkr, double *pki, int *ik));
-extern int C2F(kronr) _PARAMS((double *a, int *ia, int *ma, int *na, double *b, int *ib, int *mb, int *nb, double *pk, int *ik));
-extern int C2F(lnblnk) _PARAMS((char *str, int str_len));
-extern int C2F(magic) _PARAMS((double *a, int *lda, int *n));
-extern int C2F(mtran) _PARAMS((double *a, int *na, double *b, int *nb, int *m, int *n));
-extern double C2F(nearfloat) _PARAMS((double *x, double *dir));
-extern double C2F(psi) _PARAMS((double *xx));
-extern double C2F(pythag) _PARAMS((double *a, double *b));
-extern int C2F(rat) _PARAMS((double *x, double *eps, int *n, int *d__, int *fail));
-extern int C2F(ribesl) _PARAMS((double *x, double *alpha, int *nb, int *ize, double *b, int *ncalc));
-extern int C2F(rjbesl) _PARAMS((double *x, double *alpha, int *nb, double *b, int *ncalc));
-extern int C2F(rkbesl) _PARAMS((double *x, double *alpha, int *nb, int *ize, double *bk, int *ncalc));
-/*extern double C2F(round) _PARAMS((double *x1));*/
-extern int C2F(rybesl) _PARAMS((double *x, double *alpha, int *nb, double *by, int *ncalc));
-extern double C2F(urand) _PARAMS((int *iy));
-extern int C2F(vpythag) _PARAMS((int *n, double *xr, double *xi));
-extern int C2F(wacos) _PARAMS((double *zr, double *zi, double *ar, double *ai));
-extern int C2F(wasin) _PARAMS((double *zr, double *zi, double *ar, double *ai));
-extern double C2F(wasum) _PARAMS((int *n, double *xr, double *xi, int *incx));
-extern int C2F(watan) _PARAMS((double *xr, double *xi, double *yr, double *yi));
-extern double C2F(lnp1m1) _PARAMS((double *s));
-extern double C2F(logp1) _PARAMS((double *x));
+extern int C2F(idmax)(int *n, double *dx, int *incx);
+extern int C2F(idmin)(int *n, double *dx, int *incx);
+extern int C2F(imcopy)(int *a, int *na, int *b, int *nb, int *m, int *n);
+extern double C2F(infinity)(double *x);
+extern int C2F(intp)(double *x, double *xd, double *yd, int *n, int *nc, double *y);
+extern int C2F(isort)(int *count, int *n, int *index);
+extern int C2F(isova0)(double *a, int *lda, int *m, int *n, double *path, int *kpath, int *ir, int *ic, int *dir, int *pend, int *h__, int *v, double *c__);
+extern int C2F(isoval)(double *a, int *lda, int *m, int *n, double *c__, double *path, int *npath, int *maxp, int *ierr, int *iw, int *job);
+extern int C2F(ivimp)(int *i1, int *i2, int *pas, int *iv);
+extern int C2F(iwamax)(int *n, double *xr, double *xi, int *incx);
+extern int C2F(kronc)(double *ar, double *ai, int *ia, int *ma, int *na, double *br, double *bi, int *ib, int *mb, int *nb, double *pkr, double *pki, int *ik);
+extern int C2F(kronr)(double *a, int *ia, int *ma, int *na, double *b, int *ib, int *mb, int *nb, double *pk, int *ik);
+extern int C2F(lnblnk)(char *str, int str_len);
+extern int C2F(magic)(double *a, int *lda, int *n);
+extern int C2F(mtran)(double *a, int *na, double *b, int *nb, int *m, int *n);
+extern double C2F(nearfloat)(double *x, double *dir);
+extern double C2F(psi)(double *xx);
+extern double C2F(pythag)(double *a, double *b);
+extern int C2F(rat)(double *x, double *eps, int *n, int *d__, int *fail);
+extern int C2F(ribesl)(double *x, double *alpha, int *nb, int *ize, double *b, int *ncalc);
+extern int C2F(rjbesl)(double *x, double *alpha, int *nb, double *b, int *ncalc);
+extern int C2F(rkbesl)(double *x, double *alpha, int *nb, int *ize, double *bk, int *ncalc);
+/*extern double C2F(round)(double *x1);*/
+extern int C2F(rybesl)(double *x, double *alpha, int *nb, double *by, int *ncalc);
+extern double C2F(urand)(int *iy);
+extern int C2F(vpythag)(int *n, double *xr, double *xi);
+extern int C2F(wacos)(double *zr, double *zi, double *ar, double *ai);
+extern int C2F(wasin)(double *zr, double *zi, double *ar, double *ai);
+extern double C2F(wasum)(int *n, double *xr, double *xi, int *incx);
+extern int C2F(watan)(double *xr, double *xi, double *yr, double *yi);
+extern double C2F(lnp1m1)(double *s);
+extern double C2F(logp1)(double *x);
 /* comlen stack_ 16 */
 /* comlen vstk_ 65568 */
 /* comlen recu_ 8212 */
@@ -108,36 +107,36 @@ extern double C2F(logp1) _PARAMS((double *x));
 /* comlen dbg_ 976 */
 /* comlen adre_ 260 */
 /* comlen intersci_ 1924 */
-extern int C2F(waxpy) _PARAMS((int *n, double *sr, double *si, double *xr, double *xi, int *incx, double *yr, double *yi, int *incy));
-extern int C2F(wcopy) _PARAMS((int *n, double *dxr, double *dxi, int *incx, double *dyr, double *dyi, int *incy));
-extern int C2F(wddiv) _PARAMS((double *ar, double *ai, double *br, double *cr, double *ci, int *ierr));
-extern int C2F(wdiv) _PARAMS((double *ar, double *ai, double *br, double *bi, double *cr, double *ci));
-extern double C2F(wdotci) _PARAMS((int *n, double *xr, double *xi, int *incx, double *yr, double *yi, int *incy));
-extern double C2F(wdotcr) _PARAMS((int *n, double *xr, double *xi, int *incx, double *yr, double *yi, int *incy));
-extern int C2F(wdpow1) _PARAMS((int *n, double *vr, double *vi, int *iv, double *p, int *ip, double *rr, double *ri, int *ir, int *ierr));
-extern int C2F(wdpowe) _PARAMS((double *vr, double *vi, double *p, double *rr, double *ri, int *ierr));
-extern int C2F(wdpow) _PARAMS((int *n, double *vr, double *vi, int *iv, double *dpow, int *ierr));
-extern int C2F(wdrdiv) _PARAMS((double *ar, double *ai, int *ia, double *br, int *ib, double *rr, double *ri, int *ir, int *n, int *ierr));
-extern int C2F(wipowe) _PARAMS((double *vr, double *vi, int *p, double *rr, double *ri, int *ierr));
-extern int C2F(wipow) _PARAMS((int *n, double *vr, double *vi, int *iv, int *ipow, int *ierr));
-extern int C2F(wlog) _PARAMS((double *xr, double *xi, double *yr, double *yi));
-extern int C2F(wmmul) _PARAMS((double *ar, double *ai, int *na, double *br, double *bi, int *nb, double *cr, double *ci, int *nc, int *l, int *m, int *n));
-extern int C2F(wmprod) _PARAMS((int *flag__, double *ar, double *ai, int *na, int *m, int *n, double *vr, double *vi, int *nv));
-extern int C2F(wmsum) _PARAMS((int *flag__, double *ar, double *ai, int *na, int *m, int *n, double *vr, double *vi, int *nv));
-extern int C2F(wmul) _PARAMS((double *ar, double *ai, double *br, double *bi, double *cr, double *ci));
-extern double C2F(wnrm2) _PARAMS((int *n, double *xr, double *xi, int *incx));
-extern int C2F(wrscal) _PARAMS((int *n, double *s, double *xr, double *xi, int *incx));
-extern int C2F(wscal) _PARAMS((int *n, double *sr, double *si, double *xr, double *xi, int *incx));
-extern int C2F(wsign) _PARAMS((double *xr, double *xi, double *yr, double *yi, double *zr, double *zi));
-extern int C2F(rptest) _PARAMS((double *r1, double *i1, double *r2, double *i2));
-extern int C2F(modtest) _PARAMS((double *r1, double *i1, double *r2, double *i2));
-extern int C2F(wsqrt) _PARAMS((double *xr, double *xi, double *yr, double *yi));
-extern int C2F(wswap) _PARAMS((int *n, double *xr, double *xi, int *incx, double *yr, double *yi, int *incy));
-extern int C2F(wtan) _PARAMS((double *xr, double *xi, double *yr, double *yi));
-extern int C2F(wvmul) _PARAMS((int *n, double *dxr, double *dxi, int *incx, double *dyr, double *dyi, int *incy));
-extern int C2F(wwdiv) _PARAMS((double *ar, double *ai, double *br, double *bi, double *cr, double *ci, int *ierr));
-extern int C2F(wwpow1) _PARAMS((int *n, double *vr, double *vi, int *iv, double *pr, double *pi, int *ip, double *rr, double *ri, int *ir, int *ierr));
-extern int C2F(wwpowe) _PARAMS((double *vr, double *vi, double *pr, double *pi, double *rr, double *ri, int *ierr));
-extern int C2F(wwpow) _PARAMS((int *n, double *vr, double *vi, int *iv, double *powr, double *powi, int *ierr));
-extern int C2F(wwrdiv) _PARAMS((double *ar, double *ai, int *ia, double *br, double *bi, int *ib, double *rr, double *ri, int *ir, int *n, int *ierr));
+extern int C2F(waxpy)(int *n, double *sr, double *si, double *xr, double *xi, int *incx, double *yr, double *yi, int *incy);
+extern int C2F(wcopy)(int *n, double *dxr, double *dxi, int *incx, double *dyr, double *dyi, int *incy);
+extern int C2F(wddiv)(double *ar, double *ai, double *br, double *cr, double *ci, int *ierr);
+extern int C2F(wdiv)(double *ar, double *ai, double *br, double *bi, double *cr, double *ci);
+extern double C2F(wdotci)(int *n, double *xr, double *xi, int *incx, double *yr, double *yi, int *incy);
+extern double C2F(wdotcr)(int *n, double *xr, double *xi, int *incx, double *yr, double *yi, int *incy);
+extern int C2F(wdpow1)(int *n, double *vr, double *vi, int *iv, double *p, int *ip, double *rr, double *ri, int *ir, int *ierr);
+extern int C2F(wdpowe)(double *vr, double *vi, double *p, double *rr, double *ri, int *ierr);
+extern int C2F(wdpow)(int *n, double *vr, double *vi, int *iv, double *dpow, int *ierr);
+extern int C2F(wdrdiv)(double *ar, double *ai, int *ia, double *br, int *ib, double *rr, double *ri, int *ir, int *n, int *ierr);
+extern int C2F(wipowe)(double *vr, double *vi, int *p, double *rr, double *ri, int *ierr);
+extern int C2F(wipow)(int *n, double *vr, double *vi, int *iv, int *ipow, int *ierr);
+extern int C2F(wlog)(double *xr, double *xi, double *yr, double *yi);
+extern int C2F(wmmul)(double *ar, double *ai, int *na, double *br, double *bi, int *nb, double *cr, double *ci, int *nc, int *l, int *m, int *n);
+extern int C2F(wmprod)(int *flag__, double *ar, double *ai, int *na, int *m, int *n, double *vr, double *vi, int *nv);
+extern int C2F(wmsum)(int *flag__, double *ar, double *ai, int *na, int *m, int *n, double *vr, double *vi, int *nv);
+extern int C2F(wmul)(double *ar, double *ai, double *br, double *bi, double *cr, double *ci);
+extern double C2F(wnrm2)(int *n, double *xr, double *xi, int *incx);
+extern int C2F(wrscal)(int *n, double *s, double *xr, double *xi, int *incx);
+extern int C2F(wscal)(int *n, double *sr, double *si, double *xr, double *xi, int *incx);
+extern int C2F(wsign)(double *xr, double *xi, double *yr, double *yi, double *zr, double *zi);
+extern int C2F(rptest)(double *r1, double *i1, double *r2, double *i2);
+extern int C2F(modtest)(double *r1, double *i1, double *r2, double *i2);
+extern int C2F(wsqrt)(double *xr, double *xi, double *yr, double *yi);
+extern int C2F(wswap)(int *n, double *xr, double *xi, int *incx, double *yr, double *yi, int *incy);
+extern int C2F(wtan)(double *xr, double *xi, double *yr, double *yi);
+extern int C2F(wvmul)(int *n, double *dxr, double *dxi, int *incx, double *dyr, double *dyi, int *incy);
+extern int C2F(wwdiv)(double *ar, double *ai, double *br, double *bi, double *cr, double *ci, int *ierr);
+extern int C2F(wwpow1)(int *n, double *vr, double *vi, int *iv, double *pr, double *pi, int *ip, double *rr, double *ri, int *ir, int *ierr);
+extern int C2F(wwpowe)(double *vr, double *vi, double *pr, double *pi, double *rr, double *ri, int *ierr);
+extern int C2F(wwpow)(int *n, double *vr, double *vi, int *iv, double *powr, double *powi, int *ierr);
+extern int C2F(wwrdiv)(double *ar, double *ai, int *ia, double *br, double *bi, int *ib, double *rr, double *ri, int *ir, int *n, int *ierr);
 #endif /** SCI_   **/
index 4a62abb..f41be12 100644 (file)
 /*--------------------------------------------------------------------------*/
 int gw_elementary_functions(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_abs) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_real) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_imag) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_conj) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_round) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_int) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_size) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_sum) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_prod) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_diag) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_triu) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_tril) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_eye) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_rand) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_ones) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_maxi) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_kron) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_scimatrix) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_sin) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_cos) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_atan) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_exp) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_sqrt) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_log) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_chinesehat) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_sign) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_clean) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_floor) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_ceil) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_expm) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_cumsum) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_cumprod) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_testmatrix) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_isreal) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_frexp) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_zeros) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_tan) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_log1p) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_imult) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_asin) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_acos) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_number_properties) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_nearfloat) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_dsearch) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_isequal) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_spones) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_gsort) _PARAMS((char *fname, unsigned long fname_len));
-int C2F(sci_isequalbitwise) _PARAMS((char *fname, unsigned long fname_len));
+int C2F(sci_abs)(char *fname,unsigned long fname_len);
+int C2F(sci_real)(char *fname,unsigned long fname_len);
+int C2F(sci_imag)(char *fname,unsigned long fname_len);
+int C2F(sci_conj)(char *fname,unsigned long fname_len);
+int C2F(sci_round)(char *fname,unsigned long fname_len);
+int C2F(sci_int)(char *fname,unsigned long fname_len);
+int C2F(sci_size)(char *fname,unsigned long fname_len);
+int C2F(sci_sum)(char *fname,unsigned long fname_len);
+int C2F(sci_prod)(char *fname,unsigned long fname_len);
+int C2F(sci_diag)(char *fname,unsigned long fname_len);
+int C2F(sci_triu)(char *fname,unsigned long fname_len);
+int C2F(sci_tril)(char *fname,unsigned long fname_len);
+int C2F(sci_eye)(char *fname,unsigned long fname_len);
+int C2F(sci_rand)(char *fname,unsigned long fname_len);
+int C2F(sci_ones)(char *fname,unsigned long fname_len);
+int C2F(sci_maxi)(char *fname,unsigned long fname_len);
+int C2F(sci_kron)(char *fname,unsigned long fname_len);
+int C2F(sci_scimatrix)(char *fname,unsigned long fname_len);
+int C2F(sci_sin)(char *fname,unsigned long fname_len);
+int C2F(sci_cos)(char *fname,unsigned long fname_len);
+int C2F(sci_atan)(char *fname,unsigned long fname_len);
+int C2F(sci_exp)(char *fname,unsigned long fname_len);
+int C2F(sci_sqrt)(char *fname,unsigned long fname_len);
+int C2F(sci_log)(char *fname,unsigned long fname_len);
+int C2F(sci_chinesehat)(char *fname,unsigned long fname_len);
+int C2F(sci_sign)(char *fname,unsigned long fname_len);
+int C2F(sci_clean)(char *fname,unsigned long fname_len);
+int C2F(sci_floor)(char *fname,unsigned long fname_len);
+int C2F(sci_ceil)(char *fname,unsigned long fname_len);
+int C2F(sci_expm)(char *fname,unsigned long fname_len);
+int C2F(sci_cumsum)(char *fname,unsigned long fname_len);
+int C2F(sci_cumprod)(char *fname,unsigned long fname_len);
+int C2F(sci_testmatrix)(char *fname,unsigned long fname_len);
+int C2F(sci_isreal)(char *fname,unsigned long fname_len);
+int C2F(sci_frexp)(char *fname,unsigned long fname_len);
+int C2F(sci_zeros)(char *fname,unsigned long fname_len);
+int C2F(sci_tan)(char *fname,unsigned long fname_len);
+int C2F(sci_log1p)(char *fname,unsigned long fname_len);
+int C2F(sci_imult)(char *fname,unsigned long fname_len);
+int C2F(sci_asin)(char *fname,unsigned long fname_len);
+int C2F(sci_acos)(char *fname,unsigned long fname_len);
+int C2F(sci_number_properties)(char *fname,unsigned long fname_len);
+int C2F(sci_nearfloat)(char *fname,unsigned long fname_len);
+int C2F(sci_dsearch)(char *fname,unsigned long fname_len);
+int C2F(sci_isequal)(char *fname,unsigned long fname_len);
+int C2F(sci_spones)(char *fname,unsigned long fname_len);
+int C2F(sci_gsort)(char *fname, unsigned long fname_len);
+int C2F(sci_isequalbitwise)(char *fname, unsigned long fname_len);
 #endif /*  __GW_ELEMENTARIES_FUNCTIONS__ */
 /*--------------------------------------------------------------------------*/
 
index d2dbb9c..0832da9 100644 (file)
 
 typedef struct {double re, im;} complex16;
 
-extern int  F2C(mycmatptr) __PARAMS((char *name,int *m, int *n, int *type, int *lp));
-extern void C2F(ccomplexf) __PARAMS((int *n, double **ip, double *op));
-extern void (SciToF77)  __PARAMS((double *ptr, int size, int lda));
-extern void (F77ToSci)  __PARAMS((double *ptr, int size, int lda));
+extern int  F2C(mycmatptr)(char *name,int *m, int *n, int *type, int *lp);
+extern void C2F(ccomplexf)(int *n, double **ip, double *op);
+extern void (SciToF77)(double *ptr, int size, int lda);
+extern void (F77ToSci)(double *ptr, int size, int lda);
 
 void double2z(double *ptr, double *ptr77z, int size, int lda);
 void z2double(double *ptrz, double *ptrsci, int size, int lda);
index 63bdaa3..81f7359 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intabs) _PARAMS((int *id));
+extern int C2F(intabs)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_abs) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_abs)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intabs)(id);
index 579ca6e..0c4c86e 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intacos) _PARAMS((int *id));
+extern int C2F(intacos)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_acos) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_acos)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intacos)(id);
index 0ec8853..9903c19 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intasin) _PARAMS((int *id));
+extern int C2F(intasin)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_asin) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_asin)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intasin)(id);
index d941b0c..64cd3e2 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intatan) _PARAMS((int *id));
+extern int C2F(intatan)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_atan) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_atan)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intatan)(id);
index 2542086..c308572 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intceil) _PARAMS((int *id));
+extern int C2F(intceil)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_ceil) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_ceil)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intceil)(id);
index 555115e..375ff64 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intchinesehat) _PARAMS((int *id));
+extern int C2F(intchinesehat)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_chinesehat) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_chinesehat)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intchinesehat)(id);
index 9675e7c..fa3aeb9 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intclean) _PARAMS((int *id));
+extern int C2F(intclean)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_clean) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_clean)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intclean)(id);
index ac046c2..c431403 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intconj) _PARAMS((int *id));
+extern int C2F(intconj)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_conj) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_conj)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intconj)(id);
index 219614a..53dd1de 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intcos) _PARAMS((int *id));
+extern int C2F(intcos)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_cos) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_cos)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intcos)(id);
index 13d4242..b534a0e 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intcumprod) _PARAMS((int *id));
+extern int C2F(intcumprod)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_cumprod) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_cumprod)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intcumprod)(id);
index 0373939..bc1899e 100644 (file)
@@ -12,9 +12,9 @@
 /*--------------------------------------------------------------------------*/ 
 #include "gw_elementary_functions.h"
 /*--------------------------------------------------------------------------*/
-extern int C2F(intcumsum) _PARAMS((int *id));
+extern int C2F(intcumsum)(int *id);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_cumsum) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_cumsum)(char *fname,unsigned long fname_len)
 {
        static int id[6];
        C2F(intcumsum)(id);