get rid of integer type (=> int) ... really useles except for Fortran fan (but just...
Sylvestre Ledru [Tue, 23 Sep 2008 21:46:48 +0000 (21:46 +0000)]
430 files changed:
scilab/configure.ac
scilab/modules/action_binding/includes/dynamic_menus.h
scilab/modules/action_binding/src/c/dynamic_menus.c
scilab/modules/arnoldi/src/arpack/debug.h
scilab/modules/arnoldi/src/arpack/stat.h
scilab/modules/boolean/src/c/matboolean.c
scilab/modules/core/includes/Os_specific.h
scilab/modules/core/includes/core_math.h
scilab/modules/core/includes/inffic.h
scilab/modules/core/includes/intmacr2tree.h
scilab/modules/core/includes/isanan.h
scilab/modules/core/includes/machine.h.in
scilab/modules/core/includes/machine.h.vc
scilab/modules/core/includes/returnProperty.h
scilab/modules/core/includes/scimem.h
scilab/modules/core/includes/sigbas.h
scilab/modules/core/includes/stack-c.h
scilab/modules/core/includes/stack-def.h
scilab/modules/core/includes/stack1.h
scilab/modules/core/includes/stack2.h
scilab/modules/core/includes/stack3.h
scilab/modules/core/includes/stackTypeVariable.h
scilab/modules/core/includes/stackinfo.h
scilab/modules/core/sci_gateway/c/sci_gstacksize.c
scilab/modules/core/sci_gateway/c/sci_stacksize.c
scilab/modules/core/sci_gateway/c/sci_who.c
scilab/modules/core/src/c/LoadFunctionsTab.c
scilab/modules/core/src/c/banier.c
scilab/modules/core/src/c/banier.h
scilab/modules/core/src/c/coretable.c
scilab/modules/core/src/c/cs2st.c
scilab/modules/core/src/c/cs2st.h
scilab/modules/core/src/c/getval.c
scilab/modules/core/src/c/inffic.c
scilab/modules/core/src/c/intmacr2tree.c
scilab/modules/core/src/c/isanan.c
scilab/modules/core/src/c/parse.c
scilab/modules/core/src/c/scimem.c
scilab/modules/core/src/c/scimem64.c
scilab/modules/core/src/c/stack1.c
scilab/modules/core/src/c/stack2.c
scilab/modules/core/src/c/stack3.c
scilab/modules/core/src/c/stackinfo.c
scilab/modules/core/src/c/terme.c
scilab/modules/data_structures/sci_gateway/c/gw_data_structures1.c
scilab/modules/data_structures/sci_gateway/c/gw_data_structures2.c
scilab/modules/data_structures/src/c/stcreate.c
scilab/modules/data_structures/src/c/stcreate.h
scilab/modules/differential_equations/src/c/colnewtable.c
scilab/modules/differential_equations/src/c/dassltable.c
scilab/modules/differential_equations/src/c/fevaltable.c
scilab/modules/differential_equations/src/c/fydot2table.c
scilab/modules/differential_equations/src/c/fydottable.c
scilab/modules/differential_equations/src/c/impltable.c
scilab/modules/differential_equations/src/c/int3dtable.c
scilab/modules/double/sci_gateway/c/gw_double.c
scilab/modules/dynamic_link/examples/interfaces/c/crestrc.c
scilab/modules/dynamic_link/examples/interfaces/c/intex12c.c
scilab/modules/dynamic_link/examples/interfaces/c/intex17c.c
scilab/modules/dynamic_link/examples/interfaces/c/intex1c.c
scilab/modules/dynamic_link/examples/interfaces/c/intex4c.c
scilab/modules/dynamic_link/includes/dynamic_link.h
scilab/modules/dynamic_link/sci_gateway/c/sci_ulink.c
scilab/modules/dynamic_link/src/c/addinter.c
scilab/modules/dynamic_link/src/c/dynamic_link.c
scilab/modules/elementary_functions/Makefile.in
scilab/modules/elementary_functions/includes/elementary_functions.h
scilab/modules/elementary_functions/sci_gateway/c/sci_gsort.c
scilab/modules/elementary_functions/src/c/IsEqualVar.c
scilab/modules/elementary_functions/src/c/scidcopy.c
scilab/modules/fftw/sci_gateway/c/sci_fftw.c
scilab/modules/fileio/includes/addfile.h
scilab/modules/fileio/includes/delfile.h
scilab/modules/fileio/includes/filesmanagement.h
scilab/modules/fileio/includes/getfiledesc.h
scilab/modules/fileio/includes/getfileinfo.h
scilab/modules/fileio/includes/getfiletype.h
scilab/modules/fileio/includes/mclose.h
scilab/modules/fileio/includes/mget.h
scilab/modules/fileio/includes/mput.h
scilab/modules/fileio/includes/mseek.h
scilab/modules/fileio/includes/mtell.h
scilab/modules/fileio/includes/readline.h
scilab/modules/fileio/src/c/Status2Mode.h
scilab/modules/fileio/src/c/addfile.c
scilab/modules/fileio/src/c/delfile.c
scilab/modules/fileio/src/c/fileio.c
scilab/modules/fileio/src/c/filesmanagement.c
scilab/modules/fileio/src/c/getfiledesc.c
scilab/modules/fileio/src/c/getfileinfo.c
scilab/modules/fileio/src/c/getfiletype.c
scilab/modules/fileio/src/c/mclearerr.c
scilab/modules/fileio/src/c/mclearerr.h
scilab/modules/fileio/src/c/mclose.c
scilab/modules/fileio/src/c/meof.c
scilab/modules/fileio/src/c/meof.h
scilab/modules/fileio/src/c/merror.c
scilab/modules/fileio/src/c/merror.h
scilab/modules/fileio/src/c/mget.c
scilab/modules/fileio/src/c/mgeti.c
scilab/modules/fileio/src/c/mgeti.h
scilab/modules/fileio/src/c/mgetstr.c
scilab/modules/fileio/src/c/mgetstr.h
scilab/modules/fileio/src/c/mput.c
scilab/modules/fileio/src/c/mputi.c
scilab/modules/fileio/src/c/mputi.h
scilab/modules/fileio/src/c/mseek.c
scilab/modules/fileio/src/c/mtell.c
scilab/modules/fileio/src/c/readline.c
scilab/modules/graphic_export/src/c/xs2file.c
scilab/modules/graphics/includes/BasicAlgos.h
scilab/modules/graphics/includes/BuildObjects.h
scilab/modules/graphics/includes/Champ.h
scilab/modules/graphics/includes/Contour.h
scilab/modules/graphics/includes/DestroyObjects.h
scilab/modules/graphics/includes/DrawObjects.h
scilab/modules/graphics/includes/Format.h
scilab/modules/graphics/includes/GetProperty.h
scilab/modules/graphics/includes/GrayPlot.h
scilab/modules/graphics/includes/Interaction.h
scilab/modules/graphics/includes/ObjectStructure.h
scilab/modules/graphics/includes/Plo3d.h
scilab/modules/graphics/includes/PloEch.h
scilab/modules/graphics/includes/SetProperty.h
scilab/modules/graphics/includes/axesScale.h
scilab/modules/graphics/includes/math_graphics.h
scilab/modules/graphics/includes/sciCall.h
scilab/modules/graphics/includes/sci_champ.h
scilab/modules/graphics/sci_gateway/c/sci_Legend.c
scilab/modules/graphics/sci_gateway/c/sci_addcb.c
scilab/modules/graphics/sci_gateway/c/sci_champ.c
scilab/modules/graphics/sci_gateway/c/sci_contour2di.c
scilab/modules/graphics/sci_gateway/c/sci_copy.c
scilab/modules/graphics/sci_gateway/c/sci_delete.c
scilab/modules/graphics/sci_gateway/c/sci_fec.c
scilab/modules/graphics/sci_gateway/c/sci_get.c
scilab/modules/graphics/sci_gateway/c/sci_glue.c
scilab/modules/graphics/sci_gateway/c/sci_grayplot.c
scilab/modules/graphics/sci_gateway/c/sci_matplot.c
scilab/modules/graphics/sci_gateway/c/sci_matplot1.c
scilab/modules/graphics/sci_gateway/c/sci_move.c
scilab/modules/graphics/sci_gateway/c/sci_param3d.c
scilab/modules/graphics/sci_gateway/c/sci_param3d1.c
scilab/modules/graphics/sci_gateway/c/sci_plot2d1.c
scilab/modules/graphics/sci_gateway/c/sci_plot3d.c
scilab/modules/graphics/sci_gateway/c/sci_set.c
scilab/modules/graphics/sci_gateway/c/sci_unglue.c
scilab/modules/graphics/sci_gateway/c/sci_xarc.c
scilab/modules/graphics/sci_gateway/c/sci_xarcs.c
scilab/modules/graphics/sci_gateway/c/sci_xarrows.c
scilab/modules/graphics/sci_gateway/c/sci_xchange.c
scilab/modules/graphics/sci_gateway/c/sci_xclear.c
scilab/modules/graphics/sci_gateway/c/sci_xdel.c
scilab/modules/graphics/sci_gateway/c/sci_xfpoly.c
scilab/modules/graphics/sci_gateway/c/sci_xfpolys.c
scilab/modules/graphics/sci_gateway/c/sci_xget.c
scilab/modules/graphics/sci_gateway/c/sci_xgetmouse.c
scilab/modules/graphics/sci_gateway/c/sci_xgraduate.c
scilab/modules/graphics/sci_gateway/c/sci_xgrid.c
scilab/modules/graphics/sci_gateway/c/sci_xlfont.c
scilab/modules/graphics/sci_gateway/c/sci_xname.c
scilab/modules/graphics/sci_gateway/c/sci_xpoly.c
scilab/modules/graphics/sci_gateway/c/sci_xpolys.c
scilab/modules/graphics/sci_gateway/c/sci_xrect.c
scilab/modules/graphics/sci_gateway/c/sci_xrects.c
scilab/modules/graphics/sci_gateway/c/sci_xsegs.c
scilab/modules/graphics/sci_gateway/c/sci_xset.c
scilab/modules/graphics/sci_gateway/c/sci_xstring.c
scilab/modules/graphics/sci_gateway/c/sci_xstringb.c
scilab/modules/graphics/sci_gateway/c/sci_xtitle.c
scilab/modules/graphics/src/c/BasicAlgos.c
scilab/modules/graphics/src/c/BuildObjects.c
scilab/modules/graphics/src/c/Champ.c
scilab/modules/graphics/src/c/Contour.c
scilab/modules/graphics/src/c/DestroyObjects.c
scilab/modules/graphics/src/c/DrawObjects.c
scilab/modules/graphics/src/c/FeC.c
scilab/modules/graphics/src/c/Fec.h
scilab/modules/graphics/src/c/Format.c
scilab/modules/graphics/src/c/GetCommandArg.c
scilab/modules/graphics/src/c/GetProperty.c
scilab/modules/graphics/src/c/Gray.c
scilab/modules/graphics/src/c/InitObjects.c
scilab/modules/graphics/src/c/Interaction.c
scilab/modules/graphics/src/c/Plo2dEch.c
scilab/modules/graphics/src/c/Plo2dEch.h
scilab/modules/graphics/src/c/Plo2dn.c
scilab/modules/graphics/src/c/Plo3d.c
scilab/modules/graphics/src/c/SetProperty.c
scilab/modules/graphics/src/c/axesScale.c
scilab/modules/graphics/src/c/fill_grid_rectangles.c
scilab/modules/graphics/src/c/fill_grid_rectangles.h
scilab/modules/graphics/src/c/getHandleProperty/set_color_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_data_property.c
scilab/modules/graphics/src/c/math_graphics.c
scilab/modules/graphics/src/c/nues1.c
scilab/modules/graphics/src/c/periEmpty.c
scilab/modules/graphics/src/c/sciCall.c
scilab/modules/graphics/src/nographics/nographics.c
scilab/modules/graphics/src/nographics/nographics.h
scilab/modules/gui/sci_gateway/c/sci_exportUI.c
scilab/modules/gui/sci_gateway/cpp/sci_getlookandfeel.cpp
scilab/modules/gui/src/c/UicontrolStyleToString.c
scilab/modules/gui/src/c/UicontrolStyleToString.h
scilab/modules/gui/src/c/addmenu.c
scilab/modules/gui/src/c/guitable.c
scilab/modules/gui/src/cpp/UnitsConversion.hxx
scilab/modules/integer/src/c/db2int.c
scilab/modules/integer/src/c/db2int.h
scilab/modules/integer/src/c/genabs.c
scilab/modules/integer/src/c/genabs.h
scilab/modules/integer/src/c/genadd.c
scilab/modules/integer/src/c/genadd.h
scilab/modules/integer/src/c/genbitops.c
scilab/modules/integer/src/c/genbitops.h
scilab/modules/integer/src/c/gencheck.c
scilab/modules/integer/src/c/gencheck.h
scilab/modules/integer/src/c/genconcatcol.c
scilab/modules/integer/src/c/genconcatcol.h
scilab/modules/integer/src/c/genconcatrow.c
scilab/modules/integer/src/c/genconcatrow.h
scilab/modules/integer/src/c/gencopy.c
scilab/modules/integer/src/c/gencopy.h
scilab/modules/integer/src/c/gencuprod.c
scilab/modules/integer/src/c/gencuprod.h
scilab/modules/integer/src/c/gencusum.c
scilab/modules/integer/src/c/gencusum.h
scilab/modules/integer/src/c/gendiag.c
scilab/modules/integer/src/c/gendiag.h
scilab/modules/integer/src/c/gendot.c
scilab/modules/integer/src/c/gendot.h
scilab/modules/integer/src/c/genextrac1.c
scilab/modules/integer/src/c/genextrac1.h
scilab/modules/integer/src/c/genextrac2.c
scilab/modules/integer/src/c/genextrac2.h
scilab/modules/integer/src/c/genimpl.c
scilab/modules/integer/src/c/genimpl.h
scilab/modules/integer/src/c/geninsert1.c
scilab/modules/integer/src/c/geninsert1.h
scilab/modules/integer/src/c/geninsert2.c
scilab/modules/integer/src/c/geninsert2.h
scilab/modules/integer/src/c/genisany.c
scilab/modules/integer/src/c/genisany.h
scilab/modules/integer/src/c/genkron.c
scilab/modules/integer/src/c/genkron.h
scilab/modules/integer/src/c/genmax2.c
scilab/modules/integer/src/c/genmax2.h
scilab/modules/integer/src/c/genmcopy.c
scilab/modules/integer/src/c/genmcopy.h
scilab/modules/integer/src/c/genmcuprod.c
scilab/modules/integer/src/c/genmcuprod.h
scilab/modules/integer/src/c/genmcusum.c
scilab/modules/integer/src/c/genmcusum.h
scilab/modules/integer/src/c/genmdiag.c
scilab/modules/integer/src/c/genmdiag.h
scilab/modules/integer/src/c/genmdsp.c
scilab/modules/integer/src/c/genmdsp.h
scilab/modules/integer/src/c/genmin2.c
scilab/modules/integer/src/c/genmin2.h
scilab/modules/integer/src/c/genmmax.c
scilab/modules/integer/src/c/genmmax.h
scilab/modules/integer/src/c/genmmin.c
scilab/modules/integer/src/c/genmmin.h
scilab/modules/integer/src/c/genmmul.c
scilab/modules/integer/src/c/genmmul.h
scilab/modules/integer/src/c/genmprod.c
scilab/modules/integer/src/c/genmprod.h
scilab/modules/integer/src/c/genmsum.c
scilab/modules/integer/src/c/genmsum.h
scilab/modules/integer/src/c/genmtran.c
scilab/modules/integer/src/c/genmtran.h
scilab/modules/integer/src/c/genprod.c
scilab/modules/integer/src/c/genprod.h
scilab/modules/integer/src/c/genrdiv.c
scilab/modules/integer/src/c/genrdiv.h
scilab/modules/integer/src/c/genscal.c
scilab/modules/integer/src/c/genscal.h
scilab/modules/integer/src/c/genset.c
scilab/modules/integer/src/c/genset.h
scilab/modules/integer/src/c/gensubst.c
scilab/modules/integer/src/c/gensubst.h
scilab/modules/integer/src/c/gensum.c
scilab/modules/integer/src/c/gensum.h
scilab/modules/integer/src/c/gentril.c
scilab/modules/integer/src/c/gentril.h
scilab/modules/integer/src/c/gentriu.c
scilab/modules/integer/src/c/gentriu.h
scilab/modules/integer/src/c/genvmul.c
scilab/modules/integer/src/c/genvmul.h
scilab/modules/integer/src/c/i_nextj.c
scilab/modules/integer/src/c/i_nextj.h
scilab/modules/integer/src/c/tpconv.c
scilab/modules/integer/src/c/tpconv.h
scilab/modules/interpolation/sci_gateway/c/sci_interp.c
scilab/modules/interpolation/sci_gateway/c/sci_interp2d.c
scilab/modules/interpolation/src/fortran/constinterp.h
scilab/modules/intersci/examples/ex8c.c
scilab/modules/intersci/examples/ex9c.c
scilab/modules/intersci/src/exe/check.c
scilab/modules/intersci/src/exe/getrhs.c
scilab/modules/intersci/src/exe/intersci.c
scilab/modules/intersci/src/lib/libinter.c
scilab/modules/intersci/src/lib/libinter.h
scilab/modules/intersci/src/lib/out.c
scilab/modules/io/includes/gw_io.h
scilab/modules/io/sci_gateway/c/sci_get_absolute_file_path.c
scilab/modules/io/sci_gateway/c/sci_mgetl.c
scilab/modules/io/src/c/systemc.c
scilab/modules/io/src/c/systemc.h
scilab/modules/linear_algebra/examples/intcdgemm.c
scilab/modules/linear_algebra/examples/intdgemm.c
scilab/modules/linear_algebra/sci_gateway/c/sci_bdiag.c
scilab/modules/linear_algebra/src/c/gschur.h
scilab/modules/linear_algebra/src/c/schur.h
scilab/modules/linear_algebra/src/c/schurtable.c
scilab/modules/matio/src/c/CreateMatlabVariable.h
scilab/modules/mexlib/includes/mex.h
scilab/modules/mexlib/src/c/mexlib.c
scilab/modules/mexlib/src/c/mexlib.h
scilab/modules/optimization/sci_gateway/c/sci_fsolv.c
scilab/modules/optimization/sci_gateway/c/sci_optim.c
scilab/modules/optimization/src/c/fsolvetable.c
scilab/modules/optimization/src/c/lsqrsolvtable.c
scilab/modules/optimization/src/c/optimtable.c
scilab/modules/optimization/src/c/sp.c
scilab/modules/output_stream/includes/basout.h
scilab/modules/output_stream/includes/errmds.h
scilab/modules/output_stream/includes/error.h
scilab/modules/output_stream/includes/msgs.h
scilab/modules/output_stream/src/c/Scierror.c
scilab/modules/output_stream/src/c/basout.c
scilab/modules/output_stream/src/c/errmds.c
scilab/modules/output_stream/src/c/errmsg.c
scilab/modules/output_stream/src/c/errmsg.h
scilab/modules/output_stream/src/c/error.c
scilab/modules/output_stream/src/c/error_internal.c
scilab/modules/output_stream/src/c/error_internal.h
scilab/modules/output_stream/src/c/msgout.c
scilab/modules/output_stream/src/c/msgout.h
scilab/modules/output_stream/src/c/msgs.c
scilab/modules/output_stream/src/c/sciprint.c
scilab/modules/output_stream/src/c/sciprint_full.c
scilab/modules/pvm/src/c/varpack.c
scilab/modules/randlib/sci_gateway/c/sci_grand.c
scilab/modules/randlib/src/c/fsultra.c
scilab/modules/randlib/src/c/igngeom.c
scilab/modules/randlib/src/c/mt.c
scilab/modules/randlib/src/c/urand.c
scilab/modules/scicos/demos/CodeGen/Fibo_standalone.c
scilab/modules/scicos/demos/CodeGen/Therm_standalone.c
scilab/modules/scicos/includes/intcscicos.h
scilab/modules/scicos/includes/scicos-def.h
scilab/modules/scicos/includes/scicos.h
scilab/modules/scicos/sci_gateway/c/intcscicos.c
scilab/modules/scicos/sci_gateway/c/sci_haltscicos.c
scilab/modules/scicos/src/c/import.c
scilab/modules/scicos/src/c/import.h
scilab/modules/scicos/src/c/noscicos/noscicos.c
scilab/modules/scicos/src/c/noscicos/noscicos.h
scilab/modules/scicos/src/c/sciblk2.c
scilab/modules/scicos/src/c/sciblk2i.c
scilab/modules/scicos/src/c/sciblk4.c
scilab/modules/scicos/src/c/scicos.c
scilab/modules/scicos/src/c/slider.c
scilab/modules/scicos/src/scicos_sundials/cvode.c
scilab/modules/scicos/src/scicos_sundials/cvode.h
scilab/modules/scicos/src/scicos_sundials/cvode_dense.h
scilab/modules/scicos/src/scicos_sundials/cvode_impl.h
scilab/modules/scicos/src/scicos_sundials/ida.c
scilab/modules/scicos/src/scicos_sundials/ida.h
scilab/modules/scicos/src/scicos_sundials/ida_dense.h
scilab/modules/scicos/src/scicos_sundials/ida_impl.h
scilab/modules/scicos_blocks/includes/scicos_block4.h
scilab/modules/scicos_blocks/src/c/absblk.c
scilab/modules/scicos_blocks/src/c/andlog.c
scilab/modules/scicos_blocks/src/c/bouncexy.c
scilab/modules/scicos_blocks/src/c/canimxy.c
scilab/modules/scicos_blocks/src/c/canimxy3d.c
scilab/modules/scicos_blocks/src/c/cevscpe.c
scilab/modules/scicos_blocks/src/c/cfscope.c
scilab/modules/scicos_blocks/src/c/cmat3d.c
scilab/modules/scicos_blocks/src/c/cmatview.c
scilab/modules/scicos_blocks/src/c/cmscope.c
scilab/modules/scicos_blocks/src/c/cosblk.c
scilab/modules/scicos_blocks/src/c/cscope.c
scilab/modules/scicos_blocks/src/c/cscopxy.c
scilab/modules/scicos_blocks/src/c/cscopxy3d.c
scilab/modules/scicos_blocks/src/c/dband.c
scilab/modules/scicos_blocks/src/c/dmmul1.c
scilab/modules/scicos_blocks/src/c/fromws_c.c
scilab/modules/scicos_blocks/src/c/gain.c
scilab/modules/scicos_blocks/src/c/plusblk.c
scilab/modules/scicos_blocks/src/c/prod.c
scilab/modules/scicos_blocks/src/c/readau.c
scilab/modules/scicos_blocks/src/c/readc.c
scilab/modules/scicos_blocks/src/c/relay.c
scilab/modules/scicos_blocks/src/c/selector.c
scilab/modules/scicos_blocks/src/c/sum.c
scilab/modules/scicos_blocks/src/c/switchn.c
scilab/modules/scicos_blocks/src/c/tows_c.c
scilab/modules/scicos_blocks/src/c/writeau.c
scilab/modules/scicos_blocks/src/c/writec.c
scilab/modules/shell/src/c/others/GetCharWithEventsLoop.c
scilab/modules/shell/src/c/others/zzledt.c
scilab/modules/signal_processing/src/c/corrtable.c
scilab/modules/sound/src/c/sox.c
scilab/modules/sound/src/c/sox.h
scilab/modules/sparse/src/c/lu.c
scilab/modules/sparse/src/c/mspelm.c
scilab/modules/sparse/src/c/spBuild.c
scilab/modules/sparse/src/c/spFortran.c
scilab/modules/sparse/src/c/spUtils.c
scilab/modules/special_functions/sci_gateway/c/sci_legendre.c
scilab/modules/spreadsheet/src/c/logger.c
scilab/modules/string/includes/code2str.h
scilab/modules/string/includes/cvstr.h
scilab/modules/string/includes/getfastcode.h
scilab/modules/string/includes/men_Sutils.h
scilab/modules/string/sci_gateway/c/sci_code2str.c
scilab/modules/string/sci_gateway/c/sci_emptystr.c
scilab/modules/string/sci_gateway/c/sci_length.c
scilab/modules/string/sci_gateway/c/sci_str2code.c
scilab/modules/string/src/c/code2str.c
scilab/modules/string/src/c/cvstr.c
scilab/modules/string/src/c/getfastcode.c
scilab/modules/string/src/c/stringsCompare.h
scilab/modules/time/sci_gateway/c/sci_sleep.c
scilab/modules/time/sci_gateway/c/sci_xpause.c
scilab/modules/umfpack/src/c/common_umfpack.c
scilab/modules/windows_tools/src/c/createGUID.h

index f601da6..d70f749 100644 (file)
@@ -1119,10 +1119,6 @@ AH_BOTTOM([
 #endif
 #define DIR_SEPARATOR "/"
 
-#ifndef integer
-typedef int integer;
-#endif
-
 /* Force usage of dynamically located stack on 64 bits */
 #ifdef IS_64_BITS_CPU
 #define USE_DYNAMIC_STACK
index 3172a09..96adc93 100644 (file)
@@ -21,7 +21,7 @@
  * commandQueue
  * @return
  */
-integer ismenu(void);
+int ismenu(void);
 
 /**
  * try to execute a command or add it to the end of command queue
index c2395f6..a465617 100644 (file)
@@ -27,8 +27,8 @@
  *  This function is used to store Scilab command in a queue
  *
  *  PUBLIC : int StoreCommand( char *command)
- *           integer C2F(ismenu)()
- *           int C2F(getmen)(char * btn_cmd,integer * lb, integer * entry)
+ *           int C2F(ismenu)()
+ *           int C2F(getmen)(char * btn_cmd,int * lb, int * entry)
  */
 /*--------------------------------------------------------------------------*/
 
@@ -135,7 +135,7 @@ int GetCommand ( char *str)
  return flag;
 }
 
-integer ismenu(void)
+int ismenu(void)
 {
   /* Do not manage commands while compiling scilab function */
   if ( (commandQueue == NULL) || (C2F(com).comp[0] != 0))
@@ -149,13 +149,13 @@ integer ismenu(void)
  * menu/button info for Scilab
  */
 /*--------------------------------------------------------------------------*/
-int C2F(getmen)(char * btn_cmd,integer * lb, integer * entry)
+int C2F(getmen)(char * btn_cmd,int * lb, int * entry)
 {
   int flag;
   if (ismenu()==1)
     {
       flag=GetCommand(btn_cmd);
-      *lb=(integer)strlen(btn_cmd);
+      *lb=(int) strlen(btn_cmd);
       *entry=0;  /* This parameter entry seems to be unused. Probably a very old thing... */
     }
   else
index da37b82..1c94a99 100644 (file)
@@ -5,7 +5,7 @@ c
 c     %---------------------------------%
 c     | See debug.doc for documentation |
 c     %---------------------------------%
-      integer  logfil, ndigit, mgetv0,
+      int  logfil, ndigit, mgetv0,
      &         msapd, msaup2, msaitr, mseigt, msapps, msgets, mseupd,
      &         mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd,
      &         mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd
index 66a8e9f..d751a11 100644 (file)
@@ -8,7 +8,7 @@ c
       real       t0, t1, t2, t3, t4, t5
       save       t0, t1, t2, t3, t4, t5
 c
-      integer    nopx, nbx, nrorth, nitref, nrstrt
+      int    nopx, nbx, nrorth, nitref, nrstrt
       real       tsaupd, tsaup2, tsaitr, tseigt, tsgets, tsapps, tsconv,
      &           tnaupd, tnaup2, tnaitr, tneigh, tngets, tnapps, tnconv,
      &           tcaupd, tcaup2, tcaitr, tceigh, tcgets, tcapps, tcconv,
index c54d6f0..ebee554 100644 (file)
 /*--------------------------------------------------------------------------*/
 int C2F(matlog)(void)
 {
-    static integer ou = 57;
-    static integer non = 61;
+    static int ou = 57;
+    static int non = 61;
 
-    static integer j=0;
+    static int j=0;
     static double e1, e2;
 
-    static integer i1, i2, l1, l2, m2, n2, m1, n1, op, lw, il1, il2, mn2, it1, it2, mn1, top0;
+    static int i1, i2, l1, l2, m2, n2, m1, n1, op, lw, il1, il2, mn2, it1, it2, mn1, top0;
 
     top0 = Top;
     op = Fin;
@@ -120,7 +120,7 @@ int C2F(matlog)(void)
                }
                if (mn1 != mn2) 
                {
-                       static integer code_error = 60;
+                       static int code_error = 60;
                        Error(code_error);
                        return 0;
                }
index 8848a1d..3d3f7b5 100644 (file)
@@ -24,42 +24,42 @@ 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)(integer *k);
+extern void C2F(userlk)(int *k);
 
 /*  "basin-n.c.X1" */
 
-extern int C2F(basin)(integer *ierr, integer *lunit, char *string, char *fmt, ftnlen string_len, ftnlen fmt_len);
+extern int C2F(basin)(int *ierr, int *lunit, char *string, char *fmt, ftnlen string_len, ftnlen fmt_len);
 
 /*  "basout-n.c.X1" */
-extern int C2F(basou1)(integer *lunit, char *string, ftnlen string_len);
+extern int C2F(basou1)(int *lunit, char *string, ftnlen string_len);
 /*  "cgpath-n.c.X1" */
-extern void C2F(cgpath)(char *nomfic, integer *ln);
+extern void C2F(cgpath)(char *nomfic, int *ln);
 /*  "clunit-n.c.X1" */
-extern int C2F(clunit)(integer *lunit, char *name, integer *mode, ftnlen name_len);
+extern int C2F(clunit)(int *lunit, char *name, int *mode, ftnlen name_len);
 /*  "dbasin-n.c.X1" */
-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);
+extern int C2F(dbasin)(int *ierr, int *lunit, char *fmt, double *v, int *iv, int *n, ftnlen fmt_len);
+extern int C2F(s2val)(char *str, double *v, int *iv, int *n, int *maxv, int *ierr, ftnlen str_len);
+extern int C2F(nextv)(char *str, double *v, int *nv, int *ir, int *ierr, ftnlen str_len);
+extern int C2F(s2int)(char *str, int *nlz, int *v, int *ir, int *ierr, ftnlen str_len);
 /*  "fgetarg-n.c.X1" */
-extern int C2F(fgetarg)(integer *n, char *str, ftnlen str_len);
+extern int C2F(fgetarg)(int *n, char *str, ftnlen str_len);
 
 /*  "getpidc-n.c.X1" */
 extern int C2F(getpidc)(int *id1);
 
 /*  "inffic-n.c.X1" */
-extern void C2F(inffic)(integer *iopt, char *name, integer *nc);
-extern void C2F(infficl)(integer *iopt, integer *nc);
+extern void C2F(inffic)(int *iopt, char *name, int *nc);
+extern void C2F(infficl)(int *iopt, int *nc);
 /*  "inibrk-n.c.X1" */
 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);
+extern int C2F(my_handler_)(int *sig, int *code, int *sigcontext, int *addr);
+extern int C2F(my_ignore_)(int *sig, int *code, int *sigcontext, int *addr);
 
 /*  "plevel-n.c.X1" */
-extern int C2F(plevel)(integer *n);
+extern int C2F(plevel)(int *n);
 /*  "sigbas-n.c.X1" */
-extern int C2F(systemc)(char *command, integer *stat);
+extern int C2F(systemc)(char *command, int *stat);
 /*  "timer-n.c.X1" */
 extern int C2F(stimer)(void);
 /*  "tmpdir-n.c.X1" */
index 6137ee3..df10589 100644 (file)
@@ -44,7 +44,7 @@
 #define Max(x,y)       (((x)>(y))?(x):(y))
 #endif
 
-#define PI0 (integer *) 0
+#define PI0 (int *) 0
 #define PD0 (double *) 0
 #define SMDOUBLE 1.e-200 /* Smalest number to avoid dividing by zero */
 
@@ -68,7 +68,7 @@
   #define inint(x) (( x > 0 ) ? ((int) (x + 0.5)) : ((int) (x - 0.5));
  **/
 
-#define linint(x) ((integer) floor(x + 0.5 )) 
+#define linint(x) ((int)  floor(x + 0.5 )) 
 #define inint(x) ((int) floor(x + 0.5 ))  
 
 #if (defined(sun) && defined(SYSV)) 
index 9453bdb..17c22b7 100644 (file)
@@ -28,9 +28,9 @@
 #define SAVE_ID 3
 #define QUIT_ID 4
 
-void C2F(inffic)(integer *iopt, char *name, integer *nc);
+void C2F(inffic)(int *iopt, char *name, int *nc);
 
-void C2F(infficl)(integer *iopt, integer *nc);
+void C2F(infficl)(int *iopt, int *nc);
 
 char *get_sci_data_strings(int n);
 
index 4c749be..c1ddb59 100644 (file)
@@ -150,7 +150,7 @@ static int IsDefinedVar(char *name);
  See CreateEqualTList and GetControlInstruction
  Input:
   - data: pointer to compiled macro code
-  - index: index of current integer in data
+  - index: index of current int in data
   - nblines: pointer to number of lines in macro
  Output:
   - nblines: pointer to number of lines in macro
@@ -173,7 +173,7 @@ static int GetInstruction(int *data,int *index,int *nblines,int *addinstr);
    OR tlist(["ifthenelse","expression","then","elseifs","else"],...)
  Input:
   - data: pointer to compiled macro code
-  - index: index of current integer in data
+  - index: index of current int in data
   - nblines: pointer to number of lines in macro
  Output:
   - nblines: pointer to number of lines in macro
@@ -191,7 +191,7 @@ static int GetControlInstruction(int *data,int *index,int *nblines);
  Input:
   - type: type of constant ("number","string","code23" or "emptymatrix")
   - data: pointer to compiled macro code
-  - index: index of current integer in data
+  - index: index of current int in data
  Output:
   - No output
  Returned value:
@@ -207,7 +207,7 @@ static int CreateCsteTList(char *type,int *data,int *index);
    tlist(["operation","operands","operator"],list_of_operands,operator_symbol)
  Input:
   - data: pointer to compiled macro code
-  - index: index of current integer in data
+  - index: index of current int in data
  Output:
   - No output
  Returned value:
@@ -224,7 +224,7 @@ static int CreateOperationTList(int *data,int *index);
  Input:
   - fromwhat: from what it has to be made ("funptr","datacode" or "macro")
   - data: pointer to compiled macro code
-  - index: index of current integer in data
+  - index: index of current int in data
  Output:
   - No output
  Returned value:
@@ -241,7 +241,7 @@ static int CreateFuncallTList(char *fromwhat,int *data,int *index);
  Input:
   - fromwhat: from what it has to be made ("code29","code1" or "forexpr")
   - data: pointer to compiled macro code
-  - index: index of current integer in data
+  - index: index of current int in data
  Output:
   - No output
  Returned value:
@@ -257,7 +257,7 @@ static int CreateEqualTList(char *fromwhat,int *data,int *index);
   tlist(["comment","text"],text_of_comment)
  Input:
   - data: pointer to compiled macro code
-  - index: index of current integer in data
+  - index: index of current int in data
  Output:
   - No output
  Returned value:
@@ -291,7 +291,7 @@ static int VCopyObj(char *fname,int *orig,int *dest,unsigned long fname_length);
   in a compiled macro code or a part of this code
  Input:
   - data: pointer to compiled macro code
-  - index: index of current integer in data
+  - index: index of current int in data
   - lgth: length of code to eval
  Output:
   - No output
index 0d67799..e2701d4 100644 (file)
@@ -19,7 +19,7 @@
 * @param value to check
 * @return 1 if a Nan is found and 0 elsewhere
 */
-integer C2F(isanan)(double *x);
+int C2F(isanan)(double *x);
 
 #endif /* __ISANAN_H__ */
 /*--------------------------------------------------------------------------*/ 
index 2e4713c..3020e69 100644 (file)
 #endif
 #define DIR_SEPARATOR "/"
 
-#ifndef integer
-typedef int integer;
-#endif
-
 /* Force usage of dynamically located stack on 64 bits */
 #ifdef IS_64_BITS_CPU
 #define USE_DYNAMIC_STACK
index cbc8104..073c9f2 100644 (file)
        size of C int = 4 bytes
 */
 
-#ifndef integer
-typedef int integer;
-#endif
-
 #define SHARED_LIB_EXT ".dll"
 
 /* PATH_SEPARATOR : Under Windows by default is ; */
index 798e616..36c64e6 100644 (file)
@@ -54,14 +54,14 @@ int sciReturnInt( int value ) ;
 int sciReturnRowVector( const double values[], int nbValues ) ;
 
 /**
-* copy a integer array into a row vector (of double) in the scilab stack
+* copy a int array into a row vector (of double) in the scilab stack
 * in order to see it the console.
 * @return 0 if the function was executed correctly, -1 if an error occured.
 */
 int sciReturnRowVectorFromInt( const int values[], int nbValues ) ;
 
 /**
- * copy an integer array into an integer row vector in the scilab stack
+ * copy an int array into an int row vector in the scilab stack
  * in order to see it the console.
  * @return 0 if the function was executed correctly, -1 if an error occured.
  */
index 9064b94..e75fa97 100644 (file)
@@ -15,8 +15,8 @@
 
 #include "machine.h"
 
-integer C2F(scimem)(integer *n, integer *ptr);
-integer C2F(scigmem)(integer *n, integer *ptr);
+int C2F(scimem)(int *n, int *ptr);
+int C2F(scigmem)(int *n, int *ptr);
 
 void C2F(freegmem)(void);
 void C2F(freemem)(void);
index 680bc34..2904d3f 100644 (file)
@@ -22,7 +22,7 @@
 * sig == 8 Floating point exception
 * sig == 11 fatal error!!!
 */
-int C2F(sigbas)(integer *sig);
+int C2F(sigbas)(int *sig);
 
 #endif /* __SIGBAS_H__  */
 /*--------------------------------------------------------------------------*/
index 32de498..ca4bd73 100644 (file)
@@ -58,12 +58,12 @@ typedef enum {
  * Structure used for sparse matrix
  */
 typedef struct scisparse {
-       integer m;
-       integer n;
-       integer it;
-       integer nel; /**< number of non nul elements */
-       integer *mnel;/**< mnel[i]: number of non nul elements of row i, size m */
-       integer *icol; /**< icol[j]: column of the j-th non nul element, size nel */
+       int m;
+       int n;
+       int it;
+       int nel; /**< number of non nul elements */
+       int *mnel;/**< mnel[i]: number of non nul elements of row i, size m */
+       int *icol; /**< icol[j]: column of the j-th non nul element, size nel */
        double *R; /**< R[j]: real value of the j-th non nul element, size nel */
        double *I ; /**< I[j]: imag value of the j-th non nul element, size nel */
 } SciSparse ;
@@ -112,9 +112,9 @@ See if it is interesting including them here
  * sciintmat
  */
 typedef struct sciintmat {
-       integer m,n;
-       integer it ; /**< it : 1,2,4,11,12,14  */
-       integer l;   /**< if l != -1 then istk(l) == D */
+       int m,n;
+       int it ; /**< it : 1,2,4,11,12,14  */
+       int l;   /**< if l != -1 then istk(l) == D */
        void *D;     /**< data : should be casted according to it */
 } SciIntMat ;
 
@@ -171,8 +171,8 @@ typedef struct { double r, i; } doublecomplex;
 #define zstk(x) (((doublecomplex *) C2F(stack).Stk) + x-1 )
 
 
-#define Lstk(x) (((integer *) C2F(vstk).lstk) + x-1 )
-#define Infstk(x) (((integer *) C2F(vstk).infstk) + x-1 )
+#define Lstk(x) (((int *) C2F(vstk).lstk) + x-1 )
+#define Infstk(x) (((int *) C2F(vstk).infstk) + x-1 )
 
 /* to retreive handles on the stack */
 #define hstk(x) (((long long *) C2F(stack).Stk) + x-1 )
@@ -219,7 +219,7 @@ typedef struct { double r, i; } doublecomplex;
  * @param lx
  * @return <ReturnValue>
  */
-#define GetRhsVar(n,ct,mx,nx,lx) if (! C2F(getrhsvar)((c_local=n,&c_local),ct,mx,nx,(integer *) lx,1L))\
+#define GetRhsVar(n,ct,mx,nx,lx) if (! C2F(getrhsvar)((c_local=n,&c_local),ct,mx,nx,(int *) lx,1L))\
         { return 0;  }
 
 #define CreateVar(n,ct,mx,nx,lx) if(! C2F(createvar)((c_local=n,&c_local),ct,mx,nx,(void *)lx, 1L))\
@@ -276,9 +276,9 @@ typedef struct { double r, i; } doublecomplex;
 
 
 
-#define  GetListRhsVar(n,m,ct,m1e1,n1e1,l1e1)  if(!C2F(getlistrhsvar)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,m1e1,n1e1,(integer *) l1e1,1L)) {return 0;}
+#define  GetListRhsVar(n,m,ct,m1e1,n1e1,l1e1)  if(!C2F(getlistrhsvar)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,m1e1,n1e1,(int *) l1e1,1L)) {return 0;}
 
-#define  GetListRhsCVar(n,m,ct,it,m1e1,n1e1,l1e1,l1e2)  if(!C2F(getlistrhscvar)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,it,m1e1,n1e1,(integer *) l1e1,(integer *) l1e2,1L)) {return 0;}
+#define  GetListRhsCVar(n,m,ct,it,m1e1,n1e1,l1e1,l1e2)  if(!C2F(getlistrhscvar)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,it,m1e1,n1e1,(int *) l1e1,(int *) l1e2,1L)) {return 0;}
 
 #ifdef _MSC_VER
 #define CheckRhs(minrhs,maxrhs)  \
@@ -408,10 +408,10 @@ int get_optionals(char *name,rhs_opts opts[]);
 extern int C2F(firstopt)(void);
 extern int C2F(findopt)(char *, rhs_opts *);
 
-extern int C2F(isopt)(integer *,char *,unsigned long);
+extern int C2F(isopt)(int *,char *,unsigned long);
 
-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 int C2F(checkrhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
+extern int C2F(checklhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
 
 extern void C2F(freeptr)(double *ip[]);
 
index daa6ff3..98fb499 100644 (file)
@@ -237,7 +237,7 @@ IMPORT MTLBC_struct C2F(mtlbc);
  * @TODO : add comment 
  */
 typedef struct {
-       integer iero; /**< @TODO : add comment */
+       int iero; /**< @TODO : add comment */
 } IERODE_struct;
 
 IMPORT IERODE_struct C2F(ierode);
@@ -250,14 +250,14 @@ typedef struct {
        double t0; /**< @TODO : add comment */
        double tlast; /**< @TODO : add comment */
        double toutc; /**< @TODO : add comment */ 
-       integer lg0; /**< @TODO : add comment */
-       integer lg1; /**< @TODO : add comment */
-       integer lgx; /**< @TODO : add comment */
-       integer iownr3[2]; /**< @TODO : add comment */
-       integer irfnd; /**< @TODO : add comment */
-       integer itaskc; /**< @TODO : add comment */
-       integer ngc; /**< @TODO : add comment */
-       integer nge; /**< @TODO : add comment */
+       int lg0; /**< @TODO : add comment */
+       int lg1; /**< @TODO : add comment */
+       int lgx; /**< @TODO : add comment */
+       int iownr3[2]; /**< @TODO : add comment */
+       int irfnd; /**< @TODO : add comment */
+       int itaskc; /**< @TODO : add comment */
+       int ngc; /**< @TODO : add comment */
+       int nge; /**< @TODO : add comment */
 } LSR001_struct;
 
 IMPORT LSR001_struct C2F(lsr001);
@@ -277,42 +277,42 @@ typedef struct {
        double rc; /**< @TODO : add comment */
        double tn; /**< @TODO : add comment */
        double uround; /**< @TODO : add comment */
-       integer illin; /**< @TODO : add comment */
-       integer init; /**< @TODO : add comment */
-       integer lyh; /**< @TODO : add comment */
-       integer lewt; /**< @TODO : add comment */
-       integer lacor; /**< @TODO : add comment */
-       integer lsavf; /**< @TODO : add comment */
-       integer lwm; /**< @TODO : add comment */
-       integer liwm; /**< @TODO : add comment */
-       integer mxstep; /**< @TODO : add comment */
-       integer mxhnil; /**< @TODO : add comment */
-
-       integer nhnil; /**< @TODO : add comment */
-       integer ntrep; /**< @TODO : add comment */
-       integer nslast; /**< @TODO : add comment */
-       integer nyh; /**< @TODO : add comment */
-       integer iowns[6]; /**< @TODO : add comment */
-       integer icf; /**< @TODO : add comment */
-       integer ierpj; /**< @TODO : add comment */
-       integer iersl; /**< @TODO : add comment */
-       integer jcur; /**< @TODO : add comment */
-
-       integer jstart; /**< @TODO : add comment */
-       integer kflag; /**< @TODO : add comment */
-       integer l; /**< @TODO : add comment */
-       integer meth; /**< @TODO : add comment */
-       integer miter; /**< @TODO : add comment */
-       integer maxord; /**< @TODO : add comment */
-       integer maxcor; /**< @TODO : add comment */
-       integer msbp; /**< @TODO : add comment */
-       integer mxncf; /**< @TODO : add comment */
-       integer n; /**< @TODO : add comment */
-       integer nq; /**< @TODO : add comment */
-       integer nst; /**< @TODO : add comment */
-       integer nfe; /**< @TODO : add comment */
-       integer nje; /**< @TODO : add comment */
-       integer nqu; /**< @TODO : add comment */
+       int illin; /**< @TODO : add comment */
+       int init; /**< @TODO : add comment */
+       int lyh; /**< @TODO : add comment */
+       int lewt; /**< @TODO : add comment */
+       int lacor; /**< @TODO : add comment */
+       int lsavf; /**< @TODO : add comment */
+       int lwm; /**< @TODO : add comment */
+       int liwm; /**< @TODO : add comment */
+       int mxstep; /**< @TODO : add comment */
+       int mxhnil; /**< @TODO : add comment */
+
+       int nhnil; /**< @TODO : add comment */
+       int ntrep; /**< @TODO : add comment */
+       int nslast; /**< @TODO : add comment */
+       int nyh; /**< @TODO : add comment */
+       int iowns[6]; /**< @TODO : add comment */
+       int icf; /**< @TODO : add comment */
+       int ierpj; /**< @TODO : add comment */
+       int iersl; /**< @TODO : add comment */
+       int jcur; /**< @TODO : add comment */
+
+       int jstart; /**< @TODO : add comment */
+       int kflag; /**< @TODO : add comment */
+       int l; /**< @TODO : add comment */
+       int meth; /**< @TODO : add comment */
+       int miter; /**< @TODO : add comment */
+       int maxord; /**< @TODO : add comment */
+       int maxcor; /**< @TODO : add comment */
+       int msbp; /**< @TODO : add comment */
+       int mxncf; /**< @TODO : add comment */
+       int n; /**< @TODO : add comment */
+       int nq; /**< @TODO : add comment */
+       int nst; /**< @TODO : add comment */
+       int nfe; /**< @TODO : add comment */
+       int nje; /**< @TODO : add comment */
+       int nqu; /**< @TODO : add comment */
 } LS0001_struct;
 
 IMPORT LS0001_struct C2F(ls0001);
@@ -325,14 +325,14 @@ typedef struct {
        double tsw; /**< @TODO : add comment */
        double rowns2[20]; /**< @TODO : add comment */
        double pdnorm; /**< @TODO : add comment */
-       integer insufr; /**< @TODO : add comment */
-       integer insufi; /**< @TODO : add comment */
-       integer ixpr; /**< @TODO : add comment */
-       integer iowns2[2]; /**< @TODO : add comment */
-       integer jtyp; /**< @TODO : add comment */
-       integer mused; /**< @TODO : add comment */
-       integer mxordn; /**< @TODO : add comment */
-       integer mxords; /**< @TODO : add comment */
+       int insufr; /**< @TODO : add comment */
+       int insufi; /**< @TODO : add comment */
+       int ixpr; /**< @TODO : add comment */
+       int iowns2[2]; /**< @TODO : add comment */
+       int jtyp; /**< @TODO : add comment */
+       int mused; /**< @TODO : add comment */
+       int mxordn; /**< @TODO : add comment */
+       int mxords; /**< @TODO : add comment */
 } LSA001_struct;
 
 IMPORT LSA001_struct C2F(lsa001);
@@ -342,7 +342,7 @@ IMPORT LSA001_struct C2F(lsa001);
  * @TODO : add comment 
  */
 typedef struct {
-    integer iero; /**< @TODO : add comment */
+    int iero; /**< @TODO : add comment */
 } IERINV_struct;
 
 IMPORT IERINV_struct C2F(ierinv);
@@ -352,9 +352,9 @@ IMPORT IERINV_struct C2F(ierinv);
  * @TODO : add comment 
  */
 typedef struct {
-    integer lf; /**< @TODO : add comment */
-       integer nfree; /**< @TODO : add comment */
-       integer nf; /**< @TODO : add comment */
+    int lf; /**< @TODO : add comment */
+       int nfree; /**< @TODO : add comment */
+       int nf; /**< @TODO : add comment */
 } SCIGSCH_struct;
 
 IMPORT SCIGSCH_struct C2F(scigsch);
@@ -363,9 +363,9 @@ IMPORT SCIGSCH_struct C2F(scigsch);
  * @TODO : add comment 
  */
 typedef struct {
-    integer lf; /**< @TODO : add comment */
-       integer nx; /**< @TODO : add comment */
-       integer nf; /**< @TODO : add comment */
+    int lf; /**< @TODO : add comment */
+       int nx; /**< @TODO : add comment */
+       int nf; /**< @TODO : add comment */
 } SCISCH_struct;
 
 IMPORT SCISCH_struct C2F(scisch);
@@ -375,14 +375,14 @@ IMPORT SCISCH_struct C2F(scisch);
  */
 typedef union {
     struct {
-               integer lf; /**< @TODO : add comment */
-               integer nfree; /**< @TODO : add comment */
-               integer nf; /**< @TODO : add comment */
+               int lf; /**< @TODO : add comment */
+               int nfree; /**< @TODO : add comment */
+               int nf; /**< @TODO : add comment */
     } _1; /**< @TODO : add comment */
     struct {
-               integer lf; /**< @TODO : add comment */
-               integer nx; /**< @TODO : add comment */
-               integer nf; /**< @TODO : add comment */
+               int lf; /**< @TODO : add comment */
+               int nx; /**< @TODO : add comment */
+               int nf; /**< @TODO : add comment */
     } _2; /**< @TODO : add comment */
 } SCIZGSCH_union;
 
index 77fc960..5c230de 100644 (file)
 
 typedef  void (*S_fp)(char *,int *);
 
-extern integer C2F(ogettype)(integer *lw);
+extern int C2F(ogettype)(int *lw);
 
 
 /** used in stack1.c : defined elsewhere */
 
-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 *);
+extern  int C2F(cvname)(int *,char *,int *, unsigned long int);
+extern int C2F(icopy)(int *,int *,int *,int *,int *);
+extern int C2F(dcopy)(int *,double *,int *,double *,int *);
+extern int C2F(scidcopy)(int *,double *,int *,double *,int *);
+extern int C2F(unsfdcopy)(int *,double *,int *,double *,int *);
+extern int C2F(rcopy)(int *,float *,int *,float *,int *);
+extern void C2F(cstringf)(char ***,int *,int *,int *,int *,int *);
+extern int C2F(stringc)(int *,char ***,int *);
+extern int C2F(stackg)(int *);
 
 /* calelm */
 
-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);
+extern int C2F(entier)(int *n, double *d__, int *s);
+extern int C2F(simple)(int *n, double *d__, float *s);
+extern int C2F(iset)(int *n, int *dx, int *dy, int *incy);
 
 /* stack0.c */
 
-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);
+extern int C2F(stacki2d)(int *n, int *il1, int *dl1);
+extern int C2F(stackr2d)(int *n, int *sl1, int *dl1);
+extern int C2F(stackc2i)(int *n, int *sl1, int *il1);
 
 /* stack1.c */
 
-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);
+int C2F(getwsmat)(char *fname, int *topk, int *lw, int *m, int *n, int *ilr, int *ilrd, unsigned long fname_len);
+int C2F(getlistwsmat)(char *fname, int *topk, int *spos,int*lnum, int *m, int *n, int *ilr, int *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 cre_smat_from_str (char *fname,  int *lw, int * m, int * n, char **Str,    unsigned long fname_len);
+
+int C2F(getlistmat)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
+int C2F(getmat)(char *fname, int *topk, int *lw, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
+
+int C2F(listcremat)(char *fname, int *lw, int *numi, int *stlw, int *it, int *m, int *n, int *lrs, int *lcs, unsigned long fname_len);
+int C2F(cremat)(char *fname, int *lw, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
+int C2F(crematvar)(int *id, int *lw, int *it, int *m, int *n, double *rtab, double *itab);
+int C2F(crebmatvar) (int *id, int *lw, int *m, int *n, int *val);
+int C2F(cresmatvar) (int *id, int *lw, char *str, int *lstr, unsigned long str_len);
+int C2F(fakecremat)(int *lw, int *it, int *m, int *n, int *lr, int *lc);
+int C2F(getlistbmat)(char *fname, int *topk, int *spos, int *lnum, int *m, int *n, int *lr, unsigned long fname_len);
+int C2F(getbmat)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
+
+int C2F(listcrebmat)(char *fname, int *lw, int *numi, int *stlw, int *m, int *n, int *lrs, unsigned long fname_len);
+int C2F(crebmat)(char *fname, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
+int C2F(fakecrebmat)( int *lw, int *m, int *n, int *lr);
+
+int C2F(getsparse)(char *fname, int *topk, int *lw, int *it, int *m, int *n, int *nel, int *mnel, int *icol, int *lr, int *lc, unsigned long fname_len);
+int C2F(getlistsparse)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *nel, int *mnel, int *icol, int *lr, int *lc, unsigned long fname_len);
+int C2F(listcresparse)(char *fname, int *lw, int *numi, int *stlw, int *it, int *m, int *n, int *nel, int *mnel, int *icol, int *lrs, int *lcs, unsigned long fname_len);
+int C2F(cresparse)(char *fname, int *lw, int *it, int *m, int *n, int *nel, int *mnel, int *icol, int *lr, int *lc, unsigned long fname_len);
+
+int C2F(getlistvect)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
+int C2F(getvect)(char *fname, int *topk, int *lw, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
+int C2F(getrmat)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
+int C2F(getcmat)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
+int C2F(getrvect)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
+int C2F(getscalar)(char *fname, int *topk, int *lw, int *lr, unsigned long fname_len);
+int C2F(matsize)(char *fname, int *topk, int *lw, int *m, int *n, unsigned long fname_len);
+int C2F(vectsize)(char *fname, int *topk, int *lw, int *n, unsigned long fname_len);
+int C2F(matbsize)(char *fname, int *topk, int *lw, int *m, int *n, unsigned long fname_len);
+int C2F(getsmat)(char *fname, int *topk, int *lw, int *m, int *n, int *i__, int *j, int *lr, int *nlr, unsigned long fname_len);
+int C2F(getsimat)(char *fname, int *topk, int *lw, int *m, int *n, int *i__, int *j, int *lr, int *nlr, unsigned long fname_len);
+int C2F(listcresmat)(char *fname, int *lw, int *numi, int *stlw, int *m, int *n, int *nchar, int *job, int *ilrs, unsigned long fname_len);
+int C2F(cresmat)(char *fname, int *lw, int *m, int *n, int *nchar, unsigned long fname_len);
+int C2F(cresmati)(char *fname, int *stlw, int *m, int *n, int *nchar, int *job, int *lr, int *sz, unsigned long fname_len);
+int C2F(cresmat1)(char *fname, int *lw, int *m, int *nchar, unsigned long fname_len);
+int C2F(cresmat3)(char *fname, int *lw, int *m, int *n, int *nchar, char *buffer, unsigned long fname_len, unsigned long buffer_len);
+int C2F(cresmat2)(char *fname, int *lw, int *nchar, int *lr, unsigned long fname_len);
+int C2F(smatj)(char *fname, int *lw, int *j, unsigned long fname_len);
+int C2F(lmatj)(char *fname, int *lw, int *j, unsigned long fname_len);
+int C2F(pmatj)(char *fname, int *lw, int *j, unsigned long fname_len);
+int C2F(copysmat)(char *fname, int *flw, int *tlw, unsigned long fname_len);
+int C2F(setsimat)(char *fname, int *lw, int *i__, int *j, int *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(crewmat)(char *fname, int *lw, int *m, int *lr, unsigned long fname_len);
+int C2F(copyobj)(char *fname, int *lw, int *lwd, unsigned long fname_len);
+int C2F(vcopyobj)(char *fname, int *lw, int *lwd, unsigned long fname_len);
+int C2F(swapmat)(char *fname, int *topk, int *lw, int *it1, int *m1, int *n1, int *mn1, int *it2, int *m2, int *n2, int *mn2, unsigned long fname_len);
+int C2F(insmat)(int *topk, int *lw, int *it, int *m, int *n, int *lr, int *lc, int *lr1, int *lc1);
+int C2F(stackinfo)(int *lw, int *typ);
+int C2F(allmat)(char *fname, int *topk, int *lw, int *m, int *n, unsigned long fname_len);
+int C2F(allmatset)(char *fname, int *lw, int *m, int *n, unsigned long fname_len);
+int C2F(getilist)(char *fname, int *topk, int *lw, int *n, int *i__, int *ili, unsigned long fname_len);
+int C2F(objvide)(char *fname, int *lw, unsigned long fname_len);
+int C2F(getexternal)(char *fname, int *topk, int *lw, char *name__, int *type__, S_fp setfun, unsigned long fname_len, unsigned long name_len);
+int C2F(getpoly)(char *fname, int *topk, int *lw, int *it, int *m, int *n, char *name__, int *namel, int *ilp, int *lr, int *lc, unsigned long fname_len, unsigned long name_len);
+int C2F(crewimat)(char *fname, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
+int C2F(getwimat)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
+int C2F(checkval)(char *fname, int *ival1, int *ival2, unsigned long fname_len);
+int C2F(optvarget)(char *fname, int *topk, int *iel, char *name__, unsigned long fname_len, unsigned long name_len);
+int C2F(bufstore)(char *fname, int *lbuf, int *lbufi, int *lbuff, int *lr, int *nlr, unsigned long fname_len);
+int C2F(crestringv)(char *fname, int *spos, int *ilorig, int *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(crepointer)(char *fname, int *spos, int *lw, unsigned long fname_len);
+int C2F(listcrepointer)(char *fname, int *lw, int *numi, int *stlw,  int *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(lcrestringmatfromc)(char *fname, int *spos, int *numi, int *stlw, int *lorig, int *m, int *n, unsigned long fname_len);
+int C2F(crestringmatfromc)(char *fname, int *spos, int *lorig, int *m, int *n, unsigned long fname_len);
+int C2F(crelist)(int *slw, int *ilen, int *lw);
+int C2F(cretlist)(int *slw, int *ilen, int *lw);
+int C2F(cremlist)(int *slw, int *ilen, int *lw);
+int C2F(getlistvectrow)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
+int C2F(getvectrow)(char *fname, int *topk, int *spos, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
+int C2F(getlistvectcol)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
+int C2F(getvectcol)(char *fname, int *topk, int *spos, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
+int C2F(getlistscalar)(char *fname, int *topk, int *spos, int *lnum, int *lr, unsigned long fname_len);
+int C2F(listcrestring)(char *fname, int *lw, int *numi, int *stlw, int *nch, int *ilrs, unsigned long fname_len);
+int C2F(crestring)(char *fname, int *spos, int *nchar, int *ilrs, unsigned long fname_len);
+int C2F(crestringi)(char *fname, int *stlw, int *nchar, int *ilrs, unsigned long fname_len);
+int C2F(getlistsimat)(char *fname, int *topk, int *spos, int *lnum, int *m, int *n, int *i__, int *j, int *lr, int *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(getsimati)(char *fname, int *topk, int *spos, int *lw, int *m, int *n, int *i, int *j, int *lr, int *nlr,int *inlist,int *nel, unsigned long fname_len);
+int C2F(getonepoly)(char *fname, int *topk, int *lw, int *it, int *md, char *name__, int *namel, int *lr, int *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(getlistpointer)(char *fname, int *topk, int *spos, int *lnum, int *lr, unsigned long fname_len);
+ int C2F(getpointer)(char *fname, int *topk, int *lw, int *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 C2F(mspcreate)(int *lw, int *m, int *n, int *nzmax, int *it);
+int C2F(cresmat4)(char *fname, int *lw, int *m, int *nchar, int *lr, unsigned long fname_len);
+int C2F(credata) (char *fname, int *lw, int 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_listsmat_from_str(char *fname, int *lw, int *numi, int *stlw, int *m, int *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_sparse_from_ptr (char *fname,int * lw,int *m, int *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 cre_listsparse_from_ptr(char *fname,int * lw,int * numi,int * stlw,int *  m,int * n, SciSparse *M, unsigned long fname_len );
 
 
 
 /**********************************************************************
  * INT MATRICES 
  **********************************************************************/
-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(getlistimat) (char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *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(getimat) (char *fname, int *topk, int *lw, int *it, int *m, int *n, int *lr, 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(listcreimat) (char *fname, int *lw, int *numi, int *stlw, int *it, int *m, int *n, int *lrs, 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);
+int C2F(creimat) (char *fname, int *lw, int *it, int *m, int *n, int *lr, long unsigned int fname_len);
+int C2F(creimati)(char *fname,int *stlw,int *it,int *m,int *n,int *lr,int *flagx,unsigned long fname_len);
 
 /**********************************************************************
  * HANDLE MATRICES 
  **********************************************************************/
-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(getlisthmat)(char *fname, int *topk, int *spos, int *lnum, int *m, int *n, int *lr, unsigned long fname_len);
+int C2F(gethmat)(char *fname, int *topk, int *lw, int *m, int *n, int *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);
+int C2F(listcrehmat)(char *fname, int *lw, int *numi, int *stlw, int *m, int *n, int *lrs, unsigned long fname_len);
+int C2F(crehmat)(char *fname, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
 
 #endif 
index fdc2119..8b940d7 100644 (file)
@@ -35,18 +35,18 @@ void z2double(double *ptrz, double *ptrsci, int size, int lda);
 
 /* from int */
 
-extern  int C2F(tpconv)(integer *,integer *,integer *,void *, integer *,void *, integer *);
+extern  int C2F(tpconv)(int *,int *,int *,void *, int *,void *, int *);
 
 /* from system */
 
-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(mklist)(int *);
+extern int C2F(mklistt)(int *,int *);
+extern int C2F(funs)(int *);
+extern int C2F(putid)(int *,int *);
+extern int C2F(allowptr)(int *);
 extern int C2F(ref2val)(void);
 extern int C2F(allops)(void);
-extern int C2F(putfunnam)(char *fname,integer *lw, unsigned long);
+extern int C2F(putfunnam)(char *fname,int *lw, unsigned long);
 
 
 /* from intersci */
@@ -60,10 +60,10 @@ extern void C2F(cbool)(     int *n,     int *ip[],     int *op);
 /* from somewhere (maybe stack1.h) */
 
 extern void C2F(setfeval)(char *,int *);
-extern int C2F(fakecresmat2)(integer *lw, integer *nchar, integer *lr);
+extern int C2F(fakecresmat2)(int *lw, int *nchar, int *lr);
 /* from stack2.h */
-int C2F(isoptlw)(integer *topk,integer  *lw, char *namex, unsigned long name_len);
-integer C2F(numopt)(void);
+int C2F(isoptlw)(int *topk,int  *lw, char *namex, unsigned long name_len);
+int C2F(numopt)(void);
 
 int C2F(convert2sci)(int *);
 
@@ -72,7 +72,7 @@ int C2F(convert2sci)(int *);
  * @param lw position
  * @return the type of object at position lw in the stack
  */
-integer C2F(gettype)(integer *lw);
+int C2F(gettype)(int *lw);
 
 
 /**
@@ -86,9 +86,9 @@ integer C2F(gettype)(integer *lw);
  */
 int C2F(putlhsvar)(void);
 
-int C2F(isref)(integer *lw);
-integer C2F(vartype)(integer *number);
-integer C2F(elementtype)(integer *lnumber,integer *number);
+int C2F(isref)(int *lw);
+int C2F(vartype)(int *number);
+int C2F(elementtype)(int *lnumber,int *number);
 
 /**
  * Create a variable into the Scilab stack
@@ -101,11 +101,11 @@ integer C2F(elementtype)(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)(integer *lw, char *type__, integer *m, integer *n, integer *lr, unsigned long type_len);
+int C2F(createvar)(int *lw, char *type__, int *m, int *n, int *lr, unsigned long type_len);
 
-int C2F(creatework) (integer *number,integer *m,integer  *lr);
+int C2F(creatework) (int *number,int *m,int  *lr);
 
-int C2F(setworksize) (integer *number,integer *size);
+int C2F(setworksize) (int *number,int *size);
 
 
 /**
@@ -130,15 +130,15 @@ int C2F(setworksize) (integer *number,integer *size);
  * @param type_len length of the char *type__
  * @return the result of the operation
  */
-int C2F(createcvar)(integer *lw, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long type_len);
+int C2F(createcvar)(int *lw, char *type__, int *it, int *m, int *n, int *lr, int *lc, 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(createlist)(int *lw, int *nel);
+int C2F(createvarfrom)(int *lw, char *type__, int *m, int *n, int *lr, int *lar, unsigned long type_len);
+int C2F(createcvarfrom)(int *lw, char *type__, int *it, int *m, int *n, int *lr, int *lc, int *lar, int *lac, unsigned long type_len);
+int C2F(createlistvarfrom)(int *lnumber, int *number, char *type__, int *m, int *n, int *lr, int *lar, unsigned long type_len);
 
-int C2F(getmatdims) (integer *number, integer *m, integer *n);
+int C2F(getmatdims) (int *number, int *m, int *n);
 
 
 /**
@@ -163,7 +163,7 @@ int C2F(getmatdims) (integer *number, integer *m, integer *n);
  * @param type_len length of the char *type__
  * @return the result of the operation
  */
-int C2F(getrhsvar)(integer *number, char *type__, integer *m, integer *n, integer *lr, unsigned long type_len);
+int C2F(getrhsvar)(int *number, char *type__, int *m, int *n, int *lr, unsigned long type_len);
 
 
 /**
@@ -183,11 +183,11 @@ int C2F(getrhsvar)(integer *number, char *type__, integer *m, integer *n, intege
  * @param type_len length of the char *type__
  * @return the result of the operation
  */
-int C2F(getrhscvar)(integer *number, char *type__, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long type_len);
+int C2F(getrhscvar)(int *number, char *type__, int *it, int *m, int *n, int *lr, int *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);
+int C2F(getlistrhsvar)(int *lnumber, int *number, char *type__, int *m, int *n, int *lr,  unsigned long type_len);
+int C2F(getlistrhscvar)(int *lnumber, int *number, char *type__, int *it, int *m, int *n, int *lr, int *lc, unsigned long type_len);
 
 
 
@@ -200,7 +200,7 @@ int C2F(getlistrhscvar)(integer *lnumber, integer *number, char *type__, integer
  * @param iptr the data we want to add into the stack
  * @param type_len length of the char *type__
  */
-int C2F(createvarfromptr)(integer *number, char *type__, integer *m, integer *n,void *iptr, unsigned long type_len);
+int C2F(createvarfromptr)(int *number, char *type__, int *m, int *n,void *iptr, unsigned long type_len);
 
 
 /**
@@ -213,28 +213,28 @@ int C2F(createvarfromptr)(integer *number, char *type__, integer *m, integer *n,
  * @param iptc the complex data we want to add into the stack
  * @param type_len length of the char *type__
  */
-int C2F(createcvarfromptr)(integer *number, char *type__, integer *it, integer *m, integer *n, double *iptr, double *iptc, unsigned long type_len);
+int C2F(createcvarfromptr)(int *number, char *type__, int *it, int *m, int *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(mklistfromvars)(int *pos, int *n);
+int C2F(mktlistfromvars)(int *pos, int *n);
+int C2F(mkmlistfromvars)(int *pos, int *n);
+int C2F(in2str)(int *n, int *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(scifunction)(int *number, int *ptr, int *mlhs, int *mrhs);
+int C2F(scistring)(int *ifirst, char *thestring, int *mlhs, int *mrhs, unsigned long thestring_len);
+int C2F(getopcode)(char *string, unsigned long string_len);
+int C2F(scibuiltin)(int *number, int *ifun, int *ifin, int *mlhs, int *mrhs);
+int C2F(sciops)(int *number, int *op, int *mlhs, int *mrhs);
+int C2F(getrhssys)(int *lw, int *n, int *m, int *p, int *ptra, int *ptrb, int *ptrc, int *ptrd, int *ptrx0, double *h__);
+int C2F(errorinfo)(char *fname, int *info, unsigned long fname_len);
+int C2F(maxvol)(int *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(createlistvarfromptr) (int *lnumber, int *number, char *typex, int *m, int *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(createlistcvarfromptr) (int * lnumber,int * number, char * typex,int *it,int * m,int * n, void *iptr, void * iptc, unsigned long ttype_len);
+int C2F(createlistcvarfrom)(int *lnumber, int *number, char *typex, int *it, int *m,int *n,int *lr,int *lc,int *lar,int *lac, unsigned long type_len);
 
-int C2F(createdata)(integer *lw, integer n);
+int C2F(createdata)(int *lw, int n);
 
 char * ArgPosition(int i);
 char * ArgsPosition(int i,int j);
index 31f8c09..9bb5efe 100644 (file)
  * @param name_len
  * @return if the operation successed (true) or not (false)
  */
-int C2F(readmat)  (char *name__, integer *m, integer *n, double *scimat, unsigned long name_len);
+int C2F(readmat)  (char *name__, int *m, int *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);
+int C2F(creadmat)  (char *name__, int *m, int *n, double *scimat, unsigned long name_len);
+int C2F(creadcmat)  (char *name__, int *m, int *n, double *scimat, unsigned long name_len);
+int C2F(creadsmat)  (char *name__, int *m, int *n, double *scimat, unsigned long name_len);
 
 /**
  * cwritemat writes vector/matrix in scilab's internal stack
@@ -66,34 +66,34 @@ int C2F(creadsmat)  (char *name__, integer *m, integer *n, double *scimat, unsig
  * @param name_len strlen of name__ (Fortran needs it)
  * @return if the operation successed (true) or not (false)
  */
-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);
+int C2F(cwritemat)  (char *name__, int *m, int *n, double *mat, unsigned long name_len);
+int C2F(cwritecmat)  (char *name__, int *m, int *n, double *mat, unsigned long name_len);
+int C2F(readchain)  (char *name__, int *itslen, char *chai, unsigned long name_len, unsigned long chai_len);
+int C2F(creadchain)  (char *name__, int *itslen, char *chai, unsigned long name_len, unsigned long chai_len);
+int C2F(creadchains)  (char *name__, int *ir, int *ic, int *itslen, char *chai, unsigned long name_len, unsigned long chai_len);
+int C2F(cwritechain)  (char *name__, int *m, char *chai, unsigned long name_len, unsigned long chai_len);
+int C2F(matptr)  (char *name__, int *m, int *n, int *lp, unsigned long name_len);
+int C2F(cmatptr)  (char *name__, int *m, int *n, int *lp, unsigned long name_len);
+int C2F(cmatcptr)  (char *name__, int *m, int *n, int *lp, unsigned long name_len);
+int C2F(cmatsptr)  (char *name__, int *m, int *n, int *ix, int *j, int *lp, int *nlr, unsigned long name_len);
 
 /** 
 read a boolean matrix in scilab stack
 */
-int C2F(creadbmat)(char *namex, integer *m, integer *n, int *scimat, unsigned long name_len);
+int C2F(creadbmat)(char *namex, int *m, int *n, int *scimat, unsigned long name_len);
 
 /**
 write a boolean matrix in scilab stack
 */
-int C2F(cwritebmat)(char *namex, integer *m, integer *n, int *mat, unsigned long name_len);
+int C2F(cwritebmat)(char *namex, int *m, int *n, int *mat, unsigned long name_len);
 
 /**
 get pointer on a named boolean matrix 
 */
-int C2F(cmatbptr)(char *namex, integer *m,integer *n,integer *lp, unsigned long name_len);
+int C2F(cmatbptr)(char *namex, int *m,int *n,int *lp, 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(str2name)  (char *name__, int *id, unsigned long name_len);
+int C2F(objptr)  (char *name__, int *lp, int *fin, unsigned long name_len);
 int C2F(putvar) (int *number, char *namex, unsigned long name_len );
 
 
index 3da7814..9fa3c86 100644 (file)
@@ -45,7 +45,7 @@
 
 /** @def MATRIX_OF_INTEGER_DATATYPE
  * A matrix of 'little' integer
- * 'little' because in reality, this integer is a complex with the imaginary
+ * 'little' because in reality, this int is a complex with the imaginary
  * part set to 0
  * if the size of the matrix is 1,1, it is a single value
  */
index 72d3e6e..4c29021 100644 (file)
@@ -21,7 +21,7 @@
 * @param[out] used
 * @return 0
 */
-integer C2F(getstackinfo)(integer *total,integer *used);
+int C2F(getstackinfo)(int *total,int *used);
 
 /**
 * returns some infos about stack (global)
@@ -29,7 +29,7 @@ integer C2F(getstackinfo)(integer *total,integer *used);
 * @param[out] used
 * @return 0
 */
-integer C2F(getgstackinfo)(integer *total,integer *used);
+int C2F(getgstackinfo)(int *total,int *used);
 
 /* elements on stacks */
 
@@ -39,7 +39,7 @@ integer C2F(getgstackinfo)(integer *total,integer *used);
 * @param[out] used
 * @return 0
 */
-integer C2F(getvariablesinfo)(integer *total,integer *used);
+int C2F(getvariablesinfo)(int *total,int *used);
 
 /**
 * returns some infos about variables on stack (global)
@@ -47,13 +47,13 @@ integer C2F(getvariablesinfo)(integer *total,integer *used);
 * @param[out] used
 * @return 0
 */
-integer C2F(getgvariablesinfo)(integer *total,integer *used);
+int C2F(getgvariablesinfo)(int *total,int *used);
 
 /**
 * returns Intermediate Memory size needed (stack) used by "error(17)"
 * @return Intermediate Memory size needed
 */
-integer getIntermediateMemoryNeeded(void);
+int getIntermediateMemoryNeeded(void);
 
 /**
 * check if sizestack is a valid size for scilab's stack
index 9af456e..daa3cac 100644 (file)
@@ -18,7 +18,7 @@
 #include "Scierror.h"
 #include "localization.h"
 /*--------------------------------------------------------------------------*/
-extern integer C2F(adjustgstacksize)();
+extern int C2F(adjustgstacksize)();
 /*--------------------------------------------------------------------------*/
 #define MIN_GSTACKSIZE 11000
 /*--------------------------------------------------------------------------*/
@@ -87,8 +87,8 @@ int C2F(sci_gstacksize)(char *fname,unsigned long fname_len)
 
                                                if (MEMGSTACKSIZE != currentgstacksize)
                                                {
-                                                       integer ptr=0;
-                                                       integer l=0;
+                                                       int ptr=0;
+                                                       int l=0;
 
                                                        C2F(scigmem)((int *)&MEMGSTACKSIZE,&ptr);
                                                        l = C2F(vstk).lstk[C2F(vstk).gtop] - C2F(vstk).lstk[C2F(vstk).isiz + 1];
@@ -140,15 +140,15 @@ int C2F(sci_gstacksize)(char *fname,unsigned long fname_len)
 
                                if ( strcmp("max",param) == 0 )
                                {
-                                       integer ptr=0;
-                                       integer memgstacktotal=0;
-                                       integer memgstackused=0;
+                                       int ptr=0;
+                                       int memgstacktotal=0;
+                                       int memgstackused=0;
 
-                                       integer memstacktotal=0;
-                                       integer memstackused=0;
+                                       int memstacktotal=0;
+                                       int memstackused=0;
 
-                                       integer newmaxgstack=0;
-                                       integer l;
+                                       int newmaxgstack=0;
+                                       int l;
 
                                        unsigned long memmaxavailablebyscilab=get_max_memory_for_scilab_stack();
                                        unsigned long maxmemfree=(GetLargestFreeMemoryRegion())/sizeof(double);
@@ -158,7 +158,7 @@ int C2F(sci_gstacksize)(char *fname,unsigned long fname_len)
 
                                        newmaxgstack = maxmemfree-memgstackused-memstackused;
 
-                                       if ( newmaxgstack > (integer)memmaxavailablebyscilab )
+                                       if ( newmaxgstack > (int) memmaxavailablebyscilab )
                                        {
                                                newmaxgstack = memmaxavailablebyscilab;
                                        }
@@ -185,11 +185,11 @@ int C2F(sci_gstacksize)(char *fname,unsigned long fname_len)
                                }
                                else if ( strcmp("min",param) == 0 )
                                {
-                                       integer ptr=0;
-                                       integer memgstacktotal=0;
-                                       integer memgstackused=0;
-                                       integer newmingstack=0;
-                                       integer l;
+                                       int ptr=0;
+                                       int memgstacktotal=0;
+                                       int memgstackused=0;
+                                       int newmingstack=0;
+                                       int l;
 
                                        C2F(getgstackinfo)(&memgstacktotal,&memgstackused);
 
index 89f8fa6..195edcc 100644 (file)
@@ -18,7 +18,7 @@
 #include "stackinfo.h"
 #include "Scierror.h"
 /*--------------------------------------------------------------------------*/
-extern integer C2F(adjuststacksize)();
+extern int C2F(adjuststacksize)();
 /*--------------------------------------------------------------------------*/
 #define MIN_STACKSIZE 180000
 /*--------------------------------------------------------------------------*/
@@ -85,7 +85,7 @@ int C2F(sci_stacksize)(char *fname,unsigned long fname_len)
 
                                                if (MEMSTACKSIZE != currentstacksize)
                                                {
-                                                       integer ptr;
+                                                       int ptr;
                                                        C2F(scimem)( (int *)&MEMSTACKSIZE,&ptr);
                                                        if (ptr) 
                                                                {
@@ -139,14 +139,14 @@ int C2F(sci_stacksize)(char *fname,unsigned long fname_len)
 
                                if ( strcmp("max",param) == 0 )
                                {
-                                       integer ptr=0;
+                                       int ptr=0;
 
-                                       integer memstacktotal=0;
-                                       integer memstackused=0;
-                                       integer memgstacktotal=0;
-                                       integer memgstackused=0;
+                                       int memstacktotal=0;
+                                       int memstackused=0;
+                                       int memgstacktotal=0;
+                                       int memgstackused=0;
 
-                                       integer newmaxstack=0;
+                                       int newmaxstack=0;
 
                                        unsigned long memmaxavailablebyscilab=get_max_memory_for_scilab_stack();
                                        unsigned long maxmemfree=(GetLargestFreeMemoryRegion())/sizeof(double);
@@ -164,7 +164,7 @@ int C2F(sci_stacksize)(char *fname,unsigned long fname_len)
 
                                        newmaxstack = maxmemfree;
 
-                                       if ( newmaxstack > (integer)memmaxavailablebyscilab )
+                                       if ( newmaxstack > (int) memmaxavailablebyscilab )
                                        {
                                                newmaxstack = memmaxavailablebyscilab;
                                        }
@@ -189,10 +189,10 @@ int C2F(sci_stacksize)(char *fname,unsigned long fname_len)
                                }
                                else if ( strcmp("min",param) == 0 )
                                {
-                                       integer ptr=0;
-                                       integer memstacktotal=0;
-                                       integer memstackused=0;
-                                       integer newminstack=0;
+                                       int ptr=0;
+                                       int memstacktotal=0;
+                                       int memstackused=0;
+                                       int newminstack=0;
 
                                        C2F(getstackinfo)(&memstacktotal,&memstackused);
 
index d3fa272..8f278f3 100644 (file)
@@ -295,15 +295,15 @@ static BOOL FreeVariableStructArray(struct VariableStruct* Vstruct,int lenStruct
  /*--------------------------------------------------------------------------*/
  static int NoRhs(struct VariableStruct* GVstruct,int GlenStructArray,struct VariableStruct* LVstruct,int LlenStructArray,BOOL Sorted)
  {
-        integer memtotal=0;
-        integer memused=0;
-        integer vartotal=0;
-        integer varused=0;
-
-        integer gmemtotal=0;
-        integer gmemused=0;
-        integer gvartotal=0;
-        integer gvarused=0;
+        int memtotal=0;
+        int memused=0;
+        int vartotal=0;
+        int varused=0;
+
+        int gmemtotal=0;
+        int gmemused=0;
+        int gvartotal=0;
+        int gvarused=0;
 
         C2F(getstackinfo)(&memtotal,&memused);
         C2F(getvariablesinfo)(&vartotal,&varused);
index 9332fe8..afd3dba 100644 (file)
@@ -22,7 +22,7 @@
 /*--------------------------------------------------------------------------*/  
 static int firstentry = 0;
 /*--------------------------------------------------------------------------*/  
-extern int C2F(cvname)(integer *,char *,integer *, unsigned long int);
+extern int C2F(cvname)(int *,char *,int *, unsigned long int);
 /*--------------------------------------------------------------------------*/  
 static int Add_a_Scilab_primitive_in_hashtable(char *str, int *dataI, int *data);
 static BOOL Load_primitives_from_gateway_xml_file(char *modulename);
index 9484432..be932e1 100644 (file)
@@ -46,7 +46,7 @@ void banner(void)
   #endif
 }
 /*--------------------------------------------------------------------------*/
-int C2F(banier)(integer *flag)
+int C2F(banier)(int *flag)
 {
        if (*flag != 999)
        {
index 0e6bffc..f0be239 100644 (file)
@@ -23,6 +23,6 @@ void banner(void);
  * TODO : comment
  * @param flag
  */
-int C2F(banier)(integer *flag);
+int C2F(banier)(int *flag);
 
 #endif /* __BANNER_H__ */
index 3bd743f..c927c85 100644 (file)
 ***********************************/
 
 #define ARGS_interf void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *,void *
-typedef integer * (*interff)(ARGS_interf);
+typedef int * (*interff)(ARGS_interf);
 
 #define ARGS_interf1 char *,long int
-typedef integer * (*interff1)(ARGS_interf1);
+typedef int * (*interff1)(ARGS_interf1);
 
 /**************** interf ***************/
 void C2F(interf)(ARGS_interf);
index 2488373..b7d76e1 100644 (file)
@@ -12,7 +12,7 @@
 
 #include "cs2st.h"
 
-int C2F(cs2st)(integer *i,integer *ires)
+int C2F(cs2st)(int *i,int *ires)
 {
   unsigned int ui;
   ui = (unsigned int) *i;
index cf5ef67..e52b622 100644 (file)
@@ -21,6 +21,6 @@
  * @param ires  
  * @return <ReturnValue>
  */
-int C2F(cs2st)(integer *i,integer *ires);
+int C2F(cs2st)(int *i,int *ires);
 
 #endif /* __CS2ST_H__ */
index f050a98..234363d 100644 (file)
@@ -6,7 +6,7 @@
 
   /*        this subroutine is called by getsym when this last one */
   /*        have detected the beginning of a lexical token which corresponds */
-  /*        to a positive number (an integer or a float). There are two */
+  /*        to a positive number (an int or a float). There are two */
   /*        cases (whom this routine is informed by the logical */
   /*        dotdet (as "dot detected")) : */
 
@@ -33,7 +33,7 @@
   /*        In the others cases we call an "intrinsic" function of Fortran */
   /*        (as strtod in C) to do the job (what fortran called an internal file). */
   /*        The overhead comes from the fact that at this level the "scilab characters" */
-  /*        are actually integers (a first convertion string -> integer is already */
+  /*        are actually integers (a first convertion string -> int is already */
   /*        done) so a "reconversion" to a string is necessary. */
 
   /*     A BRIEF EXPLANATION */
   /*           digits of the mantissa are red) */
   /*           -> the dot is detected and a correction of -11 will be */
   /*              bring in the exponent */
-  /*        2/ the exponent is computed directly in integer arithmetic, then the */
+  /*        2/ the exponent is computed directly in int arithmetic, then the */
   /*           correction is brought to got the final exponent : 23-11 = 12 */
 
   /*        All that to say that the string number to convert is equal to */
-  /*           123456789012345 * 10^12 and in general  x = integer 10^expo */
+  /*           123456789012345 * 10^12 and in general  x = int 10^expo */
 
-  /*        So if integer <= 2^53 (all integer n such that |n| <= 2^53 belong */
-  /*        in the ieee754 double float number) then we must compute this integer */
+  /*        So if int <= 2^53 (all int n such that |n| <= 2^53 belong */
+  /*        in the ieee754 double float number) then we must compute this int */
   /*        (from the digit array) exactly in double precision (if all intermediary */
   /*        computed quantities are integers <= 2^53 which is the case). */
   /*        A simple way to impose this condition is the following : */
   /*            2^53 = 9007199254740992 > 8 10^15 > 10^15 */
-  /*        So that if our integer has 15 digits (or 16 digits with d1 <= 8) then */
+  /*        So that if our int has 15 digits (or 16 digits with d1 <= 8) then */
   /*        it is OK. */
 
   /*        For the exponent : 10^0, 10^1, 10^2, ...., 10^22 are all exactly representable */
@@ -64,7 +64,7 @@
   /*        but 5^23 > 2^53 so that 10^23 is not a float point number) */
 
   /*        Conclusion : */
-  /*          (i) if our integer have less than 15 digits and if |expo|<= 22 */
+  /*          (i) if our int have less than 15 digits and if |expo|<= 22 */
   /*              then only one non exact operation (a multiplication or a division */
   /*              depending the sign of expo) will be done (eventually) and we */
   /*              got the near float ; */
@@ -92,7 +92,7 @@
   /*              of epsm = (approx) 1.11 10^(-16))) */
   /*     digit  : array of length ndgmax to record the mantissa 's digits */
   /*     ndgrec : number of recorded digits (<= ndgmax) */
-  /*     ndg    : to count the number of digits of the integer part of */
+  /*     ndg    : to count the number of digits of the int part of */
   /*              the mantissa (which may be superior to ndgmax => in */
   /*              this case a correction must be bring in the exponent) */
   /*     sgnexp : sign of the exponent part (see SYMBOL AFTER) */
   /*              the mantissa begin an integer, p.e. 123.456 => 123456 */
   /*              in this case the correction is -3) */
   /*     ndgexp : number of digits of the exponent (to control spurious */
-  /*              integer overflow if the exponent is something like */
+  /*              int overflow if the exponent is something like */
   /*              e+2147483648  (=2^31  (= -2^31 with the usual 32 bits */
-  /*              integer arithmetic ))) */
-  /*     expo   : the exponent (directly computed with integer arithmetic */
-  /*              but ndgexp may control integer "overflow") */
-  /*     code0  : integer code of the character "0" */
+  /*              int arithmetic ))) */
+  /*     expo   : the exponent (directly computed with int arithmetic */
+  /*              but ndgexp may control int "overflow") */
+  /*     code0  : int code of the character "0" */
   /*     string : string to hold the "number" to be converted in double */
   /*              when the "number" is such that a direct straitforward */
   /*              conversion will be not enough accurate */
   /*     EXPMAX may be such that 10^EXPMAX > max positive float num */
   /*     EXPMIN may be such that 10^EXPMIN < min positive float num */
   /*     NDEMAX may be such that 10^5 <= 10^NDEMAX < MAX_INTEGER : */
-  /*            when we compute (with integer arithmetic) the exponent */
+  /*            when we compute (with int arithmetic) the exponent */
   /*            the number of digits of the exponent is recorded in */
   /*            ndgexp and the test  ndgexp <= NDEMAX validate this */
   /*            calculus. */
@@ -175,7 +175,7 @@ int C2F(getval)(double *s, int *dotdet)
   ndg = 0;
   ndgrec = 0;
   if (! detdot) {
-    /*  1) got the integer part of the mantissa of the pattern
+    /*  1) got the int part of the mantissa of the pattern
       1-a) may be there is some 0 at the beginning */
     while(C2F(com).char1 == 0) {
       C2F(fortrangetch)();
@@ -243,7 +243,7 @@ int C2F(getval)(double *s, int *dotdet)
       C2F(fortrangetch)();
     }
     /*now form the exponent : the var ndgexp is here
-      to treat spurious integer overflow ... */
+      to treat spurious int overflow ... */
     while(abs(C2F(com).char1) <= 9) {
       expo = expo * 10 + C2F(com).char1;
       ++ndgexp;
@@ -260,7 +260,7 @@ int C2F(getval)(double *s, int *dotdet)
     return 0;
   }
   /*4-2/ ndgexp is to large => the exponent expo is perhaps badly 
-    computed (integer "overflow") or in all cases the 
+    computed (int "overflow") or in all cases the 
     exponent is too large (positive or negative) such that it result 
     (for s) in a overflow or underflow depending the exponent sign */
   if (ndgexp >= NDEMAX) {
@@ -325,8 +325,8 @@ int C2F(getval)(double *s, int *dotdet)
     return 0;
   }
   /*4-6/ The other easy case where we can compute s : 
-    if expo = EXPLIM + k  but [integer part]*10^k < max_int_coded_in_double 
-    then it is OK (retrieve k in the exponent and multiply the integer 
+    if expo = EXPLIM + k  but [int part]*10^k < max_int_coded_in_double 
+    then it is OK (retrieve k in the exponent and multiply the int 
     part by 10^k and do the same job as previus) */
   if (expo > EXPLIM && expo - EXPLIM + ndgrec <= DGLIM) {
     *s = 0.;
index 5537077..51fefce 100644 (file)
@@ -30,9 +30,9 @@ static char *dataStrings[] = {
  * get string associated with iopt 
  ******************************************/
 
-void C2F(inffic)(integer *iopt, char *name, integer *nc)
+void C2F(inffic)(int *iopt, char *name, int *nc)
 {
-  *nc=(integer)strlen(dataStrings[Max(Min(*iopt-1,MAXDATA),0)]);
+  *nc=(int) strlen(dataStrings[Max(Min(*iopt-1,MAXDATA),0)]);
   strcpy(name,dataStrings[Max(Min(*iopt-1,MAXDATA),0)]);
 }
 
@@ -40,9 +40,9 @@ void C2F(inffic)(integer *iopt, char *name, integer *nc)
  * just get string length 
  ******************************************/
 
-void C2F(infficl)(integer *iopt, integer *nc)
+void C2F(infficl)(int *iopt, int *nc)
 {
-  *nc=(integer)strlen(dataStrings[Max(Min(*iopt-1,MAXDATA),0)]);
+  *nc=(int) strlen(dataStrings[Max(Min(*iopt-1,MAXDATA),0)]);
 }
 
 
index 0228283..da89094 100644 (file)
@@ -42,7 +42,7 @@ int C2F(macr2tree) (char *fname,unsigned long fname_len)
   char *pgrm_tlist[] = {"program","name","outputs","inputs","statements","nblines"};
 
   int *stkdata = NULL; /* Pointeur to rhs arguments */
-  int *data = NULL; /* Macro integer vector (pointer to copy of rhs argument) */
+  int *data = NULL; /* Macro int vector (pointer to copy of rhs argument) */
 
   int il = 0,ils = 0,ile = 0,ilt = 0,codelength = 0;
 
@@ -1772,7 +1772,7 @@ static int CreateCommentTList(int *data,int *index2)
  *  Create on Scilab stack a list for recursive insertion or extraction
  *  First list item is a matrix which contains number of row/column indexes
  * @param data pointer to compiled macro code
- * @param index index of current integer in data
+ * @param index index of current int in data
  *
  * @return 0 if execution succeeds
  * @return not null if execution fails
index e10d91f..d651a85 100644 (file)
@@ -24,7 +24,7 @@
 /* testing Nan returns 1 if a Nan is found and 0 elsewhere */
 /* should be changed to use a libm isnan function when possible */
 
-integer C2F(isanan)(double *x)
+int C2F(isanan)(double *x)
 {
 #ifdef _ISANAN
   return(_isnan(*x)== 1);
index bd3b045..38c6888 100644 (file)
@@ -1548,7 +1548,7 @@ void C2F(parsecomment)()
   static int *Comp    = C2F(com).comp-1;
 
 
-  static integer l, ll, lkp, l0,c1=1;
+  static int l, ll, lkp, l0,c1=1;
   /* look for eol */
   l0=Lpt[4]-1;
   if( (Lin[l0]==slash) &&(Lin[l0-1]==slash)&(Lin[l0+1]==eol)) l0=l0+1;
index 66e0599..40c29fb 100644 (file)
@@ -17,7 +17,7 @@
 #include "BOOL.h"
 /*--------------------------------------------------------------------------*/
 #ifdef USE_DYNAMIC_STACK
-extern integer scimem64(integer *n, integer newsize, BOOL isglobal);
+extern int scimem64(int *n, int newsize, BOOL isglobal);
 extern void freemem64(BOOL isglobal);
 #else
 static char *the_p=NULL;
@@ -26,7 +26,7 @@ static char *the_gp=NULL;
 static char *the_gps=NULL;
 #endif
 /*--------------------------------------------------------------------------*/
-integer C2F(scimem)(integer *n, integer *ptr)
+int C2F(scimem)(int *n, int *ptr)
 {
 #ifdef USE_DYNAMIC_STACK
   return scimem64(ptr, *n, FALSE);
@@ -58,7 +58,7 @@ integer C2F(scimem)(integer *n, integer *ptr)
 #endif
 }
 /*--------------------------------------------------------------------------*/
-integer C2F(scigmem)(integer *n, integer *ptr)
+int C2F(scigmem)(int *n, int *ptr)
 {
 #ifdef USE_DYNAMIC_STACK
   return scimem64(ptr, *n, TRUE);
index f773ab3..0597569 100644 (file)
 #define SKIPSIZE 1024
 /*--------------------------------------------------------------------------*/
 static double *ref = NULL;
-static integer ssize = 0, gssize = 0, nextsize = 0;
+static int ssize = 0, gssize = 0, nextsize = 0;
 /*--------------------------------------------------------------------------*/
 extern void C2F(relocstack)(void *p, void *pi, void *ps, void *pc, void *pz,
                             int *n, int *ni, int *ns, int *nc, int *nz);
-extern void C2F(adjustgstacksize)(integer *mem, integer *offset, integer *l);
+extern void C2F(adjustgstacksize)(int *mem, int *offset, int *l);
 /*--------------------------------------------------------------------------*/
-static void setref(double *p1, integer allocsz)
+static void setref(double *p1, int allocsz)
 {
        int ni = (allocsz * sizeof(double))/sizeof(int);
        int ns = (allocsz * sizeof(double))/sizeof(float);
@@ -49,7 +49,7 @@ static void setref(double *p1, integer allocsz)
 
 static void movegstack()
 {
-       integer l, gptr;
+       int l, gptr;
        
        if(gssize) {
                /* Stack is like this:
@@ -62,10 +62,10 @@ static void movegstack()
        }
 }
 
-integer scimem64(integer *ptr, integer newsize, BOOL isglobal)
+int scimem64(int *ptr, int newsize, BOOL isglobal)
 {
        double *p1;
-       integer othersize, oldsize, allocsz;
+       int othersize, oldsize, allocsz;
        
        if(newsize++ < 0) /* Add 1 for alignment problems */
                return 0;
@@ -121,7 +121,7 @@ integer scimem64(integer *ptr, integer newsize, BOOL isglobal)
 
 void freemem64(BOOL isglobal) {
        double *p1;
-       integer allocsz;
+       int allocsz;
        
        if(nextsize == 0)
                return;
index 611739b..9ae9d0b 100644 (file)
 
 /* Table of constant values */
 
-static integer cx0 = 0;
-static integer cx1 = 1;
-static integer cx4 = 4;
+static int cx0 = 0;
+static int cx1 = 1;
+static int cx4 = 4;
 static int c_true = TRUE;
 static int c_false = FALSE;
 
 /* Static function declarations ... Function only used here */
-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) (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);
-static int C2F(crehmati)(char *fname,integer *stlw,integer *m,integer *n,integer *lr,int *flagx,unsigned long fname_len);
-static int C2F(crepointeri)(char *fname,integer *stlw,integer *lr,int *flagx,unsigned long fname_len);
-static int C2F(cresparsei)(char *fname,integer *stlw,integer *it,integer *m,integer *n,integer *nel,integer *mnel,integer *icol,integer *lr,integer *lc,unsigned long fname_len); 
-static int C2F(getsparsei)(char *fname,integer *topk,integer *spos,integer *lw,integer *it,integer *m,integer *n,integer *nel,integer *mnel,integer *icol,integer *lr,integer *lc,int *inlistx,integer *nellist,unsigned long fname_len);
-
-
-int C2F(getrsparse)(char *fname, integer *topk, integer *lw, integer *m, integer *n,  integer *nel, integer *mnel, integer *icol, integer *lr,unsigned long fname_len);
-int C2F(getlistsmat)(char *fname,integer *topk,integer *spos,integer *lnum,integer *m,integer *n,integer *ix,integer *j,integer *lr,integer *nlr,unsigned long fname_len);
-int cre_smat_from_str_i(char *fname, integer *lw, integer *m, integer *n, char *Str[],unsigned long fname_len, integer *rep);
-int cre_sparse_from_ptr_i(char *fname, integer *lw, integer *m, integer *n, SciSparse *S, unsigned long fname_len,  integer *rep);
-int crelist_G(integer *slw,integer *ilen,integer *lw,integer type);
+static int C2F(getwsmati)(char * fname, int *topk, int * spos,int * lw,int * m, int *n,int * ilr,int * ilrd ,int * inlistx,int* nel,unsigned long fname_len);
+static int C2F(gethmati)(char *fname,int *topk,int *spos,int *lw,int *m,int *n,int *lr,int *inlistx,int *nel,unsigned long fname_len);
+static int C2F(getsmati) (char *fname, int *topk, int *spos, int *lw, int *m, int *n, int *i__, int *j, int *lr, int *nlr, int *inlist__, int *nel, unsigned long fname_len);
+static int C2F(getpointeri) (char *fname, int *topk, int *spos, int *lw, int *lr, int *inlist__, int *nel, unsigned long fname_len);
+static int C2F(getimati)(char *fname, int *topk, int *spos, int *lw, int *it, int *m, int *n, int *lr, int *inlistx, int *nel, long unsigned int fname_len);
+static int C2F(getbmati) (char *fname, int *topk, int *spos, int *lw, int *m, int *n, int *lr, int *inlist__, int *nel, unsigned long fname_len);
+static int C2F(cremati)(char *fname,int *stlw,int *it,int *m,int *n,int *lr,int *lc,int *flagx,unsigned long fname_len);
+static int C2F(getmati)(char *fname,int *topk,int *spos,int *lw,int *it,int *m,int *n,int *lr,int *lc,int *inlistx,int *nel,unsigned long fname_len);
+static int C2F(crebmati)(char *fname,int *stlw,int *m,int *n,int *lr,int *flagx,unsigned long fname_len);
+static int C2F(crehmati)(char *fname,int *stlw,int *m,int *n,int *lr,int *flagx,unsigned long fname_len);
+static int C2F(crepointeri)(char *fname,int *stlw,int *lr,int *flagx,unsigned long fname_len);
+static int C2F(cresparsei)(char *fname,int *stlw,int *it,int *m,int *n,int *nel,int *mnel,int *icol,int *lr,int *lc,unsigned long fname_len); 
+static int C2F(getsparsei)(char *fname,int *topk,int *spos,int *lw,int *it,int *m,int *n,int *nel,int *mnel,int *icol,int *lr,int *lc,int *inlistx,int *nellist,unsigned long fname_len);
+
+
+int C2F(getrsparse)(char *fname, int *topk, int *lw, int *m, int *n,  int *nel, int *mnel, int *icol, int *lr,unsigned long fname_len);
+int C2F(getlistsmat)(char *fname,int *topk,int *spos,int *lnum,int *m,int *n,int *ix,int *j,int *lr,int *nlr,unsigned long fname_len);
+int cre_smat_from_str_i(char *fname, int *lw, int *m, int *n, char *Str[],unsigned long fname_len, int *rep);
+int cre_sparse_from_ptr_i(char *fname, int *lw, int *m, int *n, SciSparse *S, unsigned long fname_len,  int *rep);
+int crelist_G(int *slw,int *ilen,int *lw,int type);
 
 /**********************************************************************
  * MATRICES 
@@ -72,9 +72,9 @@ int crelist_G(integer *slw,integer *ilen,integer *lw,integer type);
  *       lc : stk(lc+i-1)= imag(a(i)) exists only if it==1 
  *------------------------------------------------------------------ */
 
-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(getlistmat)(char *fname,int *topk,int *spos,int *lnum,int *it,int *m,int *n,int *lr,int *lc,unsigned long fname_len)
 {
-  integer nv, ili;
+  int nv, ili;
 
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE )
     return FALSE;
@@ -99,7 +99,7 @@ int C2F(getlistmat)(char *fname,integer *topk,integer *spos,integer *lnum,intege
  *       lc : stk(lc+i-1)= imag(a(i)) exists only if it==1 
  *------------------------------------------------------------------- */
 
-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(getmat)(char *fname,int *topk,int *lw,int *it,int *m,int *n,int *lr,int *lc,unsigned long fname_len)
 {
   return C2F(getmati)(fname, topk, lw,Lstk(*lw), it, m, n, lr, lc, &c_false, &cx0, fname_len);
 }
@@ -108,9 +108,9 @@ int C2F(getmat)(char *fname,integer *topk,integer *lw,integer *it,integer *m,int
  * getrmat like getmat but we check for a real matrix 
  *------------------------------------------------------------------ */
 
-int C2F(getrmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(getrmat)(char *fname,int *topk,int *lw,int *m,int *n,int *lr,unsigned long fname_len)
 {
-  integer lc, it;
+  int lc, it;
 
   if ( C2F(getmat)(fname, topk, lw, &it, m, n, lr, &lc, fname_len) == FALSE )
     return FALSE;
@@ -125,9 +125,9 @@ int C2F(getrmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,int
  * getcmat like getmat but we check for a complex matrix
  *------------------------------------------------------------------ */
 
-int C2F(getcmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(getcmat)(char *fname,int *topk,int *lw,int *m,int *n,int *lr,unsigned long fname_len)
 {
-  integer lc, it;
+  int lc, it;
 
   if ( C2F(getmat)(fname, topk, lw, &it, m, n, lr, &lc, fname_len) == FALSE )
     return FALSE;
@@ -145,9 +145,9 @@ int C2F(getcmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,int
  *    and we check that matrix is of size (m,n) 
  *------------------------------------------------------------------ */
 
-int C2F(matsize)(char *fname,integer *topk,integer *lw,integer *m,integer *n,unsigned long fname_len)
+int C2F(matsize)(char *fname,int *topk,int *lw,int *m,int *n,unsigned long fname_len)
 {
-  integer m1, n1, lc, it, lr;
+  int m1, n1, lc, it, lr;
   
   if (  C2F(getmat)(fname, topk, lw, &it, &m1, &n1, &lr, &lc, fname_len)  == FALSE)
     return FALSE;
@@ -162,9 +162,9 @@ int C2F(matsize)(char *fname,integer *topk,integer *lw,integer *m,integer *n,uns
  * For internal use 
  *------------------------------------------------------------------- */
 
-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(getmati)(char *fname,int *topk,int *spos,int *lw,int *it,int *m,int *n,int *lr,int *lc,int *inlistx,int *nel,unsigned long fname_len)
 {
-  integer il;
+  int il;
   il = iadr(*lw);
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   if (*istk(il ) != 1) {
@@ -195,9 +195,9 @@ static int C2F(getmati)(char *fname,integer *topk,integer *spos,integer *lw,inte
  *      lw est aussi mis a jour 
  *---------------------------------------------------------- */
 
-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(listcremat)(char *fname,int *lw,int *numi,int *stlw,int *it,int *m,int *n,int *lrs,int *lcs,unsigned long fname_len)
 {
-  integer ix1,il ;
+  int ix1,il ;
     
   if (C2F(cremati)(fname, stlw, it, m, n, lrs, lcs, &c_true, fname_len)==FALSE)
     return FALSE ;
@@ -227,7 +227,7 @@ int C2F(listcremat)(char *fname,integer *lw,integer *numi,integer *stlw,integer
  *     but stk(lr+..) and stk(lc+..) are unchanged 
  *---------------------------------------------------------- */
 
-int C2F(cremat)(char *fname,integer *lw,integer *it,integer *m,integer *n,integer *lr,integer *lc,unsigned long fname_len)
+int C2F(cremat)(char *fname,int *lw,int *it,int *m,int *n,int *lr,int *lc,unsigned long fname_len)
 {
 
   if (*lw + 1 >= Bot) {
@@ -245,7 +245,7 @@ int C2F(cremat)(char *fname,integer *lw,integer *it,integer *m,integer *n,intege
  * no data is stored 
  *-------------------------------------------------*/
 
-int C2F(fakecremat)(integer *lw,integer *it,integer *m,integer *n,integer *lr,integer *lc)
+int C2F(fakecremat)(int *lw,int *it,int *m,int *n,int *lr,int *lc)
 {
   if (*lw + 1 >= Bot) return FALSE;
   if (C2F(cremati)("cremat", Lstk(*lw ), it, m, n, lr, lc, &c_false, 6L) == FALSE) 
@@ -258,10 +258,10 @@ int C2F(fakecremat)(integer *lw,integer *it,integer *m,integer *n,integer *lr,in
 /*--------------------------------------------------------- 
  * internal function used by cremat and listcremat 
  *---------------------------------------------------------- */
-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(cremati)(char *fname,int *stlw,int *it,int *m,int *n,int *lr,int *lc,int *flagx,unsigned long fname_len)
 {
-  integer ix1;
-  integer il;
+  int ix1;
+  int il;
   double size = ((double) *m) * ((double) *n) * ((double) (*it + 1));
   il = iadr(*stlw);
   ix1 = il + 4;
@@ -290,13 +290,13 @@ static int C2F(cremati)(char *fname,integer *stlw,integer *it,integer *m,integer
 *     de nom id 
 *     en lw : sans verification de place 
 *---------------------------------------------------------- */
-int C2F(crematvar)(integer *id, integer *lw, integer *it, integer *m, integer *n, double *rtab, double *itab)
+int C2F(crematvar)(int *id, int *lw, int *it, int *m, int *n, double *rtab, double *itab)
 {
 
        /* Local variables */
-       integer i__1;
-       static integer lc, il, lr;
-       static integer c__1 = 1;
+       int i__1;
+       static int lc, il, lr;
+       static int c__1 = 1;
 
        /* Parameter adjustments */
        --itab;
@@ -332,12 +332,12 @@ int C2F(crematvar)(integer *id, integer *lw, integer *it, integer *m, integer *n
 /*--------------------------------------------------------- 
 *     crebmat without check and call to putid 
 *---------------------------------------------------------- */
-int C2F(crebmatvar)(integer *id, integer *lw, integer *m, integer *n, integer *val)
+int C2F(crebmatvar)(int *id, int *lw, int *m, int *n, int *val)
 {
        /* Local variables */
-       static integer il, lr;
-       integer i__1;
-       static integer c__1 = 1;
+       static int il, lr;
+       int i__1;
+       static int c__1 = 1;
 
        /* Parameter adjustments */
        --val;
@@ -358,11 +358,11 @@ int C2F(crebmatvar)(integer *id, integer *lw, integer *m, integer *n, integer *v
 /*--------------------------------------------------------- 
 *     cresmatvar without check and call to putid 
 *---------------------------------------------------------- */
-int C2F(cresmatvar)(integer *id, integer *lw, char *str, integer *lstr, unsigned long str_len)
+int C2F(cresmatvar)(int *id, int *lw, char *str, int *lstr, unsigned long str_len)
 {
-       static integer il, mn, lr1, ix1, ilp;
-       static integer ilast;
-       static integer c__0 = 0;
+       static int il, mn, lr1, ix1, ilp;
+       static int ilast;
+       static int c__0 = 0;
 
        /* Parameter adjustments */
        --id;
@@ -411,9 +411,9 @@ int C2F(cresmatvar)(integer *id, integer *lw, char *str, integer *lstr, unsigned
  *                             according to it value 
  *------------------------------------------------------------------ */
 
-int C2F(getlistimat)(char *fname,integer *topk,integer *spos,integer *lnum,integer *it,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(getlistimat)(char *fname,int *topk,int *spos,int *lnum,int *it,int *m,int *n,int *lr,unsigned long fname_len)
 {
-  integer nv, ili;
+  int nv, ili;
 
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
     return FALSE;
@@ -437,7 +437,7 @@ int C2F(getlistimat)(char *fname,integer *topk,integer *spos,integer *lnum,integ
  *       lr : istk(lr+i-1)= a(i)
  *------------------------------------------------------------------- */
 
-int C2F(getimat)(char *fname,integer *topk,integer *lw,integer *it,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(getimat)(char *fname,int *topk,int *lw,int *it,int *m,int *n,int *lr,unsigned long fname_len)
 {
   return C2F(getimati)(fname, topk, lw,Lstk(*lw),it,m, n, lr,&c_false, &cx0, fname_len);
 }
@@ -446,9 +446,9 @@ int C2F(getimat)(char *fname,integer *topk,integer *lw,integer *it,integer *m,in
  * For internal use 
  *------------------------------------------------------------------- */
 
-static int C2F(getimati)(char *fname,integer *topk,integer *spos,integer *lw,integer *it,integer *m,integer *n,integer *lr,int *inlistx,integer *nel,unsigned long fname_len)
+static int C2F(getimati)(char *fname,int *topk,int *spos,int *lw,int *it,int *m,int *n,int *lr,int *inlistx,int *nel,unsigned long fname_len)
 {
-  integer il;
+  int il;
   il = iadr(*lw);
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   if (*istk(il ) != 8 ) {
@@ -476,9 +476,9 @@ static int C2F(getimati)(char *fname,integer *topk,integer *spos,integer *lw,int
  *      lw est aussi mis a jour 
  *---------------------------------------------------------- */
 
-int C2F(listcreimat)(char *fname,integer *lw,integer *numi,integer *stlw,integer *it,integer *m,integer *n,integer *lrs,unsigned long fname_len)
+int C2F(listcreimat)(char *fname,int *lw,int *numi,int *stlw,int *it,int *m,int *n,int *lrs,unsigned long fname_len)
 {
-  integer ix1,il ;
+  int ix1,il ;
     
   if (C2F(creimati)(fname, stlw,it, m, n, lrs, &c_true, fname_len)==FALSE)
     return FALSE ;
@@ -506,7 +506,7 @@ int C2F(listcreimat)(char *fname,integer *lw,integer *numi,integer *stlw,integer
  *     but stk(lr+..) are unchanged 
  *---------------------------------------------------------- */
 
-int C2F(creimat)(char *fname,integer *lw,integer *it,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(creimat)(char *fname,int *lw,int *it,int *m,int *n,int *lr,unsigned long fname_len)
 {
 
   if (*lw + 1 >= Bot) {
@@ -523,10 +523,10 @@ int C2F(creimat)(char *fname,integer *lw,integer *it,integer *m,integer *n,integ
  * internal function used by cremat and listcremat 
  *---------------------------------------------------------- */
 
-int C2F(creimati)(char *fname,integer *stlw,integer *it,integer *m,integer *n,integer *lr,int *flagx,unsigned long fname_len)
+int C2F(creimati)(char *fname,int *stlw,int *it,int *m,int *n,int *lr,int *flagx,unsigned long fname_len)
 {
-  integer ix1;
-  integer il;
+  int ix1;
+  int il;
   double size =  memused(*it,((double)*m)*((double) *n));
   il = iadr(*stlw);
   ix1 = il + 4;
@@ -559,10 +559,10 @@ int C2F(creimati)(char *fname,integer *stlw,integer *it,integer *m,integer *n,in
  *    extracts matrix information(m,n,lr) 
  *------------------------------------------------------------------ */
 
-int C2F(getlistbmat)(char *fname,integer *topk,integer *spos,integer *lnum,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(getlistbmat)(char *fname,int *topk,int *spos,int *lnum,int *m,int *n,int *lr,unsigned long fname_len)
 {
-  integer nv;
-  integer ili;
+  int nv;
+  int ili;
 
   if (C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len)== FALSE)
     return FALSE ;
@@ -586,7 +586,7 @@ int C2F(getlistbmat)(char *fname,integer *topk,integer *spos,integer *lnum,integ
  *       lr : istk(lr+i-1)= a(i)
  *------------------------------------------------------------------- */
 
-int C2F(getbmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(getbmat)(char *fname,int *topk,int *lw,int *m,int *n,int *lr,unsigned long fname_len)
 {
   return C2F(getbmati)(fname, topk, lw, Lstk(*lw ), m, n, lr, &c_false, &cx0, fname_len);
 }
@@ -597,9 +597,9 @@ int C2F(getbmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,int
  *    and we check that matrix is of size (m,n) 
  *------------------------------------------------------------------ */
 
-int C2F(matbsize)(char *fname,integer *topk,integer *lw,integer *m,integer *n,unsigned long fname_len)
+int C2F(matbsize)(char *fname,int *topk,int *lw,int *m,int *n,unsigned long fname_len)
 {
-  integer m1, n1, lr;
+  int m1, n1, lr;
   if ( C2F(getbmat)(fname, topk, lw, &m1, &n1, &lr, fname_len) == FALSE)
     return FALSE;
   if (*m != m1 || *n != n1) {
@@ -613,9 +613,9 @@ int C2F(matbsize)(char *fname,integer *topk,integer *lw,integer *m,integer *n,un
  * For internal use 
  *------------------------------------------------------------------- */
 
-static int C2F(getbmati)(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(getbmati)(char *fname,int *topk,int *spos,int *lw,int *m,int *n,int *lr,int *inlistx,int *nel,unsigned long fname_len)
 {
-  integer il;
+  int il;
 
   il = iadr(*lw);
   if (*istk(il ) < 0)    il = iadr(*istk(il +1));
@@ -644,10 +644,10 @@ static int C2F(getbmati)(char *fname,integer *topk,integer *spos,integer *lw,int
  *      lw est aussi mis a jour 
  *---------------------------------------------------------- */
 
-int C2F(listcrebmat)(char *fname,integer *lw,integer *numi,integer *stlw,integer *m,integer *n,integer *lrs,unsigned long fname_len)
+int C2F(listcrebmat)(char *fname,int *lw,int *numi,int *stlw,int *m,int *n,int *lrs,unsigned long fname_len)
 {
-  integer ix1;
-  integer il;
+  int ix1;
+  int il;
 
   if ( C2F(crebmati)(fname, stlw, m, n, lrs, &c_true, fname_len)== FALSE) 
     return FALSE;
@@ -676,9 +676,9 @@ int C2F(listcrebmat)(char *fname,integer *lw,integer *numi,integer *stlw,integer
  *     but istk(lr+..) is unchanged 
  *---------------------------------------------------------- */
 
-int C2F(crebmat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(crebmat)(char *fname,int *lw,int *m,int *n,int *lr,unsigned long fname_len)
 {
-  integer ix1;
+  int ix1;
   
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
@@ -698,7 +698,7 @@ int C2F(crebmat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsig
  * no data is stored 
  *-------------------------------------------------*/
 
-int C2F(fakecrebmat)(integer *lw,integer *m,integer *n,integer *lr) 
+int C2F(fakecrebmat)(int *lw,int *m,int *n,int *lr) 
 {
   if (*lw + 1 >= Bot) {
        Scierror(18,_("%s: Too many names.\n"),"fakecrebmat");
@@ -714,10 +714,10 @@ int C2F(fakecrebmat)(integer *lw,integer *m,integer *n,integer *lr)
  * internal function used by crebmat and listcrebmat 
  *---------------------------------------------------------- */
 
-static int C2F(crebmati)(char *fname,integer *stlw,integer *m,integer *n,integer *lr,int *flagx,unsigned long fname_len)
+static int C2F(crebmati)(char *fname,int *stlw,int *m,int *n,int *lr,int *flagx,unsigned long fname_len)
 {
   double size = ((double) *m) * ((double) *n) ;
-  integer il;
+  int il;
   il = iadr(*stlw);
   Err = il + 3  - iadr(*Lstk(Bot ));
   if (Err > -size ) {
@@ -753,10 +753,10 @@ static int C2F(crebmati)(char *fname,integer *stlw,integer *m,integer *n,integer
  *    extracts matrix information(it,m,n,nel,mnel,icol,lr,lc) 
  *------------------------------------------------------------------ */
 
-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(getlistsparse)(char *fname,int *topk,int *spos,int *lnum,int *it,int *m,int *n,int *nel,int *mnel,int *icol,int *lr,int *lc,unsigned long fname_len)
 {
-  integer  nv;
-  integer ili;
+  int  nv;
+  int ili;
 
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE) 
     return FALSE ;
@@ -781,7 +781,7 @@ int C2F(getlistsparse)(char *fname,integer *topk,integer *spos,integer *lnum,int
  *       [it,m,n,nel,mnel,icol,lr,lc] matrix dimensions 
  *------------------------------------------------------------------- */
 
-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(getsparse)(char *fname,int *topk,int *lw,int *it,int *m,int *n,int *nel,int *mnel,int *icol,int *lr,int *lc,unsigned long fname_len)
 {
   return C2F(getsparsei)(fname, topk, lw, Lstk(*lw ), it, m, n, nel, mnel, icol, lr, lc, &c_false, &cx0, fname_len);
 }
@@ -790,9 +790,9 @@ int C2F(getsparse)(char *fname,integer *topk,integer *lw,integer *it,integer *m,
  * getrsparse : lie getsparse but we check for a real matrix  
  *------------------------------------------------------------------- */
 
-int C2F(getrsparse)(char *fname, integer *topk, integer *lw, integer *m, integer *n,  integer *nel, integer *mnel, integer *icol, integer *lr,unsigned long fname_len)
+int C2F(getrsparse)(char *fname, int *topk, int *lw, int *m, int *n,  int *nel, int *mnel, int *icol, int *lr,unsigned long fname_len)
 {
-  integer lc, it;  
+  int lc, it;  
   if ( C2F(getsparse)(fname, topk, lw, &it, m, n, nel, mnel, icol, lr, &lc, fname_len) == FALSE ) 
     return FALSE;
 
@@ -807,9 +807,9 @@ int C2F(getrsparse)(char *fname, integer *topk, integer *lw, integer *m, integer
  * internal function for getmat and listgetmat 
  *--------------------------------------- */
 
-static int C2F(getsparsei)(char *fname,integer *topk,integer *spos,integer *lw,integer *it,integer *m,integer *n,integer *nel,integer *mnel,integer *icol,integer *lr,integer *lc,int *inlistx,integer *nellist,unsigned long fname_len)
+static int C2F(getsparsei)(char *fname,int *topk,int *spos,int *lw,int *it,int *m,int *n,int *nel,int *mnel,int *icol,int *lr,int *lc,int *inlistx,int *nellist,unsigned long fname_len)
 {
-  integer il;
+  int il;
 
   il = iadr(*lw);
   if (*istk(il ) < 0)   il = iadr(*istk(il +1));
@@ -843,9 +843,9 @@ static int C2F(getsparsei)(char *fname,integer *topk,integer *spos,integer *lw,i
  *---------------------------------------------------------- */
 
 
-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(listcresparse)(char *fname,int *lw,int *numi,int *stlw,int *it,int *m,int *n,int *nel,int *mnel,int *icol,int *lrs,int *lcs,unsigned long fname_len)
 {
-  integer ix1,il;
+  int ix1,il;
 
   if (C2F(cresparsei)(fname, stlw, it, m, n, nel, mnel, icol, lrs, lcs, fname_len)== FALSE) 
     return FALSE ;
@@ -876,7 +876,7 @@ int C2F(listcresparse)(char *fname,integer *lw,integer *numi,integer *stlw,integ
  *     but data is unchanged 
  *---------------------------------------------------------- */
 
-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(cresparse)(char *fname,int *lw,int *it,int *m,int *n,int *nel,int *mnel,int *icol,int *lr,int *lc,unsigned long fname_len)
 {
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
@@ -895,9 +895,9 @@ int C2F(cresparse)(char *fname,integer *lw,integer *it,integer *m,integer *n,int
  * internal function used by cremat and listcremat 
  *---------------------------------------------------------- */
 
-static int C2F(cresparsei)(char *fname,integer *stlw,integer *it,integer *m,integer *n,integer *nel,integer *mnel,integer *icol,integer *lr,integer *lc,unsigned long fname_len)
+static int C2F(cresparsei)(char *fname,int *stlw,int *it,int *m,int *n,int *nel,int *mnel,int *icol,int *lr,int *lc,unsigned long fname_len)
 {
-  integer il,ix1;
+  int il,ix1;
 
   il = iadr(*stlw);
   ix1 = il + 5 + *m + *nel;
@@ -937,7 +937,7 @@ static int C2F(cresparsei)(char *fname,integer *stlw,integer *it,integer *m,inte
  *    extracts vector information(it,m,n,lr,lc) 
  *------------------------------------------------------------------ */
 
-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(getlistvect)(char *fname,int *topk,int *spos,int *lnum,int *it,int *m,int *n,int *lr,int *lc,unsigned long fname_len)
 {
   if (C2F(getlistmat)(fname, topk, spos, lnum, it, m, n, lr, lc, fname_len)== FALSE) 
     return FALSE;
@@ -961,7 +961,7 @@ int C2F(getlistvect)(char *fname,integer *topk,integer *spos,integer *lnum,integ
  *       lc : stk(lc+i-1)= imag(a(i)) exists only if it==1 
  *------------------------------------------------------------------- */
 
-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(getvect)(char *fname,int *topk,int *lw,int *it,int *m,int *n,int *lr,int *lc,unsigned long fname_len)
 {
   if ( C2F(getmat)(fname, topk, lw, it, m, n, lr, lc, fname_len) == FALSE) 
     return FALSE;
@@ -978,7 +978,7 @@ int C2F(getvect)(char *fname,integer *topk,integer *lw,integer *it,integer *m,in
  * getrvect : like getvect but we expect a real vector 
  *------------------------------------------------------------------ */
 
-int C2F(getrvect)(char *fname,integer *topk,integer *lw,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(getrvect)(char *fname,int *topk,int *lw,int *m,int *n,int *lr,unsigned long fname_len)
 {
   if ( C2F(getrmat)(fname, topk, lw, m, n, lr, fname_len)  == FALSE)
     return FALSE;
@@ -996,9 +996,9 @@ int C2F(getrvect)(char *fname,integer *topk,integer *lw,integer *m,integer *n,in
  *    and we check that vector is of size (n) 
  *------------------------------------------------------------------ */
 
-int C2F(vectsize)(char *fname,integer *topk,integer *lw,integer *n,unsigned long fname_len)
+int C2F(vectsize)(char *fname,int *topk,int *lw,int *n,unsigned long fname_len)
 {
-  integer m1, n1, lc, lr, it1;
+  int m1, n1, lc, lr, it1;
 
   if ( C2F(getvect)(fname, topk, lw, &it1, &m1, &n1, &lr, &lc, fname_len) == FALSE) 
     return FALSE;
@@ -1018,11 +1018,11 @@ int C2F(vectsize)(char *fname,integer *topk,integer *lw,integer *n,unsigned long
  *     getlistscalar : recupere un scalaire 
  *------------------------------------------------------------------ */
 
-int C2F(getlistscalar)(char *fname,integer *topk,integer *spos,integer *lnum,integer *lr,unsigned long fname_len)
+int C2F(getlistscalar)(char *fname,int *topk,int *spos,int *lnum,int *lr,unsigned long fname_len)
 {
-  integer m, n;
-  integer lc, it, nv;
-  integer ili;
+  int m, n;
+  int lc, it, nv;
+  int ili;
   
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
     return FALSE;
@@ -1054,9 +1054,9 @@ int C2F(getlistscalar)(char *fname,integer *topk,integer *spos,integer *lnum,int
  *       lr : stk(lr)= scalar_value 
  *------------------------------------------------------------------ */
 
-int C2F(getscalar)(char *fname,integer *topk,integer *lw,integer *lr,unsigned long fname_len)
+int C2F(getscalar)(char *fname,int *topk,int *lw,int *lr,unsigned long fname_len)
 {
-  integer m, n;
+  int m, n;
 
   if ( C2F(getrmat)(fname, topk, lw, &m, &n, lr, fname_len) == FALSE) 
     return  FALSE;
@@ -1089,9 +1089,9 @@ int C2F(getscalar)(char *fname,integer *topk,integer *lw,integer *lr,unsigned lo
  *       nlr : length of (ix,j)-th string 
  *------------------------------------------------------------------ */
 
-int C2F(getlistsmat)(char *fname,integer *topk,integer *spos,integer *lnum,integer *m,integer *n,integer *ix,integer *j,integer *lr,integer *nlr,unsigned long fname_len)
+int C2F(getlistsmat)(char *fname,int *topk,int *spos,int *lnum,int *m,int *n,int *ix,int *j,int *lr,int *nlr,unsigned long fname_len)
 {
-  integer nv, ili;
+  int nv, ili;
 
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
     return FALSE;
@@ -1119,7 +1119,7 @@ int C2F(getlistsmat)(char *fname,integer *topk,integer *spos,integer *lnum,integ
  *        then other elements can be accessed through getsimat 
  *------------------------------------------------------------------- */
 
-int C2F(getsmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,integer *ix,integer *j,integer *lr,integer *nlr,unsigned long fname_len)
+int C2F(getsmat)(char *fname,int *topk,int *lw,int *m,int *n,int *ix,int *j,int *lr,int *nlr,unsigned long fname_len)
 {
   return C2F(getsmati)(fname, topk, lw, Lstk(*lw), m, n, ix,j , lr ,nlr,  &c_false, &cx0, fname_len);
 }
@@ -1137,7 +1137,7 @@ int C2F(getsmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,int
  * Note : like getsmat but do not check that object is a string matrix 
  *------------------------------------------------------------------- */
 
-int C2F(getsimat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,integer *ix,integer *j,integer *lr,integer *nlr,unsigned long fname_len)
+int C2F(getsimat)(char *fname,int *topk,int *lw,int *m,int *n,int *ix,int *j,int *lr,int *nlr,unsigned long fname_len)
 {
   return C2F(getsimati)(fname, topk, lw, Lstk(*lw), m, n, ix,j , lr ,nlr,  &c_false, &cx0, fname_len);
 }
@@ -1151,9 +1151,9 @@ int C2F(getsimat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,in
  *    which can be converted to C with ScilabMStr2CM (see stack2.c)
  *------------------------------------------------------------------ */
 
-int C2F(getlistwsmat)(char *fname,integer *topk,integer *spos,integer *lnum,integer *m,integer *n,integer *ilr,integer *ilrd,unsigned long fname_len)
+int C2F(getlistwsmat)(char *fname,int *topk,int *spos,int *lnum,int *m,int *n,int *ilr,int *ilrd,unsigned long fname_len)
 {
-  integer nv, ili;
+  int nv, ili;
 
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
     return FALSE;
@@ -1172,7 +1172,7 @@ int C2F(getlistwsmat)(char *fname,integer *topk,integer *spos,integer *lnum,inte
  *    which can be converted to C with ScilabMStr2CM (see stack2.c)
  *--------------------------------------------------------------------------*/
 
-int C2F(getwsmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,integer *ilr,integer *ilrd,unsigned long fname_len)
+int C2F(getwsmat)(char *fname,int *topk,int *lw,int *m,int *n,int *ilr,int *ilrd,unsigned long fname_len)
 {
   return C2F(getwsmati)(fname, topk, lw,Lstk(*lw), m, n, ilr, ilrd, &c_false, &cx0, fname_len);
 }
@@ -1181,9 +1181,9 @@ int C2F(getwsmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,in
  * For internal use 
  *------------------------------------------------------------------- */
 
-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(getwsmati)(char *fname,int *topk,int *spos,int *lw,int *m,int *n,int *ilr,int *ilrd ,int *inlistx,int *nel,unsigned long fname_len)
 {
-    integer il;
+    int il;
     il = iadr(*lw);
     if (*istk(il ) < 0) il = iadr(*istk(il +1));
     if (*istk(il ) != sci_strings) {
@@ -1205,9 +1205,9 @@ static int C2F(getwsmati)(char *fname,integer *topk,integer *spos,integer *lw,in
  * For internal use 
  *------------------------------------------------------------------- */
 
-static int C2F(getsmati)(char *fname,integer *topk,integer *spos,integer *lw,integer *m,integer *n,integer *ix,integer *j,integer *lr,integer *nlr,int *inlistx,int *nel,unsigned long fname_len)
+static int C2F(getsmati)(char *fname,int *topk,int *spos,int *lw,int *m,int *n,int *ix,int *j,int *lr,int *nlr,int *inlistx,int *nel,unsigned long fname_len)
 {
-  integer il = iadr(*lw);
+  int il = iadr(*lw);
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   if (*istk(il ) != sci_strings ) {
          if (*inlistx) {
@@ -1221,9 +1221,9 @@ static int C2F(getsmati)(char *fname,integer *topk,integer *spos,integer *lw,int
   return TRUE;
 } 
 
-int C2F(getsimati)(char *fname,integer *topk,integer *spos,integer *lw,integer *m,integer *n,integer *ix,integer *j ,integer *lr ,integer *nlr,int *inlistx,integer *nel,unsigned long fname_len)
+int C2F(getsimati)(char *fname,int *topk,int *spos,int *lw,int *m,int *n,int *ix,int *j ,int *lr ,int *nlr,int *inlistx,int *nel,unsigned long fname_len)
 {
-  integer k, il =  iadr(*lw);
+  int k, il =  iadr(*lw);
   if (*istk(il ) < 0) il = iadr(*istk(il +1)); 
   *m = *istk(il + 1);
   *n = *istk(il + 2);
@@ -1247,10 +1247,10 @@ int C2F(getsimati)(char *fname,integer *topk,integer *spos,integer *lw,integer *
  *             de la matrice 
  *---------------------------------------------------------- */
 
-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(listcresmat)(char *fname,int *lw,int *numi,int *stlw,int *m,int *n,int *nchar,int *job,int *ilrs,unsigned long fname_len)
 {
-  integer ix1;
-  integer il, sz;
+  int ix1;
+  int il, sz;
 
   if ( C2F(cresmati)(fname, stlw, m, n, nchar, job, ilrs, &sz, fname_len) == FALSE )
     return FALSE;
@@ -1271,10 +1271,10 @@ int C2F(listcresmat)(char *fname,integer *lw,integer *numi,integer *stlw,integer
  * Note that each string can be filled with getsimat 
  *---------------------------------------------------------- */
 
-int C2F(cresmat)(char *fname,integer *lw,integer *m,integer *n,integer *nchar,unsigned long fname_len)
+int C2F(cresmat)(char *fname,int *lw,int *m,int *n,int *nchar,unsigned long fname_len)
 {
   int job = 1;
-  integer ix1, ilast, sz,lr ;
+  int ix1, ilast, sz,lr ;
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
     return  FALSE;
@@ -1297,10 +1297,10 @@ int C2F(cresmat)(char *fname,integer *lw,integer *m,integer *n,integer *nchar,un
  *  Note that each string can be filled with getsimat 
  *------------------------------------------------------------------ */
 
-int C2F(cresmat1)(char *fname,integer *lw,integer *m,integer *nchar,unsigned long fname_len)
+int C2F(cresmat1)(char *fname,int *lw,int *m,int *nchar,unsigned long fname_len)
 {
   int job = 2, n=1;
-  integer ix1, ilast, sz,lr ;
+  int ix1, ilast, sz,lr ;
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
     return  FALSE;
@@ -1321,10 +1321,10 @@ int C2F(cresmat1)(char *fname,integer *lw,integer *m,integer *nchar,unsigned lon
  *          allocated for string code 
  *------------------------------------------------------------------ */
 
-int C2F(cresmat2)(char *fname,integer *lw,integer *nchar,integer *lr,unsigned long fname_len)
+int C2F(cresmat2)(char *fname,int *lw,int *nchar,int *lr,unsigned long fname_len)
 {
   int job = 1, n=1,m=1;
-  integer ix1, ilast, sz ;
+  int ix1, ilast, sz ;
   if (*lw + 1 >= Bot) {
    Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
     return  FALSE;
@@ -1350,10 +1350,10 @@ int C2F(cresmat2)(char *fname,integer *lw,integer *nchar,integer *lr,unsigned lo
  *     - lw  : stack position for string creation 
  *------------------------------------------------------------------ */
 
-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(cresmat3)(char *fname,int *lw,int *m,int *n,int *nchar,char *buffer,unsigned long fname_len,unsigned long buffer_len)
 {
   int job = 2;
-  integer ix1, ilast, sz,lr,lr1 ;
+  int ix1, ilast, sz,lr,lr1 ;
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
     return  FALSE;
@@ -1376,9 +1376,9 @@ int C2F(cresmat3)(char *fname,integer *lw,integer *m,integer *n,integer *nchar,c
  *     istk(lr) --- beginning of chains 
  *------------------------------------------------------------------ */
 
-int C2F(cresmat4)(char *fname,integer *lw,integer *m,integer *nchar,integer *lr,unsigned long fname_len)
+int C2F(cresmat4)(char *fname,int *lw,int *m,int *nchar,int *lr,unsigned long fname_len)
 {
-  integer ix1,ix, ilast, il, nnchar, kij, ilp;
+  int ix1,ix, ilast, il, nnchar, kij, ilp;
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
     return FALSE;
@@ -1418,9 +1418,9 @@ int C2F(cresmat4)(char *fname,integer *lw,integer *m,integer *nchar,integer *lr,
  *   case 3: ? 
  *---------------------------------------------------------- */
 
-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(cresmati)(char *fname,int *stlw,int *m,int *n,int *nchar,int *job,int *lr,int *sz,unsigned long fname_len)
 {
-  integer ix1, ix, il, kij, ilp, mn= (*m)*(*n);
+  int ix1, ix, il, kij, ilp, mn= (*m)*(*n);
   il = iadr(*stlw);
  
  /* compute the size of chains */ 
@@ -1480,13 +1480,13 @@ int C2F(cresmati)(char *fname,integer *stlw,integer *m,integer *n,integer *nchar
  *     - lw  : where to create the matrix on the stack 
  *------------------------------------------------------------------ */
 
-int cre_smat_from_str_i(char *fname, integer *lw, integer *m, integer *n, char *Str[],unsigned long fname_len, integer *rep)
+int cre_smat_from_str_i(char *fname, int *lw, int *m, int *n, char *Str[],unsigned long fname_len, int *rep)
 {
-  integer ix1, ix, ilast, il, nnchar, lr1, kij, ilp;
-  integer *pos;
+  int ix1, ix, ilast, il, nnchar, lr1, kij, ilp;
+  int *pos;
 
   nnchar = 0;
-  if (Str) for (ix = 0 ; ix < (*m)*(*n) ; ++ix) nnchar += (integer)strlen(Str[ix]);
+  if (Str) for (ix = 0 ; ix < (*m)*(*n) ; ++ix) nnchar += (int) strlen(Str[ix]);
   else nnchar = 0;
   
   il = iadr(*lw);
@@ -1535,7 +1535,7 @@ int cre_smat_from_str_i(char *fname, integer *lw, integer *m, integer *n, char *
 } 
 
 
-int cre_smat_from_str(char *fname,integer *lw,integer *m,integer *n,char *Str[],unsigned long fname_len)
+int cre_smat_from_str(char *fname,int *lw,int *m,int *n,char *Str[],unsigned long fname_len)
 {
   int rep;
   
@@ -1551,7 +1551,7 @@ int cre_smat_from_str(char *fname,integer *lw,integer *m,integer *n,char *Str[],
 } 
 
 
-int cre_listsmat_from_str(char *fname,integer *lw,integer *numi,integer *stlw,integer *m,integer *n,char *Str[],unsigned long fname_len )
+int cre_listsmat_from_str(char *fname,int *lw,int *numi,int *stlw,int *m,int *n,char *Str[],unsigned long fname_len )
 {
   int rep,ix1,il;
   if ( cre_smat_from_str_i(fname, stlw, m, n, Str, fname_len,&rep)== FALSE )
@@ -1574,12 +1574,12 @@ int cre_listsmat_from_str(char *fname,integer *lw,integer *numi,integer *stlw,in
  *     - lw  : where to create the matrix on the stack 
  *------------------------------------------------------------------ */
 
-int cre_sparse_from_ptr_i(char *fname, integer *lw, integer *m, integer *n, SciSparse *S, unsigned long fname_len,  integer *rep)
+int cre_sparse_from_ptr_i(char *fname, int *lw, int *m, int *n, SciSparse *S, unsigned long fname_len,  int *rep)
 {
   double size = (double) ( (S->nel)*(S->it + 1) );
 
-  integer ix1,  il, lr, lc;
-  integer cx1l=1;
+  int ix1,  il, lr, lc;
+  int cx1l=1;
   il = iadr(*lw);
 
   ix1 = il + 5 + *m + S->nel;
@@ -1613,7 +1613,7 @@ int cre_sparse_from_ptr_i(char *fname, integer *lw, integer *m, integer *n, SciS
 } 
 
 
-int cre_sparse_from_ptr(char *fname,integer *lw,integer *m,integer *n,SciSparse *Str,unsigned long fname_len )
+int cre_sparse_from_ptr(char *fname,int *lw,int *m,int *n,SciSparse *Str,unsigned long fname_len )
 {
   int rep;
   if (*lw + 1 >= Bot) {
@@ -1628,7 +1628,7 @@ int cre_sparse_from_ptr(char *fname,integer *lw,integer *m,integer *n,SciSparse
 } 
 
 
-int cre_listsparse_from_ptr(char *fname,integer *lw,integer *numi,integer *stlw,integer *m,integer *n,SciSparse *Str,unsigned long fname_len )
+int cre_listsparse_from_ptr(char *fname,int *lw,int *numi,int *stlw,int *m,int *n,SciSparse *Str,unsigned long fname_len )
 {
   int rep,ix1,il;
   if ( cre_sparse_from_ptr_i(fname, stlw, m, n, Str, fname_len,&rep)== FALSE )
@@ -1648,9 +1648,9 @@ int cre_listsparse_from_ptr(char *fname,integer *lw,integer *numi,integer *stlw,
  * listcrestring 
  *------------------------------------------------------------------ */
 
-int C2F(listcrestring)(char *fname,integer *lw,integer *numi,integer *stlw,integer *nch,integer *ilrs,unsigned long fname_len)
+int C2F(listcrestring)(char *fname,int *lw,int *numi,int *stlw,int *nch,int *ilrs,unsigned long fname_len)
 {
-  integer ix1, il ;
+  int ix1, il ;
 
   if ( C2F(crestringi)(fname, stlw, nch, ilrs, fname_len) == FALSE )
     return FALSE;
@@ -1677,9 +1677,9 @@ int C2F(listcrestring)(char *fname,integer *lw,integer *numi,integer *stlw,integ
 *       ilrs 
 *------------------------------------------------------------------ */
 
-int C2F(crestring)(char *fname,integer *spos,integer *nchar,integer *ilrs,unsigned long fname_len)
+int C2F(crestring)(char *fname,int *spos,int *nchar,int *ilrs,unsigned long fname_len)
 {
-  integer ix1;
+  int ix1;
   if ( C2F(crestringi)(fname, Lstk(*spos ), nchar, ilrs, fname_len) == FALSE) 
     return FALSE;
   ix1 = *ilrs + *nchar;
@@ -1701,10 +1701,10 @@ int C2F(crestring)(char *fname,integer *spos,integer *nchar,integer *ilrs,unsign
  *       lr : pointe sur  a(1,1)=istk(lr) 
  *------------------------------------------------------------------ */
 
-int C2F(crestringi)(char *fname,integer *stlw,integer *nchar,integer *ilrs,unsigned long fname_len)
+int C2F(crestringi)(char *fname,int *stlw,int *nchar,int *ilrs,unsigned long fname_len)
 {
 
-  integer ix1, ilast, il;
+  int ix1, ilast, il;
 
   il = iadr(*stlw);
   ix1 = il + 4 + (*nchar + 1);
@@ -1729,12 +1729,12 @@ int C2F(crestringi)(char *fname,integer *stlw,integer *nchar,integer *ilrs,unsig
  *  checks if we can store a string of size nchar at position lw 
  *---------------------------------------------------------------------*/
 
-int C2F(fakecresmat2)(integer *lw,integer *nchar,integer *lr)
+int C2F(fakecresmat2)(int *lw,int *nchar,int *lr)
 {
-  static integer cx17 = 17;
+  static int cx17 = 17;
   int retval;
-  static integer ilast;
-  static integer il;
+  static int ilast;
+  static int il;
   il = iadr((*Lstk(*lw)));
   Err = sadr(il + 4 + (*nchar + 1)) - *Lstk(Bot);
   if (Err > 0) 
@@ -1761,13 +1761,13 @@ int C2F(fakecresmat2)(integer *lw,integer *nchar,integer *lr)
  *       j  : colonne a extraire 
  *------------------------------------------------------------------ */
 
-int C2F(smatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
+int C2F(smatj)(char *fname,int *lw,int *j,unsigned long fname_len)
 {
-  integer ix1, ix2;
-  integer incj;
-  integer ix, m, n;
-  integer lj, nj, lr, il1, il2, nlj;
-  integer il1j, il2p;
+  int ix1, ix2;
+  int incj;
+  int ix, m, n;
+  int lj, nj, lr, il1, il2, nlj;
+  int il1j, il2p;
 
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
@@ -1818,11 +1818,11 @@ int C2F(smatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
  *     Lstk(tlw+1) est modifie si necessaire 
  *------------------------------------------------------------------ */
 
-int C2F(copysmat)(char *fname,integer *flw,integer *tlw,unsigned long fname_len)
+int C2F(copysmat)(char *fname,int *flw,int *tlw,unsigned long fname_len)
 {
-  integer ix1;
-  integer dflw, fflw;
-  integer dtlw;
+  int ix1;
+  int dflw, fflw;
+  int dtlw;
   dflw = iadr(*Lstk(*flw ));
   fflw = iadr(*Lstk(*flw +1));
   dtlw = iadr(*Lstk(*tlw ));
@@ -1849,9 +1849,9 @@ int C2F(copysmat)(char *fname,integer *flw,integer *tlw,unsigned long fname_len)
  *       lr  : 
  *------------------------------------------------------------------ */
 
-int C2F(setsimat)(char *fname,integer *lw,integer *ix,integer *j,integer *nlr,unsigned long fname_len)
+int C2F(setsimat)(char *fname,int *lw,int *ix,int *j,int *nlr,unsigned long fname_len)
 {
-  integer k, m, il;
+  int k, m, il;
   il = iadr(*Lstk(*lw ));
   m = *istk(il +1);
   k = *ix - 1 + (*j - 1) * m;
@@ -1873,10 +1873,10 @@ int C2F(setsimat)(char *fname,integer *lw,integer *ix,integer *j,integer *nlr,un
  * Note : elements are to be added to close the list creation 
  *------------------------------------------------------------------- */
 
-int crelist_G(integer *slw,integer *ilen,integer *lw,integer type)
+int crelist_G(int *slw,int *ilen,int *lw,int type)
 {
-  integer ix1;
-  integer il;
+  int ix1;
+  int il;
   il = iadr(*Lstk(*slw ));
   *istk(il ) = type;
   *istk(il + 1) = *ilen;
@@ -1888,17 +1888,17 @@ int crelist_G(integer *slw,integer *ilen,integer *lw,integer type)
 } 
 
 
-int C2F(crelist)(integer *slw,integer *ilen,integer *lw)
+int C2F(crelist)(int *slw,int *ilen,int *lw)
 {
   return crelist_G(slw,ilen,lw,15);
 } 
 
-int C2F(cretlist)(integer *slw,integer *ilen,integer *lw)
+int C2F(cretlist)(int *slw,int *ilen,int *lw)
 {
   return crelist_G(slw,ilen,lw,16);
 } 
 
-int C2F(cremlist)(integer *slw,integer *ilen,integer *lw)
+int C2F(cremlist)(int *slw,int *ilen,int *lw)
 {
   return crelist_G(slw,ilen,lw,17);
 } 
@@ -1913,11 +1913,11 @@ int C2F(cremlist)(integer *slw,integer *ilen,integer *lw)
  *       j  : element to be extracted 
  *------------------------------------------------------------------ */
 
-int C2F(lmatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
+int C2F(lmatj)(char *fname,int *lw,int *j,unsigned long fname_len)
 {
-  integer ix1, ix2;
-  integer n;
-  integer il, ilj, slj;
+  int ix1, ix2;
+  int n;
+  int il, ilj, slj;
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
     return FALSE;
@@ -1953,10 +1953,10 @@ int C2F(lmatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
  *     de faire un lk=Lstk(top);Lstk(top)=ili; getmat(...,top,...);stk(top)=lk 
  *------------------------------------------------*/
 
-int C2F(getilist)(char *fname,integer *topk,integer *lw,integer *n,integer *ix,integer *ili,unsigned long fname_len)
+int C2F(getilist)(char *fname,int *topk,int *lw,int *n,int *ix,int *ili,unsigned long fname_len)
 {
-  integer ix1;
-  integer itype, il;
+  int ix1;
+  int itype, il;
 
   il = iadr(*Lstk(*lw ));
   if (*istk(il ) < 0) {
@@ -2000,11 +2000,11 @@ int C2F(getilist)(char *fname,integer *topk,integer *lw,integer *n,integer *ix,i
 *      implicit undefined (a-z) 
 *------------------------------------------------*/
 
-int C2F(getpoly)(char *fname,integer *topk,integer *lw,integer *it,integer *m,integer *n,char *namex,integer *namel,integer *ilp,integer *lr,integer *lc,unsigned long fname_len,unsigned long name_len)
+int C2F(getpoly)(char *fname,int *topk,int *lw,int *it,int *m,int *n,char *namex,int *namel,int *ilp,int *lr,int *lc,unsigned long fname_len,unsigned long name_len)
 {
-  integer ix1;
+  int ix1;
 
-  integer il;
+  int il;
   il = iadr(*Lstk(*lw ));
   if (*istk(il ) != 2) {
     Scierror(212,_("%s: Wrong type for argument %d: Polynomial matrix expected.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
@@ -2038,10 +2038,10 @@ int C2F(getpoly)(char *fname,integer *topk,integer *lw,integer *it,integer *m,in
 *     Finir les tests 
 *------------------------------------------------------------------ */
 
-int C2F(getonepoly)(char *fname,integer *topk,integer *lw,integer *it,integer *md,char *namex,integer *namel,integer *lr,integer *lc, unsigned long fname_len, unsigned long name_len)
+int C2F(getonepoly)(char *fname,int *topk,int *lw,int *it,int *md,char *namex,int *namel,int *lr,int *lc, unsigned long fname_len, unsigned long name_len)
 {
-  integer m, n;
-  integer ilp;
+  int m, n;
+  int ilp;
 
   if (C2F(getpoly)(fname, topk, lw, it, &m, &n, namex, namel, &ilp, lr, lc, fname_len, 4L)
       == FALSE)
@@ -2066,13 +2066,13 @@ int C2F(getonepoly)(char *fname,integer *topk,integer *lw,integer *it,integer *m
  *       j  : column  to be extracted 
  *------------------------------------------------------------------ */
 
-int C2F(pmatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
+int C2F(pmatj)(char *fname,int *lw,int *j,unsigned long fname_len)
 {
-  integer ix1, ix2;
+  int ix1, ix2;
   char namex[4];
-  integer incj;
-  integer ix, l, m, n, namel;
-  integer l2, m2, n2, lc, il, lj, it, lr, il2, ilp;
+  int incj;
+  int ix, l, m, n, namel;
+  int l2, m2, n2, lc, il, lj, it, lr, il2, ilp;
 
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
@@ -2138,9 +2138,9 @@ int C2F(pmatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
  *       lr : stk(lr+i) is the working area 
  *------------------------------------------------------------------ */
 
-int C2F(crewmat)(char *fname,integer *lw,integer *m,integer *lr,unsigned long fname_len)
+int C2F(crewmat)(char *fname,int *lw,int *m,int *lr,unsigned long fname_len)
 {
-  integer il,ix1; 
+  int il,ix1; 
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
     return FALSE;
@@ -2166,10 +2166,10 @@ int C2F(crewmat)(char *fname,integer *lw,integer *m,integer *lr,unsigned long fn
  *       lr : istk(lr+i) is the working area 
  *------------------------------------------------------------------ */
 
-int C2F(crewimat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(crewimat)(char *fname,int *lw,int *m,int *n,int *lr,unsigned long fname_len)
 {
   double size = ((double) *m) * ((double) *n ); 
-  integer ix1,il;
+  int ix1,il;
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
     return FALSE;
@@ -2199,15 +2199,15 @@ int C2F(crewimat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsi
  *       lr : working area is istk(lr+i) i=0,m*n-1
  *------------------------------------------------ */
 
-int C2F(getwimat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(getwimat)(char *fname,int *topk,int *lw,int *m,int *n,int *lr,unsigned long fname_len)
 {
-  integer il;
+  int il;
   il = iadr(*Lstk(*lw ));
   if (*istk(il ) < 0) {
     il = iadr(*istk(il +1));
   }
   if (*istk(il ) != sci_boolean) {
-    Scierror(213,_("%s: Wrong type for argument %d: Working integer matrix expected.\n"),get_fname(fname,fname_len),Rhs + (*lw - *topk));
+    Scierror(213,_("%s: Wrong type for argument %d: Working int matrix expected.\n"),get_fname(fname,fname_len),Rhs + (*lw - *topk));
     return FALSE;
   };
   *m = *istk(il + 1);
@@ -2226,9 +2226,9 @@ int C2F(getwimat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,in
  *     pointeur qui pointe vers une traduction en C de la stringMat 
  *------------------------------------------------------------------- */
 
-int C2F(crestringv)(char *fname,integer *spos,integer *ilorig,integer *lw,unsigned long fname_len)
+int C2F(crestringv)(char *fname,int *spos,int *ilorig,int *lw,unsigned long fname_len)
 {
-  integer ierr;
+  int ierr;
   if (C2F(crepointer)(fname, spos, lw, fname_len) == FALSE) 
     return FALSE;
 
@@ -2245,9 +2245,9 @@ int C2F(crestringv)(char *fname,integer *spos,integer *ilorig,integer *lw,unsign
  *  listcrepointer(top,numero,lw,....) 
  *---------------------------------------------------------- */
 
-int C2F(listcrepointer)(char *fname,integer *lw,integer *numi,integer *stlw,integer *lrs,unsigned long fname_len)
+int C2F(listcrepointer)(char *fname,int *lw,int *numi,int *stlw,int *lrs,unsigned long fname_len)
 {
-  integer ix1,il ;
+  int ix1,il ;
   if (C2F(crepointeri)(fname, stlw,  lrs, &c_true, fname_len)==FALSE)
     return FALSE ;
   *stlw = *lrs + 2;
@@ -2262,7 +2262,7 @@ int C2F(listcrepointer)(char *fname,integer *lw,integer *numi,integer *stlw,inte
  *  crepointer :
  *---------------------------------------------------------- */
 
-int C2F(crepointer)(char *fname,integer *lw,integer *lr,unsigned long fname_len)
+int C2F(crepointer)(char *fname,int *lw,int *lr,unsigned long fname_len)
 {
 
   if (*lw + 1 >= Bot) {
@@ -2278,10 +2278,10 @@ int C2F(crepointer)(char *fname,integer *lw,integer *lr,unsigned long fname_len)
 /*--------------------------------------------------------- 
  * internal function used by crepointer and listcrepointer 
  *---------------------------------------------------------- */
-static int C2F(crepointeri)(char *fname,integer *stlw,integer *lr,int *flagx,unsigned long fname_len)
+static int C2F(crepointeri)(char *fname,int *stlw,int *lr,int *flagx,unsigned long fname_len)
 {
-  integer ix1;
-  integer il;
+  int ix1;
+  int il;
   il = iadr(*stlw);
   ix1 = il + 4;
   Err = sadr(ix1) + 2 - *Lstk(Bot );
@@ -2308,11 +2308,11 @@ static int C2F(crepointeri)(char *fname,integer *stlw,integer *lr,int *flagx,uns
  *     and the data stored at stk(lorig) is freed 
  *------------------------------------------------------------------- */
 
-int C2F(lcrestringmatfromc)(char *fname,integer *spos,integer *numi,integer *stlw,integer *lorig,integer *m,integer *n,unsigned long fname_len)
+int C2F(lcrestringmatfromc)(char *fname,int *spos,int *numi,int *stlw,int *lorig,int *m,int *n,unsigned long fname_len)
 {
-  integer ix1;
-  integer ierr;
-  integer il, ilw;
+  int ix1;
+  int ierr;
+  int il, ilw;
   ilw = iadr(*stlw);
   ix1 = *Lstk(Bot ) - *stlw;
   C2F(cstringf)((char ***)stk(*lorig ), istk(ilw ), m, n, &ix1, &ierr);
@@ -2339,11 +2339,11 @@ int C2F(lcrestringmatfromc)(char *fname,integer *spos,integer *numi,integer *stl
  *     and the data stored at stk(lorig) is freed 
  *------------------------------------------------------------------- */
 
-int C2F(crestringmatfromc)(char *fname,integer *spos,integer *lorig,integer *m,integer *n,unsigned long fname_len)
+int C2F(crestringmatfromc)(char *fname,int *spos,int *lorig,int *m,int *n,unsigned long fname_len)
 {
-  integer ix1;
-  integer ierr;
-  integer ilw;
+  int ix1;
+  int ierr;
+  int ilw;
   ilw = iadr(*Lstk(*spos ));
   ix1 = *Lstk(Bot ) - *Lstk(*spos );
   C2F(cstringf)((char ***)stk(*lorig ), istk(ilw ), m, n, &ix1, &ierr);
@@ -2360,10 +2360,10 @@ int C2F(crestringmatfromc)(char *fname,integer *spos,integer *lorig,integer *m,i
  *     getlistvectrow : recupere un vecteur ligne dans une liste 
  *------------------------------------------------------------------ */
 
-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(getlistvectrow)(char *fname,int *topk,int *spos,int *lnum,int *it,int *m,int *n,int *lr,int *lc,unsigned long fname_len)
 {
-  integer nv;
-  integer ili;
+  int nv;
+  int ili;
 
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE) 
     return FALSE;
@@ -2402,7 +2402,7 @@ int C2F(getlistvectrow)(char *fname,integer *topk,integer *spos,integer *lnum,in
  *       lc : pointe sur la partie imaginaire si elle existe sinon sur zero 
  *------------------------------------------------------------------ */
 
-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(getvectrow)(char *fname,int *topk,int *spos,int *it,int *m,int *n,int *lr,int *lc,unsigned long fname_len)
 {
   if (C2F(getmati)(fname, topk, spos, Lstk(*spos ), it, m, n, lr, lc, &c_false, &cx0, fname_len) == FALSE) 
     return FALSE;
@@ -2418,10 +2418,10 @@ int C2F(getvectrow)(char *fname,integer *topk,integer *spos,integer *it,integer
  *
  *------------------------------------------------------------------ */
 
-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(getlistvectcol)(char *fname,int *topk,int *spos,int *lnum,int *it,int *m,int *n,int *lr,int *lc,unsigned long fname_len)
 {
-  integer nv;
-  integer ili;
+  int nv;
+  int ili;
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE) 
     return FALSE;
 
@@ -2458,7 +2458,7 @@ int C2F(getlistvectcol)(char *fname,integer *topk,integer *spos,integer *lnum,in
 *       lc : pointe sur la partie imaginaire si elle existe sinon sur zero 
 *------------------------------------------------------------------ */
 
-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(getvectcol)(char *fname,int *topk,int *spos,int *it,int *m,int *n,int *lr,int *lc,unsigned long fname_len)
 {
 
   if ( C2F(getmati)(fname, topk, spos, Lstk(*spos ), it, m, n, lr, lc, &c_false, &cx0, fname_len)
@@ -2473,10 +2473,10 @@ int C2F(getvectcol)(char *fname,integer *topk,integer *spos,integer *it,integer
 }
 
 
-int C2F(getlistsimat)(char *fname,integer *topk,integer *spos,integer *lnum,integer *m,integer *n,integer *ix,integer *j,integer *lr,integer *nlr,unsigned long fname_len)
+int C2F(getlistsimat)(char *fname,int *topk,int *spos,int *lnum,int *m,int *n,int *ix,int *j,int *lr,int *nlr,unsigned long fname_len)
 {
-  integer nv;
-  integer ili;
+  int nv;
+  int ili;
 
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE) 
     return FALSE;
@@ -2492,7 +2492,7 @@ int C2F(getlistsimat)(char *fname,integer *topk,integer *spos,integer *lnum,inte
  *     recuperation d'un pointer 
  *------------------------------------------------------------------- */
 
-int C2F(getpointer)(char *fname,integer *topk,integer *lw,integer *lr,unsigned long fname_len)
+int C2F(getpointer)(char *fname,int *topk,int *lw,int *lr,unsigned long fname_len)
 {
   return C2F(getpointeri)(fname, topk, lw,Lstk(*lw), lr, &c_false, &cx0, fname_len);
 } 
@@ -2510,9 +2510,9 @@ int C2F(getpointer)(char *fname,integer *topk,integer *lw,integer *lr,unsigned l
  *       lw : stk(lw) a <<pointer>> casted to a double 
  *------------------------------------------------------------------ */
 
-int C2F(getlistpointer)(char *fname,integer *topk,integer *spos,integer *lnum,integer *lw,unsigned long fname_len)
+int C2F(getlistpointer)(char *fname,int *topk,int *spos,int *lnum,int *lw,unsigned long fname_len)
 {
-  integer nv, ili;
+  int nv, ili;
 
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
     return FALSE;
@@ -2528,9 +2528,9 @@ int C2F(getlistpointer)(char *fname,integer *topk,integer *spos,integer *lnum,in
  * For internal use 
  *------------------------------------------------------------------- */
 
-static int C2F(getpointeri)(char *fname,integer *topk,integer *spos,integer *lw,integer *lr,int *inlistx,integer *nel,unsigned long fname_len)
+static int C2F(getpointeri)(char *fname,int *topk,int *spos,int *lw,int *lr,int *inlistx,int *nel,unsigned long fname_len)
 {
-  integer il;
+  int il;
   il = iadr(*lw);
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   if (*istk(il ) != sci_lufact_pointer) {
@@ -2550,10 +2550,10 @@ static int C2F(getpointeri)(char *fname,integer *topk,integer *spos,integer *lw,
  *     creates a matlab-like sparse matrix 
  *-----------------------------------------------------------*/
 
-int C2F(mspcreate)(integer *lw,integer *m,integer *n,integer *nzMax,integer *it)
+int C2F(mspcreate)(int *lw,int *m,int *n,int *nzMax,int *it)
 {
-  integer ix1;
-  integer jc, il, ir; int NZMAX;
+  int ix1;
+  int jc, il, ir; int NZMAX;
   int k,pr;
   double size;
   if (*lw + 1 >= Bot) {
@@ -2627,8 +2627,8 @@ char *get_fname(char *fname,unsigned long fname_len)
 
 int C2F(realmat)(void)
 {
-  integer ix1;
-  integer m, n, il;
+  int ix1;
+  int m, n, il;
 
   il = iadr(*Lstk(Top ));
   if (*istk(il + 3 ) == 0) return 0;
@@ -2651,9 +2651,9 @@ int C2F(realmat)(void)
 *      implicit undefined (a-z) 
 *------------------------------------------------------------------ */
 
-int C2F(copyobj)(char *fname,integer *lw,integer *lwd,unsigned long fname_len)
+int C2F(copyobj)(char *fname,int *lw,int *lwd,unsigned long fname_len)
 {
-  integer ix1,l,ld;
+  int ix1,l,ld;
   l=*Lstk(*lw );
   ld=*Lstk(*lwd );
 
@@ -2676,10 +2676,10 @@ int C2F(copyobj)(char *fname,integer *lw,integer *lwd,unsigned long fname_len)
  *     et verification 
  *------------------------------------------------*/
 
-int C2F(vcopyobj)(char *fname,integer *lw,integer *lwd,unsigned long fname_len)
+int C2F(vcopyobj)(char *fname,int *lw,int *lwd,unsigned long fname_len)
 {
-  integer l;
-  integer l1, lv;
+  int l;
+  int l1, lv;
   l = *Lstk(*lw );
   lv = *Lstk(*lw +1) - *Lstk(*lw );
   l1 = *Lstk(*lwd );
@@ -2714,10 +2714,10 @@ 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(swapmat)(char *fname,int *topk,int *lw,int *it1,int *m1,int *n1,int *mn1,int *it2,int *m2,int *n2,int *mn2,unsigned long fname_len)
 {
-  integer ix1, ix2;
-  integer lc, lr;
+  int ix1, ix2;
+  int lc, lr;
   ix1 = *lw + 1;
 
   if ( C2F(cremat)(fname, &ix1, it1, m1, n1, &lr, &lc, fname_len)== FALSE)
@@ -2767,13 +2767,13 @@ int C2F(swapmat)(char *fname,integer *topk,integer *lw,integer *it1,integer *m1,
 *            ( matrice qui a ete copiee de lw a lw+1 
 *------------------------------------------------== */
 
-int C2F(insmat)(integer *topk,integer *lw,integer *it,integer *m,integer *n,integer *lr,integer *lc,integer *lr1,integer *lc1)
+int C2F(insmat)(int *topk,int *lw,int *it,int *m,int *n,int *lr,int *lc,int *lr1,int *lc1)
 {
 
-  integer ix1;
-  integer c_n1 = -1;
-  integer m1, n1;
-  integer lc0, it1, lr0;
+  int ix1;
+  int c_n1 = -1;
+  int m1, n1;
+  int lc0, it1, lr0;
   
   if (C2F(getmat)("insmat", topk, lw, &it1, &m1, &n1, &lr0, &lc0, 6L) == FALSE) 
     return FALSE;
@@ -2799,10 +2799,10 @@ int C2F(insmat)(integer *topk,integer *lw,integer *it,integer *m,integer *n,inte
  *       double precision suivant typ 
  *------------------------------------------------*/
 
-int C2F(stackinfo)(integer *lw,integer *typ)
+int C2F(stackinfo)(int *lw,int *typ)
 {
-  integer ix, l, m, n;
-  integer il, nn;
+  int ix, l, m, n;
+  int il, nn;
 
   if (*lw == 0) {
     return 0;
@@ -2847,9 +2847,9 @@ int C2F(stackinfo)(integer *lw,integer *typ)
  *     m,n
  *------------------------------------------------*/
 
-int C2F(allmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,unsigned long fname_len)
+int C2F(allmat)(char *fname,int *topk,int *lw,int *m,int *n,unsigned long fname_len)
 {
-  integer itype, il;
+  int itype, il;
   il = iadr(*Lstk(*lw ));
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   itype = *istk(il );
@@ -2867,9 +2867,9 @@ int C2F(allmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,unsi
  * and set its size to (m,n) 
  *------------------------------------------------*/
 
-int C2F(allmatset)(char *fname,integer *lw,integer *m,integer *n,unsigned long fname_len)
+int C2F(allmatset)(char *fname,int *lw,int *m,int *n,unsigned long fname_len)
 {
-  integer il;
+  int il;
   il = iadr(*Lstk(*lw ));
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   *istk(il + 1) = *m;
@@ -2885,7 +2885,7 @@ int C2F(allmatset)(char *fname,integer *lw,integer *m,integer *n,unsigned long f
  *     n'a pas d'arguments (ou il faut faire top=top+1) 
  *------------------------------------------------ */
 
-int C2F(objvide)(char *fname,integer *lw,unsigned long fname_len)
+int C2F(objvide)(char *fname,int *lw,unsigned long fname_len)
 {
   if (*lw == 0 || Rhs < 0) {
     ++(*lw);
@@ -2913,13 +2913,13 @@ 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)(char *,int *),unsigned long fname_len,unsigned long name_len)
+int C2F(getexternal)(char *fname,int *topk,int *lw,char *namex,int *typex,void (*setfun)(char *,int *),unsigned long fname_len,unsigned long name_len)
 {
   int ret_value;
-  integer irep;
-  integer m, n;
-  integer il, lr;
-  integer nlr;
+  int irep;
+  int m, n;
+  int il, lr;
+  int nlr;
   int i;
   il = C2F(gettype)(lw);
   switch ( il) {
@@ -2954,7 +2954,7 @@ int C2F(getexternal)(char *fname,integer *topk,integer *lw,char *namex,int *type
 /*------------------------------------------------
  *------------------------------------------------ */
 
-int C2F(checkval)(char *fname,integer *ival1,integer *ival2,unsigned long fname_len)
+int C2F(checkval)(char *fname,int *ival1,int *ival2,unsigned long fname_len)
 {
   if (*ival1 != *ival2) 
   {
@@ -2971,9 +2971,9 @@ int C2F(checkval)(char *fname,integer *ival1,integer *ival2,unsigned long fname_
  *      si la variable cherchee n'existe pas on renvoit false 
  *------------------------------------------------------------- */
 
-int C2F(optvarget)(char *fname,integer *topk,integer *iel,char *namex,unsigned long fname_len,unsigned long name_len)
+int C2F(optvarget)(char *fname,int *topk,int *iel,char *namex,unsigned long fname_len,unsigned long name_len)
 {
-  integer id[nsiz];
+  int id[nsiz];
   C2F(cvname)(id, namex, &cx0, name_len);
   Fin = 0;
   /*     recupere la variable et incremente top */
@@ -3001,7 +3001,7 @@ int C2F(optvarget)(char *fname,integer *topk,integer *iel,char *namex,unsigned l
  *
  *------------------------------------------------------------- */
 
-int C2F(bufstore)(char *fname,integer *lbuf,integer *lbufi,integer *lbuff,integer *lr,integer *nlr,unsigned long fname_len)
+int C2F(bufstore)(char *fname,int *lbuf,int *lbufi,int *lbuff,int *lr,int *nlr,unsigned long fname_len)
 {
   *lbufi = *lbuf;
   *lbuff = *lbufi + *nlr - 1;
@@ -3020,9 +3020,9 @@ int C2F(bufstore)(char *fname,integer *lbuf,integer *lbufi,integer *lbuff,intege
 /*------------------------------------------------------------- 
  * 
  *------------------------------------------------------------- */
-int C2F(credata)(char *fname,integer *lw,integer m,unsigned long fname_len)
+int C2F(credata)(char *fname,int *lw,int m,unsigned long fname_len)
 {
-  integer lr;
+  int lr;
   lr = *Lstk(*lw );
   if (*lw + 1 >= Bot) {
     Scierror(18,_("%s: Too many names.\n"),get_fname(fname,fname_len));
@@ -3047,10 +3047,10 @@ MATRIX OF HANDLE
  * internal function used by crehmat and listcrehmat 
  *---------------------------------------------------------- */
 
-static int C2F(crehmati)(char *fname,integer *stlw,integer *m,integer *n,integer *lr,int *flagx,unsigned long fname_len)
+static int C2F(crehmati)(char *fname,int *stlw,int *m,int *n,int *lr,int *flagx,unsigned long fname_len)
 {
-  integer ix1;
-  integer il;
+  int ix1;
+  int il;
   double size = ((double) *m) * ((double) *n);
   il = iadr(*stlw);
   ix1 = il + 4;
@@ -3081,9 +3081,9 @@ static int C2F(crehmati)(char *fname,integer *stlw,integer *m,integer *n,integer
  *      lw est aussi mis a jour 
  *---------------------------------------------------------- */
 
-int C2F(listcrehmat)(char *fname,integer *lw,integer *numi,integer *stlw,integer *m,integer *n,integer *lrs,unsigned long fname_len)
+int C2F(listcrehmat)(char *fname,int *lw,int *numi,int *stlw,int *m,int *n,int *lrs,unsigned long fname_len)
 {
-  integer ix1,il ;
+  int ix1,il ;
     
   if (C2F(crehmati)(fname, stlw, m, n, lrs, &c_true, fname_len)==FALSE)
     return FALSE ;
@@ -3110,7 +3110,7 @@ int C2F(listcrehmat)(char *fname,integer *lw,integer *numi,integer *stlw,integer
  *     and lr is returned but stk(lr+..)  are unchanged 
  *---------------------------------------------------------- */
 
-int C2F(crehmat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(crehmat)(char *fname,int *lw,int *m,int *n,int *lr,unsigned long fname_len)
 {
 
   if (*lw + 1 >= Bot) {
@@ -3136,9 +3136,9 @@ int C2F(crehmat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsig
  *       lr : stk(lr+i-1)= h(i)) 
  *------------------------------------------------------------------ */
 
-int C2F(getlisthmat)(char *fname,integer *topk,integer *spos,integer *lnum,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(getlisthmat)(char *fname,int *topk,int *spos,int *lnum,int *m,int *n,int *lr,unsigned long fname_len)
 {
-  integer nv, ili;
+  int nv, ili;
 
   if ( C2F(getilist)(fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
     return FALSE;
@@ -3162,7 +3162,7 @@ int C2F(getlisthmat)(char *fname,integer *topk,integer *spos,integer *lnum,integ
  *       lr : stk(lr+i-1)= h(i)
  *------------------------------------------------------------------- */
 
-int C2F(gethmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,integer *lr,unsigned long fname_len)
+int C2F(gethmat)(char *fname,int *topk,int *lw,int *m,int *n,int *lr,unsigned long fname_len)
 {
   return C2F(gethmati)(fname, topk, lw,Lstk(*lw), m, n, lr, &c_false, &cx0, fname_len);
 }
@@ -3171,9 +3171,9 @@ int C2F(gethmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,int
  * For internal use 
  *------------------------------------------------------------------- */
 
-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(gethmati)(char *fname,int *topk,int *spos,int *lw,int *m,int *n,int *lr,int *inlistx,int *nel,unsigned long fname_len)
 {
-  integer il;
+  int il;
   il = iadr(*lw);
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   if (*istk(il ) != sci_handles) {
index bac3614..1a33e8c 100644 (file)
 #define abs(x) ((x) >= 0 ? (x) : -(x)) /* pour abs  C2F(mvfromto) line 2689 */
 #endif
 /* Table of constant values */
-static integer cx1 = 1;
-static integer cx0 = 0;
+static int cx1 = 1;
+static int cx0 = 0;
 
 static char *Get_Iname(void);
-static int C2F(mvfromto)(integer *itopl,integer *);
+static int C2F(mvfromto)(int *itopl,int *);
 
 static int rhs_opt_find(char *name,rhs_opts opts[]);
 static void rhs_opt_print_names(rhs_opts opts[]);
@@ -55,7 +55,7 @@ extern int C2F(isbyref)(int * fun);
 
 /*------------------------------------------------*/
 void strcpy_tws(char *str1,char *str2, int len);
-int C2F(copyvarfromsciptr)(integer lw, integer n,integer l);
+int C2F(copyvarfromsciptr)(int lw, int n,int l);
 static int intersci_push(void);
 static void intersci_pop(void);
 
@@ -65,7 +65,7 @@ static void ConvertData(unsigned char *type, int size,int l);
  * checkrhs: checks right hand side arguments
  *-----------------------------------------------*/
 
-int C2F(checkrhs)(char *fname, integer *iMin, integer *iMax, unsigned long  fname_len)
+int C2F(checkrhs)(char *fname, int *iMin, int *iMax, unsigned long  fname_len)
 {
   /*
    * store the name in recu array, fname can be a non null terminated char array
@@ -90,7 +90,7 @@ int C2F(checkrhs)(char *fname, integer *iMin, integer *iMax, unsigned long  fnam
  * checkrhs: checks left hand side arguments
  *-----------------------------------------------*/
 
-int C2F(checklhs)(char *fname, integer *iMin, integer *iMax, unsigned long  fname_len)
+int C2F(checklhs)(char *fname, int *iMin, int *iMax, unsigned long  fname_len)
 {
   if ( Lhs < *iMin || Lhs > *iMax)
     {
@@ -112,9 +112,9 @@ int C2F(checklhs)(char *fname, integer *iMin, integer *iMax, unsigned long  fnam
  * namex must have a size of nlgh + 1
  *---------------------------------------------------------------------*/
 
-int C2F(isopt)(integer *k, char *namex,unsigned long name_len)
+int C2F(isopt)(int *k, char *namex,unsigned long name_len)
 {
-  integer i1 =  *k + Top - Rhs;
+  int i1 =  *k + Top - Rhs;
   if ( C2F(isoptlw)(&Top, &i1, namex, name_len) == FALSE) return FALSE ;
   /* add a '\0' at the end of the string removing trailing blanks */
   for ( i1 = nlgh-1 ; i1 >=0 ; i1--) { if ( namex[i1] != ' ') break ;}
@@ -129,7 +129,7 @@ int C2F(isopt)(integer *k, char *namex,unsigned long name_len)
  * returns .true. and variable name in namex
  *--------------------------------------- */
 
-int C2F(isoptlw)(integer *topk,integer  *lw, char *namex, unsigned long name_len)
+int C2F(isoptlw)(int *topk,int  *lw, char *namex, unsigned long name_len)
 {
   if (*Infstk(*lw ) != 1) return FALSE ;
   C2F(cvname)(&C2F(vstk).idstk[(*lw) * nsiz - nsiz], namex, &cx1, name_len);
@@ -142,10 +142,10 @@ int C2F(isoptlw)(integer *topk,integer  *lw, char *namex, unsigned long name_len
  * given as xx=val in the calling sequence.
  * If no such argument it returns Rhs+1.
  *--------------------------------------- */
-integer C2F(firstopt)()
+int C2F(firstopt)()
 
 {
-  integer k;
+  int k;
   for (k = 1; k <= Rhs ; ++k)
     if (*Infstk(k + Top - Rhs )==1)
       return k;
@@ -179,9 +179,9 @@ int C2F(findopt)(char * str,rhs_opts opts[])
  *  top must have a correct value when using this function
  *--------------------------------------- */
 
-integer C2F(numopt)()
+int C2F(numopt)()
 {
-  integer k, ret=0;
+  int k, ret=0;
   for (k = 1; k <= Rhs ; ++k)
     if ( *Infstk(k + Top - Rhs) == 1 ) ret++;
   return ret;
@@ -192,9 +192,9 @@ integer C2F(numopt)()
  *   type of variable number number in the stack
  *---------------------------------------------------------------------*/
 
-integer C2F(vartype)(integer *number)
+int C2F(vartype)(int *number)
 {
-  integer ix1=  *number + Top - Rhs;
+  int ix1=  *number + Top - Rhs;
   return C2F(gettype)(&ix1);
 }
 
@@ -203,9 +203,9 @@ integer C2F(vartype)(integer *number)
  *    returns the type of object at position lw in the stack
  *------------------------------------------------*/
 
-integer C2F(gettype)(integer *lw)
+int C2F(gettype)(int *lw)
 {
-  integer il;
+  int il;
   il = iadr(*Lstk(*lw ));
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   return *istk(il);
@@ -218,10 +218,10 @@ integer C2F(gettype)(integer *lw)
  *    does not fit given type
  *------------------------------------------------*/
 
-static integer overloadtype(integer *lw,char *fname,unsigned char *typ)
+static int overloadtype(int *lw,char *fname,unsigned char *typ)
 {
-  integer il=0;
-  integer ityp=0;
+  int il=0;
+  int ityp=0;
   il = iadr(*Lstk(*lw ));
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   switch (*typ) {
@@ -276,7 +276,7 @@ static integer overloadtype(integer *lw,char *fname,unsigned char *typ)
  *    set mechanism to overloaded function fname for object lw
  *------------------------------------------------*/
 
-integer C2F(overload)(integer *lw,char *fname,unsigned long l)
+int C2F(overload)(int *lw,char *fname,unsigned long l)
 {
   C2F(putfunnam)(fname,lw,l);
   C2F(com).fun=-1;
@@ -288,7 +288,7 @@ integer C2F(overload)(integer *lw,char *fname,unsigned long l)
 /*------------------------------------------------
  * ogettype : unused
  *------------------------------------------------*/
-integer C2F(ogettype)(integer *lw)
+int C2F(ogettype)(int *lw)
 {
   return  *istk(iadr(*Lstk(*lw )) );
 }
@@ -403,9 +403,9 @@ int IsRef(int number) {
   return C2F(isref)(&number);
 }
 
-int C2F(isref)(integer *number)
+int C2F(isref)(int *number)
 {
-  integer il,lw;
+  int il,lw;
   lw = *number + Top - Rhs;
   if ( *number > Rhs) {
     Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),"isref","isref");
@@ -433,9 +433,9 @@ int C2F(isref)(integer *number)
  *     see examples in addinter-examples
  *---------------------------------------------------------------------*/
 
-int C2F(createvar)(integer *lw,char *typex,integer *m,integer *n,integer  *lr,unsigned long type_len)
+int C2F(createvar)(int *lw,char *typex,int *m,int *n,int  *lr,unsigned long type_len)
 {
-  integer ix1, ix, it=0, lw1, lcs, IT;
+  int ix1, ix, it=0, lw1, lcs, IT;
   unsigned char Type = *typex;
   char *fname = Get_Iname();
   if (*lw > intersiz) {
@@ -549,10 +549,10 @@ int C2F(createvar)(integer *lw,char *typex,integer *m,integer *n,integer  *lr,un
  *     Like createvar but for complex matrices
  *---------------------------------------------------------------------*/
 
-int C2F(createcvar)(integer *lw, char *typex,integer *it,integer *m,integer *n,integer *lr,integer *lc,unsigned long type_len)
+int C2F(createcvar)(int *lw, char *typex,int *it,int *m,int *n,int *lr,int *lc,unsigned long type_len)
 {
   unsigned char Type = *typex ;
-  integer lw1;
+  int lw1;
   char *fname = Get_Iname();
   if (*lw > intersiz) {
     Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createcvar");
@@ -596,10 +596,10 @@ int C2F(createcvar)(integer *lw, char *typex,integer *it,integer *m,integer *n,i
  *     list with nel elements
  *---------------------------------------------------------------------*/
 
-int C2F(createlist)(integer *lw,integer *nel)
+int C2F(createlist)(int *lw,int *nel)
 {
   char *fname = Get_Iname();
-  integer lr, lw1;
+  int lr, lw1;
   if (*lw > intersiz) {
        Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlist");
     return FALSE;
@@ -626,12 +626,12 @@ int C2F(createlist)(integer *lw,integer *nel)
  *     if lar != -1 var is filled with data stored at lar
  *---------------------------------------------------------------------*/
 
-int C2F(createvarfrom)(integer *lw,char *typex,integer *m,integer *n,integer *lr,integer *lar,unsigned long type_len)
+int C2F(createvarfrom)(int *lw,char *typex,int *m,int *n,int *lr,int *lar,unsigned long type_len)
 {
   int M=*m,N=*n,MN=M*N;
   unsigned char Type = *typex;
-  integer inc=1;
-  integer it=0, lw1, lcs;
+  int inc=1;
+  int it=0, lw1, lcs;
   char *fname = Get_Iname();
   if (*lw > intersiz) {
     Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createvarfrom");
@@ -710,11 +710,11 @@ int C2F(createvarfrom)(integer *lw,char *typex,integer *m,integer *n,integer *lr
  *     ==> like createvarfrom for complex matrices
 *---------------------------------------------------------------------*/
 
-int C2F(createcvarfrom)(integer *lw,char *typex,integer *it,integer *m,integer *n,integer *lr,integer *lc,integer *lar,integer *lac,unsigned long type_len)
+int C2F(createcvarfrom)(int *lw,char *typex,int *it,int *m,int *n,int *lr,int *lc,int *lar,int *lac,unsigned long type_len)
 {
   unsigned char Type = *typex;
   int MN;
-  integer lw1, lcs;
+  int lw1, lcs;
   char *fname =     Get_Iname();
   if (*lw > intersiz) {
     Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createcvarfrom");
@@ -777,10 +777,10 @@ int C2F(createcvarfrom)(integer *lw,char *typex,integer *it,integer *m,integer *
  *     d,r,i : matrix of double,float or integer
  *---------------------------------------------------------------------*/
 
-int C2F(createlistvarfrom)(integer *lnumber,integer *number,char * typex,integer *m,integer *n,integer *lr,integer *lar,unsigned long type_len)
+int C2F(createlistvarfrom)(int *lnumber,int *number,char * typex,int *m,int *n,int *lr,int *lar,unsigned long type_len)
 {
   unsigned Type = *typex;
-  integer lc, ix1, it = 0, mn = (*m)*(*n),inc=1;
+  int lc, ix1, it = 0, mn = (*m)*(*n),inc=1;
   char *fname = Get_Iname();
   if (*lnumber > intersiz) {
     Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistvar");
@@ -879,9 +879,9 @@ int C2F(createlistvarfrom)(integer *lnumber,integer *number,char * typex,integer
  * create a complex list variable from data
  *---------------------------------------------------------------------*/
 
-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(createlistcvarfrom)(int *lnumber, int *number, char *typex, int *it, int *m,int *n,int *lr,int *lc,int *lar,int *lac, unsigned long type_len)
 {
-  integer ix1;
+  int ix1;
   int mn = (*m)*(*n);
   unsigned char Type = *typex;
   char *fname = Get_Iname();
@@ -951,10 +951,10 @@ int C2F(createlistcvarfrom)(integer *lnumber, integer *number, char *typex, inte
  *     d,r,i : matrix of double,float or integer
  *---------------------------------------------------------------------*/
 
-int C2F(createlistvarfromptr)(integer *lnumber,integer * number,char *typex,integer *m,integer *n,void *iptr,unsigned long type_len)
+int C2F(createlistvarfromptr)(int *lnumber,int * number,char *typex,int *m,int *n,void *iptr,unsigned long type_len)
 {
   unsigned Type = *typex;
-  integer lc, ix1, it = 0, lr,inc=1;
+  int lc, ix1, it = 0, lr,inc=1;
   char *fname = Get_Iname();
   if (*lnumber > intersiz) {
     Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistvarfromptr");
@@ -1056,10 +1056,10 @@ int C2F(createlistvarfromptr)(integer *lnumber,integer * number,char *typex,inte
  *     d,r,i : matrix of double,float or integer
  *---------------------------------------------------------------------*/
 
-int C2F(createlistcvarfromptr)(integer *lnumber,integer *number,char *typex,integer *it,integer *m,integer *n,void *iptr,void *iptc,unsigned long type_len)
+int C2F(createlistcvarfromptr)(int *lnumber,int *number,char *typex,int *it,int *m,int *n,void *iptr,void *iptc,unsigned long type_len)
 {
   unsigned Type = *typex;
-  integer lr,lc, ix1;
+  int lr,lc, ix1;
   char *fname = Get_Iname();
   if (*lnumber > intersiz) {
     Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistvarfromptr");
@@ -1110,7 +1110,7 @@ int C2F(createlistcvarfromptr)(integer *lnumber,integer *number,char *typex,inte
  * the allowed size (in double) is returned in m
  *---------------------------------------------------------------------*/
 
-int C2F(creatework)(integer *number,integer *m,integer *lr)
+int C2F(creatework)(int *number,int *m,int *lr)
 {
   int n,it=0,lw1,lcs,il;
   char *fname = Get_Iname();
@@ -1140,7 +1140,7 @@ int C2F(creatework)(integer *number,integer *m,integer *lr)
  * Moreover informations the objet is recorded
  *---------------------------------------------------------------------*/
 
-int C2F(setworksize)(integer *number,integer *size)
+int C2F(setworksize)(int *number,int *size)
 {
   int lw1;
   char *fname = Get_Iname();
@@ -1168,10 +1168,10 @@ int C2F(setworksize)(integer *number,integer *size)
  *     returns its dimensions
  *---------------------------------------------------------------------*/
 
-int C2F(getmatdims)(integer *number,integer *m,integer *n)
+int C2F(getmatdims)(int *number,int *m,int *n)
 {
   char *fname = Get_Iname();
-  integer il,lw,typ;
+  int il,lw,typ;
 
   lw = *number + Top - Rhs;
   if ( *number > Rhs) {
@@ -1207,15 +1207,15 @@ int C2F(getmatdims)(integer *number,integer *m,integer *n)
  *     see examples in addinter-examples
  *---------------------------------------------------------------------*/
 
-int C2F(getrhsvar)(integer *number,char *typex,integer *m,integer *n,integer *lr,unsigned long type_len)
+int C2F(getrhsvar)(int *number,char *typex,int *m,int *n,int *lr,unsigned long type_len)
 {
        int ierr = 0,il1 = 0,ild1 = 0,nn = 0;
        int lrr = 0;
        char *fname = Get_Iname();
        char **items = NULL, namex[nlgh+1];
        unsigned char Type = *(unsigned char *) typex;
-       integer topk = 0,ltype = 0, m1 = 0, n1 = 0, lc = 0,lr1 = 0, it = 0, lw = 0, ile = 0, ils = 0, ix1 = 0,ix2 = 0;
-       integer mnel = 0,icol = 0;
+       int topk = 0,ltype = 0, m1 = 0, n1 = 0, lc = 0,lr1 = 0, it = 0, lw = 0, ile = 0, ils = 0, ix1 = 0,ix2 = 0;
+       int mnel = 0,icol = 0;
        SciSparse *Sp = NULL;
        SciIntMat *Im = NULL;
        /* we accept a call to getrhsvar after a createvarfromptr call */
@@ -1413,9 +1413,9 @@ int C2F(getrhsvar)(integer *number,char *typex,integer *m,integer *n,integer *lr
  *     like getrhsvar but for complex matrices
  *---------------------------------------------------------------------*/
 
-int C2F(getrhscvar)(integer *number,char *typex,integer *it,integer *m,integer *n,integer *lr,integer *lc,unsigned long type_len)
+int C2F(getrhscvar)(int *number,char *typex,int *it,int *m,int *n,int *lr,int *lc,unsigned long type_len)
 {
-  integer ix1, lw, topk;
+  int ix1, lw, topk;
   unsigned char Type = *typex;
   char *fname = Get_Iname();
 
@@ -1461,9 +1461,9 @@ int C2F(getrhscvar)(integer *number,char *typex,integer *it,integer *m,integer *
  *   the function returns 0.
  *---------------------------------------------------------------------*/
 
-int C2F(elementtype)(integer *lnumber, integer *number)
+int C2F(elementtype)(int *lnumber, int *number)
 {
-  integer il,lw,itype,n,ix,ili;
+  int il,lw,itype,n,ix,ili;
   char *fname = Get_Iname();
 
   if (*lnumber > Rhs) {
@@ -1504,15 +1504,15 @@ int C2F(elementtype)(integer *lnumber, integer *number)
  *     d,r,i : matrix of double,float or integer
  *---------------------------------------------------------------------*/
 
-int C2F(getlistrhsvar)(integer *lnumber,integer *number,char *typex,integer *m,integer *n,integer *lr,unsigned long type_len)
+int C2F(getlistrhsvar)(int *lnumber,int *number,char *typex,int *m,int *n,int *lr,unsigned long type_len)
 {
   int lr1;
   char **items;
   int il1,ild1,nn,ierr=0;
   char *fname = Get_Iname();
-  integer m1, n1, lc, it, lw, topk = Top, ix1,ix2;
+  int m1, n1, lc, it, lw, topk = Top, ix1,ix2;
   unsigned char Type = *typex;
-  integer mnel,icol;
+  int mnel,icol;
   SciSparse *Sp;
   SciIntMat *Im;
 
@@ -1631,9 +1631,9 @@ int C2F(getlistrhsvar)(integer *lnumber,integer *number,char *typex,integer *m,i
  * for complex
  *---------------------------------------------------------------------*/
 
-int C2F(getlistrhscvar)(integer *lnumber,integer *number,char *typex,integer *it,integer *m,integer *n,integer *lr,integer *lc,unsigned long type_len)
+int C2F(getlistrhscvar)(int *lnumber,int *number,char *typex,int *it,int *m,int *n,int *lr,int *lc,unsigned long type_len)
 {
-  integer ix1, topk= Top, lw;
+  int ix1, topk= Top, lw;
   char *fname = Get_Iname();
   unsigned  char    Type = * typex;
 
@@ -1683,7 +1683,7 @@ int C2F(getlistrhscvar)(integer *lnumber,integer *number,char *typex,integer *it
  *
  *---------------------------------------------------------------------*/
 
-int C2F(createvarfromptr)(integer *number,char *typex,integer *m,integer *n,void *iptr,unsigned long type_len)
+int C2F(createvarfromptr)(int *number,char *typex,int *m,int *n,void *iptr,unsigned long type_len)
 {
        static int un=1;
        unsigned char Type = *typex;
@@ -1750,11 +1750,11 @@ int C2F(createvarfromptr)(integer *number,char *typex,integer *m,integer *n,void
  *     for complex
  *---------------------------------------------------------------------*/
 
-int C2F(createcvarfromptr)(integer *number,char *typex,integer *it,integer *m,integer *n,double *iptr,double *iptc,unsigned long type_len)
+int C2F(createcvarfromptr)(int *number,char *typex,int *it,int *m,int *n,double *iptr,double *iptc,unsigned long type_len)
 {
   unsigned char Type = *typex;
   char *fname = Get_Iname();
-  integer lw1, lcs, lrs, ix1;
+  int lw1, lcs, lrs, ix1;
 
   Nbvars = Max(Nbvars,*number);
   if (*number > intersiz) {
@@ -1799,9 +1799,9 @@ int C2F(createcvarfromptr)(integer *number,char *typex,integer *it,integer *m,in
  *     by a list of these variables at position pos
  *---------------------------------------------------------------------*/
 
-int C2F(mklistfromvars)(integer *pos,integer *n)
+int C2F(mklistfromvars)(int *pos,int *n)
 {
-  integer tops =  Top;
+  int tops =  Top;
   int k;
   for ( k= *pos; k < *pos+*n; k++) C2F(convert2sci)(&k);
   Top = Top - Rhs + *pos - 1 + *n;
@@ -1815,10 +1815,10 @@ int C2F(mklistfromvars)(integer *pos,integer *n)
  *     similar to mklistfromvars but create a tlist
  *---------------------------------------------------------------------*/
 
-int C2F(mktlistfromvars)(integer *pos,integer *n)
+int C2F(mktlistfromvars)(int *pos,int *n)
 {
-  integer type=16;
-  integer tops =  Top;
+  int type=16;
+  int tops =  Top;
   int k;
   for ( k= *pos; k < *pos+*n; k++) C2F(convert2sci)(&k);
   Top = Top - Rhs + *pos - 1 + *n;
@@ -1832,10 +1832,10 @@ int C2F(mktlistfromvars)(integer *pos,integer *n)
  *     similar to mklistfromvars but create a mlist
  *---------------------------------------------------------------------*/
 
-int C2F(mkmlistfromvars)(integer *pos,integer *n)
+int C2F(mkmlistfromvars)(int *pos,int *n)
 {
-  integer type=sci_mlist;
-  integer tops =  Top;
+  int type=sci_mlist;
+  int tops =  Top;
   int k;
   for ( k= *pos; k < *pos+*n; k++) C2F(convert2sci)(&k);
   Top = Top - Rhs + *pos - 1 + *n;
@@ -1851,7 +1851,7 @@ int C2F(mkmlistfromvars)(integer *pos,integer *n)
 
 int C2F(callscifun)(char *string,unsigned long string_len)
 {
-  integer id[nsiz];
+  int id[nsiz];
   C2F(cvname)(id, string, &cx0, string_len);
   C2F(putid)(&C2F(recu).ids[(C2F(recu).pt + 1) * nsiz - nsiz], id);
   C2F(com).fun = -1;
@@ -1866,11 +1866,11 @@ int C2F(callscifun)(char *string,unsigned long string_len)
  *     at positions top-mrhs+1:top
  *---------------------------------------------------------------------*/
 
-int C2F(scifunction)(integer *number,integer *ptr,integer *mlhs,integer *mrhs)
+int C2F(scifunction)(int *number,int *ptr,int *mlhs,int *mrhs)
 {
-  integer cx26 = 26;
-  integer ix1, ix, k, intop,  ir, lw;
-  integer imode,ireftop;
+  int cx26 = 26;
+  int ix1, ix, k, intop,  ir, lw;
+  int imode,ireftop;
 
   if ( intersci_push() == 0 )
     {
@@ -1990,7 +1990,7 @@ int C2F(scifunction)(integer *number,integer *ptr,integer *mlhs,integer *mrhs)
     goto L91;
   }
   if (Fin == 0) {
-    integer cx4 = 246;
+    int cx4 = 246;
     Error(cx4);
     if (Err > 0) goto L97;
     goto L90;
@@ -2045,10 +2045,10 @@ int C2F(scifunction)(integer *number,integer *ptr,integer *mlhs,integer *mrhs)
  *     ifisrt,thestring,mlhs and mrhs are input parameters.
  *---------------------------------------------------------------------*/
 
-int C2F(scistring)(integer *ifirst,char *thestring,integer *mlhs,integer *mrhs,unsigned long thestring_len)
+int C2F(scistring)(int *ifirst,char *thestring,int *mlhs,int *mrhs,unsigned long thestring_len)
 {
   int ret = FALSE;
-  integer ifin, ifun, tops, moutputs, id[nsiz], lf, op, ile, ils, nnn, ninputs;
+  int ifin, ifun, tops, moutputs, id[nsiz], lf, op, ile, ils, nnn, ninputs;
   nnn =  thestring_len;
   op = 0;
   if (nnn <= 2) {
@@ -2088,10 +2088,10 @@ int C2F(scistring)(integer *ifirst,char *thestring,integer *mlhs,integer *mrhs,u
   return ret;
 }
 
-integer C2F(getopcode)(char *string,unsigned long string_len)
+int C2F(getopcode)(char *string,unsigned long string_len)
 {
   unsigned char ch = string[0];
-  integer op = 0;
+  int op = 0;
   if (  string_len >= 2) {
     /*     .op  or op. */
     if ( ch  == '.') ch = string[1];
@@ -2118,11 +2118,11 @@ integer C2F(getopcode)(char *string,unsigned long string_len)
  *     mlhs,mrhs = # of lhs and rhs parameters of the function.
  *---------------------------------------------------------------------*/
 
-int C2F(scibuiltin)(integer *number,integer *ifun,integer *ifin,integer *mlhs,integer *mrhs)
+int C2F(scibuiltin)(int *number,int *ifun,int *ifin,int *mlhs,int *mrhs)
 {
-  integer srhs, slhs;
-  integer ix, k, intop, ir, lw, pt0;
-  integer imode,ireftop;
+  int srhs, slhs;
+  int ix, k, intop, ir, lw, pt0;
+  int imode,ireftop;
   intop = Top;
 
   if ( intersci_push() == 0 )
@@ -2227,7 +2227,7 @@ int C2F(scibuiltin)(integer *number,integer *ifun,integer *ifin,integer *mlhs,in
     goto L91;
   }
   if (Fin == 0) {
-    integer cx4 = 246;
+    int cx4 = 246;
     Error(cx4);
     if (Err > 0) goto L97;
     goto L90;
@@ -2273,9 +2273,9 @@ int C2F(scibuiltin)(integer *number,integer *ifun,integer *ifin,integer *mlhs,in
  *     mlhs,mrhs = # of lhs and rhs parameters of the operation.
  *---------------------------------------------------------------------*/
 
-int C2F(sciops)(integer *number,integer *op,integer *mlhs,integer *mrhs)
+int C2F(sciops)(int *number,int *op,int *mlhs,int *mrhs)
 {
-  integer ifin, ifun, srhs= Rhs , slhs= Lhs, ix, intop=Top , lw;
+  int ifin, ifun, srhs= Rhs , slhs= Lhs, ix, intop=Top , lw;
 
   Fin   = *op;
   Top = Top - Rhs + *number + *mrhs - 1;
@@ -2321,13 +2321,13 @@ int C2F(sciops)(integer *number,integer *op,integer *mlhs,integer *mrhs)
  *              h=h    sampled system h=sampling period
  -------------------------------------------------------------*/
 
-int C2F(getrhssys)(integer *lw,integer *n,integer *m,integer *p,integer *ptra,integer *ptrb,integer *ptrc,integer *ptrd,integer *ptrx0,double *hx)
+int C2F(getrhssys)(int *lw,int *n,int *m,int *p,int *ptra,int *ptrb,int *ptrc,int *ptrd,int *ptrx0,double *hx)
 {
-  integer cx2 = 2, cx3 = 3, cx4 = 4, cx5 = 5, cx6 = 6;
-  integer ix1, junk, msys, nsys, ix, icord;
-  integer ma, na, mb, nb, mc, nc, il, md, nd;
-  integer mx0, nx0, ptrsys, itimedomain;
-  static integer iwork[23] = { 10,1,7,0,1,4,5,6,7,8,10,12,21,28,28,-10,-11,
+  int cx2 = 2, cx3 = 3, cx4 = 4, cx5 = 5, cx6 = 6;
+  int ix1, junk, msys, nsys, ix, icord;
+  int ma, na, mb, nb, mc, nc, il, md, nd;
+  int mx0, nx0, ptrsys, itimedomain;
+  static int iwork[23] = { 10,1,7,0,1,4,5,6,7,8,10,12,21,28,28,-10,-11,
                               -12,-13,-33,0,13,29 };
   if (! C2F(getrhsvar)(lw, "t", &msys, &nsys, &ptrsys, 1L)) return FALSE;
   il = iadr(ptrsys) - msys - 1;
@@ -2407,7 +2407,7 @@ int C2F(getrhssys)(integer *lw,integer *n,integer *m,integer *p,integer *ptra,in
  * call Scilab error function (for Fortran use)
  *---------------------------------------------------*/
 
-int C2F(errorinfo)(char *fname,integer *info,unsigned long fname_len)
+int C2F(errorinfo)(char *fname,int *info,unsigned long fname_len)
 {
   Scierror(998,_("%s: internal error, info=%d.\n"),get_fname(fname,fname_len),*info);
   return 0;
@@ -2428,11 +2428,11 @@ int C2F(errorinfo)(char *fname,integer *info,unsigned long fname_len)
  *     call pipo(   ,stk(idwork),[lwork],...)
  *-------------------------------------------------------------*/
 
-integer C2F(maxvol)(integer *lw,char *lw_type,unsigned long type_len)
+int C2F(maxvol)(int *lw,char *lw_type,unsigned long type_len)
 {
   unsigned char Type =  *(unsigned char *)lw_type ;
   /* I like this one a lot: a kind of free jazz pattern  */
-  integer m = *Lstk(Bot) - sadr(iadr(*Lstk(*lw + Top - Rhs)) +4);
+  int m = *Lstk(Bot) - sadr(iadr(*Lstk(*lw + Top - Rhs)) +4);
   switch ( Type )
     {
     case 'd' : return m; break;
@@ -2513,8 +2513,8 @@ static int Check_references()
 
 int C2F(putlhsvar)()
 {
-  integer ix2, ivar, ibufprec, ix, k, lcres, nbvars1;
-  integer plhsk;
+  int ix2, ivar, ibufprec, ix, k, lcres, nbvars1;
+  int plhsk;
   Check_references();
 
   for (k = 1; k <= Lhs; k++)
@@ -2608,17 +2608,17 @@ int C2F(putlhsvar)()
  *                         position itopl
  *---------------------------------------------------------------------*/
 
-static int C2F(mvfromto)(integer *itopl,integer *ix)
-{
-  integer ix1=0;
-  integer m=0;
-  integer n=0;
-  integer it=0;
-  integer lcs=0;
-  integer lrs=0;
-  integer l=0;
-  integer size=0;
-  integer pointed=0;
+static int C2F(mvfromto)(int *itopl,int *ix)
+{
+  int ix1=0;
+  int m=0;
+  int n=0;
+  int it=0;
+  int lcs=0;
+  int lrs=0;
+  int l=0;
+  int size=0;
+  int pointed=0;
   unsigned long int ilp=0;
   unsigned char Type;
   double wsave;
@@ -2761,7 +2761,7 @@ static int C2F(mvfromto)(integer *itopl,integer *ix)
 
 int Ref2val(int from , int to )
 {
-  integer il,lw;
+  int il,lw;
   lw = from + Top - Rhs;
   if ( from  > Rhs)
   {
@@ -2787,9 +2787,9 @@ int Ref2val(int from , int to )
  *     see how it is used in matdes.c
  *---------------------------------------------------------------------*/
 
-int C2F(convert2sci)(integer *ix)
+int C2F(convert2sci)(int *ix)
 {
-  integer ix1 = Top - Rhs + *ix;
+  int ix1 = Top - Rhs + *ix;
   if (! C2F(mvfromto)(&ix1, ix)) return FALSE;
   C2F(intersci).ntypes[*ix - 1] = '$';
   return TRUE;
@@ -2816,7 +2816,7 @@ void strcpy_tws(char *str1,char *str2, int len)
  *     + add a 0 at end of string
  *---------------------------------------------------------------------*/
 
-int C2F(in2str)(integer *n,integer *line,char *str,unsigned long str_len)
+int C2F(in2str)(int *n,int *line,char *str,unsigned long str_len)
 {
   C2F(codetoascii)(n,line, str, str_len);
   str[*n] = '\0';
@@ -3056,9 +3056,9 @@ int check_list_one_dim(int lpos,int posi,int dim,int val,int valref)
  * Utility for hand writen data extraction or creation
  *---------------------------------------------------------------------*/
 
-int C2F(createdata)(integer *lw, integer n)
+int C2F(createdata)(int *lw, int n)
 {
-  integer lw1;
+  int lw1;
   char *fname = Get_Iname();
   if (*lw > intersiz) {
     Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createdata");
@@ -3084,7 +3084,7 @@ int C2F(createdata)(integer *lw, integer n)
  *      - its size n
  *    to the variable position  lw
  *----------------------------------------------------------------------*/
-int C2F(copyvarfromsciptr)(integer lw, integer n,integer l)
+int C2F(copyvarfromsciptr)(int lw, int n,int l)
 {
   int ret,un=1;
   if ((ret=C2F(createdata)(&lw, n))==FALSE) return ret;
@@ -3093,7 +3093,7 @@ int C2F(copyvarfromsciptr)(integer lw, integer n,integer l)
 }
 
 void * GetVarPtr(int n)
-     /* return  the pointer on the first integer of the n th variable  data structure  */
+     /* return  the pointer on the first int of the n th variable  data structure  */
 
 {
   int l1 = *Lstk(n + Top - Rhs);
index cce5090..8f2c1c4 100644 (file)
@@ -25,8 +25,8 @@
 #include "localization.h"
 #include "Scierror.h" 
 #include "code2str.h"
-extern int C2F(dmcopy)(double *a, integer *na, double *b, integer *nb, integer *m, integer *n);
-extern int C2F(stackp)(integer *id, integer *macmod);
+extern int C2F(dmcopy)(double *a, int *na, double *b, int *nb, int *m, int *n);
+extern int C2F(stackp)(int *id, int *macmod);
 
 /*------------------------------------------------------*/
 void *Name2ptr(char *namex);
@@ -34,14 +34,14 @@ int Name2where(char *namex);
 
 /* Table of constant values */
 
-static integer cx0 = 0;
-static integer cx1 = 1;
+static int cx0 = 0;
+static int cx1 = 1;
 
 /*------------------------------------------------------
  * read a matrix
  *------------------------------------------------------*/
 
-int C2F(readmat)(char *namex,integer *m, integer *n, double *scimat, unsigned long name_len)
+int C2F(readmat)(char *namex,int *m, int *n, double *scimat, unsigned long name_len)
 {
   C2F(creadmat)(namex, m, n, scimat, name_len);
   return 0;
@@ -69,10 +69,10 @@ int C2F(readmat)(char *namex,integer *m, integer *n, double *scimat, unsigned lo
  *                      scimat(6)=Amat(3,2)
  *----------------------------------------------------------------*/
 
-int C2F(creadmat)(char *namex, integer *m, integer *n, double *scimat, unsigned long name_len)
+int C2F(creadmat)(char *namex, int *m, int *n, double *scimat, unsigned long name_len)
 {
-    integer l;
-    integer id[nsiz];
+    int l;
+    int id[nsiz];
 
     C2F(str2name)(namex, id, name_len);
     /* read   : from scilab stack -> fortran variable */
@@ -118,10 +118,10 @@ int C2F(creadmat)(char *namex, integer *m, integer *n, double *scimat, unsigned
  *
  *----------------------------------------------------------------*/
 
-int C2F(creadcmat)(char *namex, integer *m, integer *n, double *scimat, unsigned long name_len)
+int C2F(creadcmat)(char *namex, int *m, int *n, double *scimat, unsigned long name_len)
 {
-    integer l, ix1;
-    integer id[nsiz];
+    int l, ix1;
+    int id[nsiz];
 
     C2F(str2name)(namex, id, name_len);
     /* read   : from scilab stack -> fortran variable */
@@ -151,11 +151,11 @@ int C2F(creadcmat)(char *namex, integer *m, integer *n, double *scimat, unsigned
  * mat: matrix entries stored columnwise in Scilab object
 ----------------------------------------------------------------*/
 
-int C2F(cwritemat)(char *namex, integer *m, integer *n,  double *mat, unsigned long name_len)
+int C2F(cwritemat)(char *namex, int *m, int *n,  double *mat, unsigned long name_len)
 {
-  integer   ix1 = *m * *n;
-  integer Rhs_k = Rhs , Top_k = Top ;
-  integer l4, id[nsiz], lc, lr;
+  int   ix1 = *m * *n;
+  int Rhs_k = Rhs , Top_k = Top ;
+  int l4, id[nsiz], lc, lr;
 
   C2F(str2name)(namex, id, name_len);
 
@@ -184,11 +184,11 @@ int C2F(cwritemat)(char *namex, integer *m, integer *n,  double *mat, unsigned l
 * for complex number
 */
 /*--------------------------------------------------------------------------*/
-int C2F(cwritecmat)(char *namex,integer *m, integer*n,double *mat,unsigned long name_len)
+int C2F(cwritecmat)(char *namex,int *m, int*n,double *mat,unsigned long name_len)
 {
-       integer   ix1 = *m * *n *2; /* real part + imaginary part */
-       integer Rhs_k = Rhs , Top_k = Top ;
-       integer l4, id[nsiz], lc, lr;
+       int   ix1 = *m * *n *2; /* real part + imaginary part */
+       int Rhs_k = Rhs , Top_k = Top ;
+       int l4, id[nsiz], lc, lr;
        int IT=1; /* Type Complex */
 
        C2F(str2name)(namex, id, name_len);
@@ -210,8 +210,8 @@ int C2F(cwritecmat)(char *namex,integer *m, integer*n,double *mat,unsigned long
  /* Put variable number into Scilab internal stack with name "namex" */
 int C2F(putvar)(int  *number,char *namex,  unsigned long name_len)
 {
-  integer Rhs_k = Rhs , Top_k = Top ;
-  integer l4, id[nsiz],/* lc, lr,*/ cx0_2=1;
+  int Rhs_k = Rhs , Top_k = Top ;
+  int l4, id[nsiz],/* lc, lr,*/ cx0_2=1;
 
   C2F(str2name)(namex, id, name_len);
   Top = *number + Top -Rhs;
@@ -230,7 +230,7 @@ int C2F(putvar)(int  *number,char *namex,  unsigned long name_len)
  *     see creadchain
  *------------------------------------------------------*/
 
-int C2F(readchain)(char *namex,  integer *itslen, char *chai,  unsigned long name_len, unsigned long chai_len)
+int C2F(readchain)(char *namex,  int *itslen, char *chai,  unsigned long name_len, unsigned long chai_len)
 {
     C2F(creadchain)(namex, itslen, chai, name_len, chai_len);
     return 0;
@@ -240,7 +240,7 @@ int C2F(readchain)(char *namex,  integer *itslen, char *chai,  unsigned long nam
  *     this routine reads a string in scilab's  memory
  *     and store it into chai
  * !calling sequence
- *     integer       itslen
+ *     int       itslen
  *     character*(*) chai,name
  *     name    : character string = name of scilab variable (input)
  *     chai    : chain to be read (output)
@@ -254,13 +254,13 @@ int C2F(readchain)(char *namex,  integer *itslen, char *chai,  unsigned long nam
  *     logic= creadchain('x',l,ch) returns l=5 and ch='qwert'
  *------------------------------------------------------*/
 
-int C2F(creadchain)(char *namex,  integer *itslen,  char *chai,  unsigned long name_len,  unsigned long chai_len)
+int C2F(creadchain)(char *namex,  int *itslen,  char *chai,  unsigned long name_len,  unsigned long chai_len)
 {
-    integer ix1;
-    integer m1, n1;
-    integer id[nsiz];
-    integer lr1;
-    integer nlr1;
+    int ix1;
+    int m1, n1;
+    int id[nsiz];
+    int lr1;
+    int nlr1;
 
     Err = 0;
     C2F(str2name)(namex, id, name_len);
@@ -295,7 +295,7 @@ int C2F(creadchain)(char *namex,  integer *itslen,  char *chai,  unsigned long n
  *     if ir=ic=-1 on entry then the routines returns in ir,ic
  *     the size of the matrix
  * !calling sequence
- *     integer       itslen
+ *     int       itslen
  *     character*(*) chai,name
  *     name    : character string = name of scilab variable (input)
  *     chai    : chain to be read (output)
@@ -310,13 +310,13 @@ int C2F(creadchain)(char *namex,  integer *itslen,  char *chai,  unsigned long n
  *----------------------------------------------------------------------*/
 
 
-int C2F(creadchains)(char *namex, integer *ir, integer *ic, integer *itslen, char *chai, unsigned long name_len,  unsigned long chai_len)
+int C2F(creadchains)(char *namex, int *ir, int *ic, int *itslen, char *chai, unsigned long name_len,  unsigned long chai_len)
 {
-    integer ix1;
-    integer m1, n1;
-    integer id[nsiz];
-    integer lr1;
-    integer nlr1;
+    int ix1;
+    int m1, n1;
+    int id[nsiz];
+    int lr1;
+    int nlr1;
 
     Err = 0;
     C2F(str2name)(namex, id, name_len);
@@ -358,11 +358,11 @@ int C2F(creadchains)(char *namex, integer *ir, integer *ic, integer *itslen, cha
  *  mat: matrix entries stored columnwise in Scilab object
  *----------------------------------------------------------------*/
 
-int C2F(cwritechain)(char *namex, integer *m, char *chai, unsigned long name_len, unsigned long chai_len)
+int C2F(cwritechain)(char *namex, int *m, char *chai, unsigned long name_len, unsigned long chai_len)
 {
-    integer Rhs_k, Top_k;
-    integer l4;
-    integer id[nsiz], lr;
+    int Rhs_k, Top_k;
+    int l4;
+    int id[nsiz], lr;
     C2F(str2name)(namex, id, name_len);
     Top_k = Top;
 
@@ -387,7 +387,7 @@ int C2F(cwritechain)(char *namex, integer *m, char *chai, unsigned long name_len
  *     see cmatptr
  *----------------------------------------------------------------*/
 
-int C2F(matptr)(char *namex, integer *m, integer *n, integer *lp, unsigned long name_len)
+int C2F(matptr)(char *namex, int *m, int *n, int *lp, unsigned long name_len)
 {
   C2F(cmatptr)(namex, m, n, lp, name_len);
   return 0;
@@ -416,9 +416,9 @@ int C2F(matptr)(char *namex, integer *m, integer *n, integer *lp, unsigned long
  *   see also  readmat.f, matz.f
  *----------------------------------------------------------------*/
 
-int C2F(cmatptr)(char *namex, integer *m,integer *n,integer *lp, unsigned long name_len)
+int C2F(cmatptr)(char *namex, int *m,int *n,int *lp, unsigned long name_len)
 {
-    integer id[nsiz];
+    int id[nsiz];
     C2F(str2name)(namex, id, name_len);
     /* get the position in fin */
     Fin = -1;
@@ -468,9 +468,9 @@ int C2F(cmatptr)(char *namex, integer *m,integer *n,integer *lp, unsigned long n
  *
  *----------------------------------------------------------------*/
 
-int C2F(cmatcptr)(char *namex, integer *m, integer *n, integer *lp, unsigned long name_len)
+int C2F(cmatcptr)(char *namex, int *m, int *n, int *lp, unsigned long name_len)
 {
-    integer id[nsiz];
+    int id[nsiz];
     C2F(str2name)(namex, id, name_len);
     /* get the position in fin */
     Fin = -1;
@@ -514,9 +514,9 @@ int C2F(cmatcptr)(char *namex, integer *m, integer *n, integer *lp, unsigned lon
  *   see also  readmat.f, matz.f
  *----------------------------------------------------------------*/
 
-int C2F(cmatsptr)(char *namex, integer *m, integer *n,integer *ix,integer *j,integer *lp,integer *nlr, unsigned long name_len)
+int C2F(cmatsptr)(char *namex, int *m, int *n,int *ix,int *j,int *lp,int *nlr, unsigned long name_len)
 {
-    integer id[nsiz];
+    int id[nsiz];
     C2F(str2name)(namex, id, name_len);
     /* get the position in fin */
     Fin = -1;
@@ -546,7 +546,7 @@ int C2F(cmatsptr)(char *namex, integer *m, integer *n,integer *ix,integer *j,int
 void *Name2ptr(char *namex)
 {
   int l1; int *loci;
-  integer id[nsiz];
+  int id[nsiz];
   C2F(str2name)(namex, id, (unsigned long)strlen(namex));
   /* get the position in fin */
   Fin = -1;
@@ -582,7 +582,7 @@ void *Name2ptr(char *namex)
 */
 int Name2where(char *namex)
 {
-  integer id[nsiz];
+  int id[nsiz];
   C2F(str2name)(namex, id, (unsigned long)strlen(namex));
   /* get the position in fin */
   Fin = -1;
@@ -602,12 +602,12 @@ int Name2where(char *namex)
  *             since it can be wrong (ex when name is transmited
  *             by fort (intfort : function )
  *----------------------------------------------------------------*/
-int C2F(str2name)(char *namex, integer *id, unsigned long name_len)
+int C2F(str2name)(char *namex, int *id, unsigned long name_len)
 {
-       integer ix = 0;
-       integer lon = 0;
+       int ix = 0;
+       int lon = 0;
 
-       for (ix = 0 ; ix < (integer) name_len ; ix++ ) 
+       for (ix = 0 ; ix < (int)  name_len ; ix++ ) 
        {
                if ( namex[ix] == '\0') break;
                lon++;
@@ -632,9 +632,9 @@ int C2F(str2name)(char *namex, integer *id, unsigned long name_len)
  *     in scilab's internal stack
  *----------------------------------------------------------------*/
 
-int C2F(objptr)(char *namex, integer *lp, integer *fin, unsigned long name_len)
+int C2F(objptr)(char *namex, int *lp, int *fin, unsigned long name_len)
 {
-    integer id[nsiz];
+    int id[nsiz];
     *lp = 0;
     /*     ---- get the id */
     C2F(str2name)(namex, id, name_len);
@@ -657,10 +657,10 @@ int C2F(objptr)(char *namex, integer *lp, integer *fin, unsigned long name_len)
 /*--------------------------------------------------------------------------*/
 /* read and write a boolean matrix in scilab stack */
 /*--------------------------------------------------------------------------*/
-int C2F(creadbmat)(char *namex, integer *m, integer *n, int *scimat, unsigned long name_len)
+int C2F(creadbmat)(char *namex, int *m, int *n, int *scimat, unsigned long name_len)
 {
-       integer l = 0;
-       integer id[nsiz];
+       int l = 0;
+       int id[nsiz];
        int c_x = 1;
        int N = 0;
 
@@ -684,11 +684,11 @@ int C2F(creadbmat)(char *namex, integer *m, integer *n, int *scimat, unsigned lo
        return TRUE;
 }
 /*--------------------------------------------------------------------------*/
-int C2F(cwritebmat)(char *namex, integer *m, integer *n,  int *mat, unsigned long name_len)
+int C2F(cwritebmat)(char *namex, int *m, int *n,  int *mat, unsigned long name_len)
 {
-       integer   ix1 = *m * *n;
-       integer Rhs_k = Rhs , Top_k = Top ;
-       integer l4, id[nsiz], lr;
+       int   ix1 = *m * *n;
+       int Rhs_k = Rhs , Top_k = Top ;
+       int l4, id[nsiz], lr;
 
        C2F(str2name)(namex, id, name_len);
        Top = Top + Nbvars + 1;
@@ -707,9 +707,9 @@ int C2F(cwritebmat)(char *namex, integer *m, integer *n,  int *mat, unsigned lon
 
 }
 /*--------------------------------------------------------------------------*/
-int C2F(cmatbptr)(char *namex, integer *m,integer *n,integer *lp, unsigned long name_len)
+int C2F(cmatbptr)(char *namex, int *m,int *n,int *lp, unsigned long name_len)
 {
-       integer id[nsiz];
+       int id[nsiz];
        C2F(str2name)(namex, id, name_len);
        /* get the position in fin */
        Fin = -1;
@@ -742,10 +742,10 @@ int C2F(cmatbptr)(char *namex, integer *m,integer *n,integer *lp, unsigned long
 */
 int getlengthchain(char *namex)
 {
-       integer m1, n1;
-       integer id[nsiz];
-       integer lr1;
-       integer nlr1;
+       int m1, n1;
+       int id[nsiz];
+       int lr1;
+       int nlr1;
        unsigned long name_len= (unsigned long)strlen(namex);
 
        Err = 0;
index 0efd862..be5bb7f 100644 (file)
 /*--------------------------------------------------------------------------*/
 static void cleanFortranString(char *fortanbuffer);
 /*--------------------------------------------------------------------------*/
-integer C2F(getstackinfo)(integer *total,integer *used)
+int C2F(getstackinfo)(int *total,int *used)
 {
        *used = C2F(vstk).lstk[C2F(vstk).isiz - 1] - C2F(vstk).lstk[Bot - 1] + 1;
        *total = C2F(vstk).lstk[C2F(vstk).isiz - 1] - C2F(vstk).lstk[0];
        return(0);
 }
 /*--------------------------------------------------------------------------*/
-integer C2F(getgstackinfo)(integer *total,integer *used)
+int C2F(getgstackinfo)(int *total,int *used)
 {
        *used = C2F(vstk).lstk[C2F(vstk).gtop] - C2F(vstk).lstk[C2F(vstk).isiz + 1] + 1;
        *total = C2F(vstk).lstk[C2F(vstk).gbot - 1] - C2F(vstk).lstk[C2F(vstk).isiz + 1] ;
        return(0);
 }
 /*--------------------------------------------------------------------------*/
-integer C2F(getvariablesinfo)(integer *total,integer *used)
+int C2F(getvariablesinfo)(int *total,int *used)
 {
        *used = C2F(vstk).isiz - Bot ;
        *total = C2F(vstk).isiz - 1;
        return 0;
 }
 /*--------------------------------------------------------------------------*/
-integer C2F(getgvariablesinfo)(integer *total,integer *used)
+int C2F(getgvariablesinfo)(int *total,int *used)
 {
        *used = C2F(vstk).gtop - C2F(vstk).isiz - 1;
        *total = 10000 - C2F(vstk).isiz - 1;
        return 0;
 }
 /*--------------------------------------------------------------------------*/
-integer getIntermediateMemoryNeeded(void)
+int getIntermediateMemoryNeeded(void)
 {
        return (Err + C2F(vstk).lstk[Bot - 1] - C2F(vstk).lstk[0]);
 }
@@ -104,8 +104,8 @@ unsigned long get_max_memory_for_scilab_stack(void)
 /*--------------------------------------------------------------------------*/
 char *getLocalNamefromId(int n)
 {
-       integer *id=NULL;       
-       integer one = 1;
+       int *id=NULL;   
+       int one = 1;
        char *Name=NULL;
        char fortranName[nlgh+1];
 
@@ -125,8 +125,8 @@ char *getLocalNamefromId(int n)
 /*--------------------------------------------------------------------------*/
 char *getGlobalNamefromId(int n)
 {
-       integer *id=NULL;       
-       static integer one = 1;
+       int *id=NULL;   
+       static int one = 1;
        char *Name=NULL;
        char fortranName[nlgh+1];
 
index e7dd350..7bff157 100644 (file)
@@ -32,7 +32,7 @@ int C2F(terme)(void)
 
   int r = 0;
 
-  /* integer equal,less,great,char_not */
+  /* int equal,less,great,char_not */
   r = C2F(recu).rstk[(constnumber + (0 + ( (C2F(recu).pt - 1) << 2)) - constnumber) / 4];
 
   if (C2F(iop).ddt == 4) { }
index a53c6d6..1dbecd5 100644 (file)
@@ -34,7 +34,7 @@ int gw_data_structures1(void)
        Rhs=Max(Rhs,0);
        if (Top - Rhs + Lhs + 1 >= Bot)
        {
-               static integer codeerror = 18;
+               static int codeerror = 18;
                Error(codeerror);
                return 0;
        }
index a61672e..9e7395f 100644 (file)
@@ -27,7 +27,7 @@ int gw_data_structures2(void)
        Rhs=Max(Rhs,0);
        if (Top - Rhs + Lhs + 1 >= Bot)
        {
-               static integer codeerror = 18;
+               static int codeerror = 18;
                Error(codeerror);
                return 0;
        }
index 7343335..055e8de 100644 (file)
 #define memused(it,mn) ((((mn)*( it % 10))/sizeof(int))+1)
 
 /* Table of constant values */
-static integer c17 = 17;
-static integer c1 = 1;
-static integer c4 = 4;
+static int c17 = 17;
+static int c1 = 1;
+static int c4 = 4;
 
 
-int C2F(stcreate)(integer *lw, integer *nz, integer *sz, integer *nf, char *fnames[], integer *retval)
+int C2F(stcreate)(int *lw, int *nz, int *sz, int *nf, char *fnames[], int *retval)
 {
-    integer next,k,lr,nels;
+    int next,k,lr,nels;
 
-    static integer l;
-    static integer l0, n1, il;
+    static int l;
+    static int l0, n1, il;
 
     *retval = 0;
     l0 = *Lstk(*lw);
@@ -95,7 +95,7 @@ int C2F(stcreate)(integer *lw, integer *nz, integer *sz, integer *nf, char *fnam
     return 1;
 }
 
-int creonevoid(integer *slw,integer *lw)
+int creonevoid(int *slw,int *lw)
 {
   int il;
   il = iadr(*slw);
@@ -108,7 +108,7 @@ int creonevoid(integer *slw,integer *lw)
   return 0;
 }
 
-int crelistofvoids(integer *slw,integer *lw,integer *nels)
+int crelistofvoids(int *slw,int *lw,int *nels)
 {
   int il,k;
   il = iadr(*slw);
index 29280b3..38704ad 100644 (file)
 #define __STCREATE_H__
 
 #include "machine.h"
-int C2F(stcreate)(integer *lw, integer *nz, integer *sz, integer *nf, char *fnames[], integer *retval);
+int C2F(stcreate)(int *lw, int *nz, int *sz, int *nf, char *fnames[], int *retval);
 
 int sttyp(int *ivt, char *job, int *nf, char *fnames[]);
 
-int creonevoid(integer *slw,integer *lw);
+int creonevoid(int *slw,int *lw);
 
-int crelistofvoids(integer *slw,integer *lw,integer *nels);
+int crelistofvoids(int *slw,int *lw,int *nels);
 
 #endif /* __STCREATE_H__ */
index 2503688..f24a0fe 100644 (file)
 *   corr uses : fcoldg , fcolg, fcoldf,fcolf,fcolgu
 ***********************************/
 
-#define ARGS_fcoldg integer*,double *,double*
+#define ARGS_fcoldg int*,double *,double*
 typedef void (*fcoldgf)(ARGS_fcoldg);
 
-#define ARGS_fcolg integer*,double *,double*
+#define ARGS_fcolg int*,double *,double*
 typedef void (*fcolgf)(ARGS_fcolg);
 
 #define ARGS_fcoldf double *,double *,double*
@@ -84,7 +84,7 @@ static fcoldgf fcoldgfonc ;
 
 /** function call **/
 
-void C2F(fcoldg)(integer *i, double *z, double *dg)
+void C2F(fcoldg)(int *i, double *z, double *dg)
 {
        (*fcoldgfonc)(i,z,dg);
 }
@@ -103,7 +103,7 @@ static fcolgf fcolgfonc ;
 
 /** function call **/
 
-void C2F(fcolg)(integer *i, double *z, double *g)
+void C2F(fcolg)(int *i, double *z, double *g)
 {
        (*fcolgfonc)(i,z,g);
 }
index 02e80d7..e050f40 100644 (file)
 * Search Table for dassl 
 ***********************************/
 
-#define ARGS_fresd double *,double*,double*,double*,integer*,double*,integer*
-typedef integer * (*fresdf)(ARGS_fresd);
+#define ARGS_fresd double *,double*,double*,double*,int*,double*,int*
+typedef int * (*fresdf)(ARGS_fresd);
 
-#define ARGS_fjacd double *,double*,double*,double*,double*,double*,integer*
-typedef integer * (*fjacdf)(ARGS_fjacd);
+#define ARGS_fjacd double *,double*,double*,double*,double*,double*,int*
+typedef int * (*fjacdf)(ARGS_fjacd);
 
 /***********************************
 * Search Table for dasrt 
 ***********************************/
 
-#define ARGS_fsurfd integer*,double *,double*,integer*,double*,double*,integer*
-typedef integer * (*fsurfdf)(ARGS_fsurfd);
+#define ARGS_fsurfd int*,double *,double*,int*,double*,double*,int*
+typedef int * (*fsurfdf)(ARGS_fsurfd);
 
 
-#define ARGS_fsurf integer*,double *,double*,integer*,double*
-typedef integer * (*fsurff)(ARGS_fsurf);
+#define ARGS_fsurf int*,double *,double*,int*,double*
+typedef int * (*fsurff)(ARGS_fsurf);
 
 /**************** fresd ***************/
 extern void C2F(dres1)(ARGS_fresd);
@@ -92,7 +92,7 @@ static fresdf fresdfonc ;
 
 /** function call **/
 
-void C2F(fresd)(double *t, double *y, double *ydot, double *res, integer *ires, double *rpar, integer *ipar)
+void C2F(fresd)(double *t, double *y, double *ydot, double *res, int *ires, double *rpar, int *ipar)
 {
        (*fresdfonc)(t,y,ydot,res,ires,rpar,ipar);
 }
@@ -111,7 +111,7 @@ static fjacdf fjacdfonc ;
 
 /** function call **/
 
-void C2F(fjacd)(double *t, double *y, double *ydot, double *pd, double *cj, double *rpar, integer *ipar)
+void C2F(fjacd)(double *t, double *y, double *ydot, double *pd, double *cj, double *rpar, int *ipar)
 {
        (*fjacdfonc)(t,y,ydot,pd,cj,rpar,ipar);
 }
@@ -131,7 +131,7 @@ static fsurfdf fsurfdfonc ;
 /** function call **/
 
 
-void C2F(fsurfd)(integer *neq, double *t, double *y, integer *ng, double *gout, double *rpar, integer *ipar)
+void C2F(fsurfd)(int *neq, double *t, double *y, int *ng, double *gout, double *rpar, int *ipar)
 {
        (*fsurfdfonc)(neq,t,y,ng,gout,rpar,ipar);
 }
@@ -153,7 +153,7 @@ static fsurff fsurffonc ;
 
 /** function call **/
 
-void C2F(fsurf)(integer *ny, double *t, double *y, integer *ng, double *gout)
+void C2F(fsurf)(int *ny, double *t, double *y, int *ng, double *gout)
 {
        (*fsurffonc)(ny, t, y, ng, gout) ;
 }
index b143963..4a701ae 100644 (file)
@@ -16,7 +16,7 @@
 * feval (ffeval)
 ***********************************/
 
-#define ARGS_ffeval integer*,double *,double *,double *,integer*,char *
+#define ARGS_ffeval int*,double *,double *,double *,int*,char *
 typedef void (*ffevalf)(ARGS_ffeval);
 
 /**************** ffeval ***************/
@@ -39,7 +39,7 @@ static ffevalf fevalfonc ;
 
 /** function call **/
 
-void C2F(ffeval)(integer *nn, double *x1, double *x2, double *xres, integer *itype, char *name)
+void C2F(ffeval)(int *nn, double *x1, double *x2, double *xres, int *itype, char *name)
 {
        (*fevalfonc)(nn,x1,x2,xres,itype,name);
 }
index 4c13b2c..796cb50 100644 (file)
  */
 #include "AddFunctionInTable.h"
 
-extern int C2F(getcodc)(integer *nd1, integer *iflag1);
+extern int C2F(getcodc)(int *nd1, int *iflag1);
 
 /***********************************
 * Search Table for odedc
 ***********************************/
 
-#define ARGS_fydot2 integer*, integer*,integer*,double *,double*,double* 
-#define ARGS_fydot2f integer *, double *, double *, double *
-typedef integer * (*fydot2f)(ARGS_fydot2);
+#define ARGS_fydot2 int*, int*,int*,double *,double*,double* 
+#define ARGS_fydot2f int *, double *, double *, double *
+typedef int * (*fydot2f)(ARGS_fydot2);
 
 
 /**************** fydot2 ***************/
@@ -52,9 +52,9 @@ static fydot2f fydot2fonc ;
 
 /** function call **/
 
-void C2F(fydot2)(integer *n, double *t, double *y, double *ydot)
+void C2F(fydot2)(int *n, double *t, double *y, double *ydot)
 {
-       integer nd1,iflag1;
+       int nd1,iflag1;
        C2F(getcodc)(&nd1,&iflag1);
        (*fydot2fonc)(&iflag1,n,&nd1,t,y,ydot);
 }
index fee4f6c..53f1d64 100644 (file)
  **/
 
 
-typedef void (*fydotf)(integer*,double *,double *,double *);
+typedef void (*fydotf)(int*,double *,double *,double *);
 
-#define ARGS_fjac integer*,double *,double *,integer*,integer*,double*,integer*
+#define ARGS_fjac int*,double *,double *,int*,int*,double*,int*
 typedef void (*fjacf)(ARGS_fjac);
 
 /**************** fydot ***************/
-extern void C2F(fex)(integer*,double *,double *,double *);
-extern void C2F(fex2)(integer*,double *,double *,double *);
-extern void C2F(fex3)(integer*,double *,double *,double *);
-extern void C2F(fexab)(integer*,double *,double *,double *);
-extern void C2F(loren)(integer*,double *,double *,double *);
-extern void C2F(bcomp)(integer*,double *,double *,double *);
-extern void C2F(lcomp)(integer*,double *,double *,double *);
-void C2F(fydot)(integer*,double *,double *,double *);
+extern void C2F(fex)(int*,double *,double *,double *);
+extern void C2F(fex2)(int*,double *,double *,double *);
+extern void C2F(fex3)(int*,double *,double *,double *);
+extern void C2F(fexab)(int*,double *,double *,double *);
+extern void C2F(loren)(int*,double *,double *,double *);
+extern void C2F(bcomp)(int*,double *,double *,double *);
+extern void C2F(lcomp)(int*,double *,double *,double *);
+void C2F(fydot)(int*,double *,double *,double *);
 void C2F(setfydot)(char *name, int *rep);
 
 FTAB FTab_fydot[] ={
@@ -68,7 +68,7 @@ static fydotf fydotfonc ;
 
 /** function call **/
 
-void C2F(fydot)(integer *n, double *t, double *y, double *ydot)
+void C2F(fydot)(int *n, double *t, double *y, double *ydot)
 {
        (*fydotfonc)(n,t,y,ydot);
 }
@@ -87,7 +87,7 @@ static fjacf fjacfonc ;
 
 /** function call **/
 
-void C2F(fjac)(integer *neq, double *t, double *y, integer *ml, integer *mu, double *pd, integer *nrpd)
+void C2F(fjac)(int *neq, double *t, double *y, int *ml, int *mu, double *pd, int *nrpd)
 {
        (*fjacfonc)(neq, t, y, ml, mu, pd, nrpd);
 }
index 71f9e5b..19b2767 100644 (file)
 * impl   (  fres, fadda, fj2 )
 ***********************************/
 
-#define ARGS_fres integer*,double *,double *,double *,double*,integer*
+#define ARGS_fres int*,double *,double *,double *,double*,int*
 typedef void (*fresf)(ARGS_fres);
 
 
-#define ARGS_fadda integer*,double *,double *,integer*,integer*,double*,integer*
+#define ARGS_fadda int*,double *,double *,int*,int*,double*,int*
 typedef void (*faddaf)(ARGS_fadda);
 
-#define ARGS_fj2 integer *,double *,double *,double *,integer *,integer *,double*,integer *
+#define ARGS_fj2 int *,double *,double *,double *,int *,int *,double*,int *
 typedef void (*fj2f)(ARGS_fj2);
 
 /**************** fres ***************/
@@ -61,7 +61,7 @@ static fresf fresfonc ;
 
 /** function call **/
 
-void C2F(fres)(integer *ny, double *t, double *y, double *s, double *r, integer *ires)
+void C2F(fres)(int *ny, double *t, double *y, double *s, double *r, int *ires)
 {
        (*fresfonc)(ny,t,y,s,r,ires);
 }
@@ -78,7 +78,7 @@ void C2F(setfres)(char *name, int *rep)
 
 static faddaf faddafonc ;
 
-void C2F(fadda)(integer *ny, double *t, double *y, integer *ml, integer *mu, double *p, integer *nrowp)
+void C2F(fadda)(int *ny, double *t, double *y, int *ml, int *mu, double *p, int *nrowp)
 {
        (*faddafonc)(ny,t,y,ml,mu,p,nrowp);
 }
@@ -97,7 +97,7 @@ static fj2f fj2fonc ;
 
 /** function call **/
 
-void C2F(fj2)(integer *ny, double *t, double *y, double *s, integer *ml, integer *mu, double *p, integer *nrowp)
+void C2F(fj2)(int *ny, double *t, double *y, double *s, int *ml, int *mu, double *p, int *nrowp)
 {
        (*fj2fonc)(ny,t,y,s,ml,mu,p,nrowp);
 }
index 534c3e2..ce23d44 100644 (file)
@@ -15,7 +15,7 @@
 * Search Table for int3d
 ***********************************/
 
-#define ARGS_fint3d double *,integer*,double *
+#define ARGS_fint3d double *,int*,double *
 typedef void (*fint3df)(ARGS_fint3d);
 
 /**************** fint3d ***************/
@@ -41,7 +41,7 @@ static fint3df fint3dfonc ;
 
 /** function call : WARNING fintg returns a double  **/
 
-void C2F(fint3d)(double *xyz, integer *numfun, double *v)
+void C2F(fint3d)(double *xyz, int *numfun, double *v)
 {
        (*fint3dfonc)(xyz,numfun,v);
 }
index 80b2f06..8441ee8 100644 (file)
 
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-static integer colon = 44;
-static integer quote = 53;
-static integer less = 59;
-static integer equal = 50;
-static integer ou = 57;
-static integer et = 58;
-static integer non = 61;
-static integer star = 47;
-static integer dstar = 62;
-static integer slash = 48;
-static integer bslash = 49;
-static integer dot = 51;
+static int colon = 44;
+static int quote = 53;
+static int less = 59;
+static int equal = 50;
+static int ou = 57;
+static int et = 58;
+static int non = 61;
+static int star = 47;
+static int dstar = 62;
+static int slash = 48;
+static int bslash = 49;
+static int dot = 51;
 /*--------------------------------------------------------------------------*/
 static int ChooseOtherOperation(int op);
 int C2F(matops)(void);
@@ -54,7 +54,7 @@ extern int C2F(matxpow)();
 /*--------------------------------------------------------------------------*/
 int C2F(matops)(void)
 {
-    static integer op;
+    static int op;
 
     op = Fin;
 
index 807acd4..7143a81 100644 (file)
@@ -39,7 +39,7 @@ int dblearrayc(double **a,int *m,int *n,int *ierr)
 }
 
 
-/*     integer array    */
+/*     int array    */
 int intarrayc(int **a,int *m,int *n,int *ierr) 
 {
   int i ;
index 3af4bf4..8e093a8 100644 (file)
@@ -12,7 +12,7 @@
 
 #include "stack-c.h"
 
-int C2F(dscal)(integer *n, double *da,double *dx,integer *incx);
+int C2F(dscal)(int *n, double *da,double *dx,int *incx);
 
 /**************************************************
  * Calling the scilab function "mypoly" inside the interface 
index 944f3ac..67db952 100644 (file)
@@ -30,7 +30,7 @@ typedef struct {
 typedef int (*funcex)(ARGS_ex17c);
 extern int f1c(ARGS_ex17c);
 extern int f2c(ARGS_ex17c);
-extern int ex17c(double *,integer ,double *,integer,double *, funcex);
+extern int ex17c(double *,int ,double *,integer,double *, funcex);
  
 FTAB FTab_ex17c[] ={
   {"f1c", (voidf) f1c},
index 3e2cc7b..87d9287 100644 (file)
@@ -39,7 +39,7 @@ int intex1c(char *fname)
    */
   GetRhsVar(1,STRING_DATATYPE, &m1, &n1, &l1);
 
-  /*  a=variable #2 is an integer ('i') matrix, getrhsvar returns its
+  /*  a=variable #2 is an int ('i') matrix, getrhsvar returns its
    *   dimensions: m2 = # of rows , n2 = # of columns
    * values in matrix a are istk(l2), istk(l2+1), ... (columnwise) 
    */
index 67e6c68..9663191 100644 (file)
@@ -168,7 +168,7 @@ int C2F(dblearray)(double **a,int *m,int *n,int*ierr)
 }
 
 
-/*     integer array    */
+/*     int array    */
 
 int C2F(intarray)(int **a,int *m,int *n,int *ierr) 
 {
index 115c55d..faafaae 100644 (file)
@@ -49,7 +49,7 @@ BOOL c_link(char *routinename,int *ilib);
 * @param[in] routinename
 * @param[in/out] ilib
 */
-void C2F(iislink)(char *routinename, integer *ilib);
+void C2F(iislink)(char *routinename, int *ilib);
 
 
 /**
@@ -81,7 +81,7 @@ void unlinkallsharedlib(void);
 * Unlink a shared lib 
 * @param i (number of shared lib)
 */
-void unlinksharedlib(integer *i);
+void unlinksharedlib(int *i);
 
 
 /**
index 69fcc11..34e8cc5 100644 (file)
@@ -41,7 +41,7 @@ int C2F(sci_ulink)(char *fname,unsigned long fname_len)
                        params=stk(l1);
                        for(i=0;i<m1*n1;i++)
                        {
-                               integer ilib = (integer)params[i];
+                               int ilib = (int) params[i];
                                unlinksharedlib(&ilib);
                        }
                }
index d110c28..a19ba27 100644 (file)
@@ -202,7 +202,7 @@ void RemoveInterf(int id)
 * with addinterf the dynamic interface number 
 * is given by *k - (DynInterfStart+1)
 ************************************************/
-void C2F(userlk)(integer *k)
+void C2F(userlk)(int *k)
 {
        int k1 = *k - (DynInterfStart+1) ;
        int imes = 9999;
index fb5f6f0..c3aee4a 100644 (file)
@@ -49,7 +49,7 @@ __declspec (dllexport) CINTER_struct C2F(cinter);
 /* struct used by fortran (F2C) */
 /* required to be defined in C */
 typedef struct {
-       integer ibuf[lsiz];
+       int ibuf[lsiz];
 } IBFU_struct;
 __declspec (dllexport) CINTER_struct C2F(ibfu);
 
@@ -232,7 +232,7 @@ BOOL c_link(char *routinename,int *ilib)
        return TRUE;
 }
 /*---------------------------------------------------------------------------*/
-void C2F(iislink)(char *routinename, integer *ilib)
+void C2F(iislink)(char *routinename, int *ilib)
 {
        c_link(routinename,ilib);
 }
@@ -297,7 +297,7 @@ void unlinkallsharedlib(void)
        for ( i = 0 ; i < Nshared ; i++) if ( hd[i].ok == TRUE) Sci_Delsym(i);
 }
 /*---------------------------------------------------------------------------*/
-void unlinksharedlib(integer *i) 
+void unlinksharedlib(int *i) 
 {
        /* delete entry points in shared lib *i */
        Sci_Delsym(*i);
index 791a5a8..d709ba8 100644 (file)
@@ -571,7 +571,9 @@ LOOKS = @LOOKS@
 LTLIBOBJS = @LTLIBOBJS@
 MAINT = @MAINT@
 MAKEINFO = @MAKEINFO@
+MATIO_CFLAGS = @MATIO_CFLAGS@
 MATIO_ENABLE = @MATIO_ENABLE@
+MATIO_LIBS = @MATIO_LIBS@
 MKDIR_P = @MKDIR_P@
 MSGCAT = @MSGCAT@
 MSGFMT = @MSGFMT@
@@ -594,6 +596,7 @@ PCRE_CFLAGS = @PCRE_CFLAGS@
 PCRE_CONFIG = @PCRE_CONFIG@
 PCRE_LIBS = @PCRE_LIBS@
 PCRE_VERSION = @PCRE_VERSION@
+PKG_CONFIG = @PKG_CONFIG@
 POW_LIB = @POW_LIB@
 PVMARCH = @PVMARCH@
 PVMGETARCH = @PVMGETARCH@
index a36314c..59fff0c 100644 (file)
@@ -13,9 +13,9 @@
 #ifndef __CALELM_H 
 #define  __CALELM_H 
 
-#include "machine.h" /* integer , C2F */
+#include "machine.h" /* int , C2F */
 
-typedef integer(*I_fp)();
+typedef int(*I_fp)();
 
 int C2F(vfinite)(int *n, double *v);
 
index 04354a4..e42add4 100644 (file)
@@ -134,7 +134,7 @@ int C2F(sci_gsort)(char *fname, unsigned long fname_len)
                                GetRhsVar(1,MATRIX_OF_VARIABLE_SIZE_INTEGER_DATATYPE,&m1,&n1,&Im);
                        break;
                        default :
-                               Scierror(999,_("%s: Wrong type for input argument #%d: Real, complex, integer matrix or matrix of strings expected.\n"),fname,2);
+                               Scierror(999,_("%s: Wrong type for input argument #%d: Real, complex, int matrix or matrix of strings expected.\n"),fname,2);
                                return 0;
                        break;
                }
index 6e3528b..e7abd24 100644 (file)
@@ -462,7 +462,7 @@ int IsEqualDoubleMat(double *d1, double *d2)
   return 1;
 }
 /**IsEqualIntegerMat
- * Used to test a couple of Scilab variable of type 8 (integer) for equality
+ * Used to test a couple of Scilab variable of type 8 (int)  for equality
  * @param double *d1: pointer on the beginning of the first variable structure
  * @param double *d2: pointer on the beginning of the first variable structure
  * @return 0 is the variables differ and 1 if they are identical
@@ -551,7 +551,7 @@ int IsEqualStringMat(double *d1, double *d2)
   n = id1[1]*id1[2];
   if ( !IsEqualIntegerArray(n+1, id1+4, id2+4) ) return 0;
 
-  /* Check the array of character codes (integer) */
+  /* Check the array of character codes (int)  */
   if (!IsEqualIntegerArray(id1[4+n]-1, id1+5+n, id2+5+n)) return 0;
   return 1;
 }
@@ -758,7 +758,7 @@ int IsEqualFunction(double *d1, double *d2)
   if ( !IsEqualIntegerArray(n*nsiz, id1+l, id2+l) ) return 0;
   l += n*nsiz;
 
-  /* Check the number of integer in instructions */
+  /* Check the number of int in instructions */
   if (id1[l] != id2[l]) return 0;
   n = id1[l];   l++;
   if ( !IsEqualIntegerArray(n, id1+l, id2+l) ) return 0;
@@ -905,7 +905,7 @@ Type *B;\
 
 /**IsEqualShortIntegerArray
  * compare if two short int (1,2 or 4 bytes) arrays of size n, are identical
- * @param int type: integer type 1, 2, 4 or 11, 12, 14 for unsigned int
+ * @param int type: int type 1, 2, 4 or 11, 12, 14 for unsigned int
  * @param int n: array size
  * @param int *d1: pointer on the beginning of the first array
  * @param int *d2: pointer on the beginning of the second array
@@ -929,7 +929,7 @@ int IsEqualShortIntegerArray(int typ, int n, int *d1, int *d2)
     ISEQUAL(integer2);
     break;
   case 4:
-    ISEQUAL(integer);
+    ISEQUAL(int) ;
     break;
   case 11:
     ISEQUAL(unsigned char);
index 9ef916a..86a9033 100644 (file)
@@ -13,7 +13,7 @@
 /* rewrite scidcopy.f */
 /*--------------------------------------------------------------------------*/
 /* alternative to dcopy for copying array with mixed datatypes */
-/* integer*8 declaration used instead of double precision used to fix a */
+/* int*8 declaration used instead of double precision used to fix a */
 /* efficiency problem with pentium M processors */
 /*--------------------------------------------------------------------------*/
 #include <string.h>
index ee2e7c0..99fb10e 100644 (file)
@@ -208,7 +208,7 @@ int sci_fftw(char *fname,unsigned long fname_len)
     if ((VarType(4)!=sci_ints)&&(VarType(4)!=sci_matrix)) 
        { 
                /* int */
-               Scierror(53,_("%s: Wrong type for input argument #%d: integer matrix expected.\n"),fname,3);
+               Scierror(53,_("%s: Wrong type for input argument #%d: int matrix expected.\n"),fname,3);
                return(0);
     }
 
index 1af7ba1..dcbf4dd 100644 (file)
@@ -27,7 +27,7 @@
  * @param filename  
  * @param ierr  
  */
-void C2F(addfile)(integer *fd, FILE *fa, integer *swap2, integer *type, integer *mode, char *filename, integer *ierr);
+void C2F(addfile)(int *fd, FILE *fa, int *swap2, int *type, int *mode, char *filename, int *ierr);
 
 #endif /*  __ADDFILE_H__ */
 /*--------------------------------------------------------------------------*/