diff options
Diffstat (limited to 'modules/double')
127 files changed, 8975 insertions, 0 deletions
diff --git a/modules/double/.libs/libdummy-double.a b/modules/double/.libs/libdummy-double.a Binary files differnew file mode 100755 index 000000000..652a9876e --- /dev/null +++ b/modules/double/.libs/libdummy-double.a diff --git a/modules/double/.libs/libdummy-double.la b/modules/double/.libs/libdummy-double.la new file mode 120000 index 000000000..c03b0be43 --- /dev/null +++ b/modules/double/.libs/libdummy-double.la @@ -0,0 +1 @@ +../libdummy-double.la
\ No newline at end of file diff --git a/modules/double/.libs/libscidouble.a b/modules/double/.libs/libscidouble.a Binary files differnew file mode 100755 index 000000000..085e04293 --- /dev/null +++ b/modules/double/.libs/libscidouble.a diff --git a/modules/double/.libs/libscidouble.la b/modules/double/.libs/libscidouble.la new file mode 120000 index 000000000..abdd3e31e --- /dev/null +++ b/modules/double/.libs/libscidouble.la @@ -0,0 +1 @@ +../libscidouble.la
\ No newline at end of file diff --git a/modules/double/Makefile b/modules/double/Makefile new file mode 100755 index 000000000..a21e6a03c --- /dev/null +++ b/modules/double/Makefile @@ -0,0 +1,1355 @@ +# Makefile.in generated by automake 1.14.1 from Makefile.am. +# modules/double/Makefile. Generated from Makefile.in by configure. + +# Copyright (C) 1994-2013 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + + + +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006 - INRIA - Sylvestre LEDRU +# +# This file is distributed under the same license as the Scilab package. + +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006-2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr> +# Copyright (C) 2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr> +# +# This file must be used under the terms of the CeCILL. +# This source file is licensed as described in the file COPYING, which +# you should have received as part of this distribution. The terms +# are also available at +# http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +# + +########## +### Makefile included stuff +### Target, variable, suffixes which are supposed to be useful in every makefile.am +########## + + + +am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' +am__make_running_with_option = \ + case $${target_option-} in \ + ?) ;; \ + *) echo "am__make_running_with_option: internal error: invalid" \ + "target option '$${target_option-}' specified" >&2; \ + exit 1;; \ + esac; \ + has_opt=no; \ + sane_makeflags=$$MAKEFLAGS; \ + if $(am__is_gnu_make); then \ + sane_makeflags=$$MFLAGS; \ + else \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + bs=\\; \ + sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ + | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ + esac; \ + fi; \ + skip_next=no; \ + strip_trailopt () \ + { \ + flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ + }; \ + for flg in $$sane_makeflags; do \ + test $$skip_next = yes && { skip_next=no; continue; }; \ + case $$flg in \ + *=*|--*) continue;; \ + -*I) strip_trailopt 'I'; skip_next=yes;; \ + -*I?*) strip_trailopt 'I';; \ + -*O) strip_trailopt 'O'; skip_next=yes;; \ + -*O?*) strip_trailopt 'O';; \ + -*l) strip_trailopt 'l'; skip_next=yes;; \ + -*l?*) strip_trailopt 'l';; \ + -[dEDm]) skip_next=yes;; \ + -[JT]) skip_next=yes;; \ + esac; \ + case $$flg in \ + *$$target_option*) has_opt=yes; break;; \ + esac; \ + done; \ + test $$has_opt = yes +am__make_dryrun = (target_option=n; $(am__make_running_with_option)) +am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) +pkgdatadir = $(datadir)/scilab +pkgincludedir = $(includedir)/scilab +pkglibdir = $(libdir)/scilab +pkglibexecdir = $(libexecdir)/scilab +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = x86_64-unknown-linux-gnu +host_triplet = x86_64-unknown-linux-gnu +am__append_1 = libscidouble.la +DIST_COMMON = $(top_srcdir)/Makefile.incl.am $(srcdir)/Makefile.in \ + $(srcdir)/Makefile.am $(top_srcdir)/config/mkinstalldirs \ + $(top_srcdir)/config/depcomp +am__append_2 = java +subdir = modules/double +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/backtrace.m4 \ + $(top_srcdir)/m4/compiler.m4 $(top_srcdir)/m4/curl.m4 \ + $(top_srcdir)/m4/docbook.m4 $(top_srcdir)/m4/doxygen.m4 \ + $(top_srcdir)/m4/fftw.m4 $(top_srcdir)/m4/fortran.m4 \ + $(top_srcdir)/m4/giws.m4 $(top_srcdir)/m4/hdf5.m4 \ + $(top_srcdir)/m4/intel_compiler.m4 \ + $(top_srcdir)/m4/java-thirdparty.m4 $(top_srcdir)/m4/java.m4 \ + $(top_srcdir)/m4/largefile.m4 $(top_srcdir)/m4/lib-ld.m4 \ + $(top_srcdir)/m4/libsmath.m4 $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/libxml2.m4 $(top_srcdir)/m4/ltoptions.m4 \ + $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \ + $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/macosx.m4 \ + $(top_srcdir)/m4/mpi.m4 $(top_srcdir)/m4/ocaml.m4 \ + $(top_srcdir)/m4/pcre.m4 $(top_srcdir)/m4/pkg.m4 \ + $(top_srcdir)/m4/relocatable.m4 $(top_srcdir)/m4/swig.m4 \ + $(top_srcdir)/m4/symlinks.m4 $(top_srcdir)/m4/tcltk.m4 \ + $(top_srcdir)/m4/umfpack.m4 $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(SHELL) $(top_srcdir)/config/mkinstalldirs +CONFIG_HEADER = $(top_builddir)/modules/core/includes/machine.h +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; +am__install_max = 40 +am__nobase_strip_setup = \ + srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` +am__nobase_strip = \ + for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" +am__nobase_list = $(am__nobase_strip_setup); \ + for p in $$list; do echo "$$p $$p"; done | \ + sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ + $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ + if (++n[$$2] == $(am__install_max)) \ + { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ + END { for (dir in files) print dir, files[dir] }' +am__base_list = \ + sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ + sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' +am__uninstall_files_from_dir = { \ + test -z "$$files" \ + || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ + || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ + $(am__cd) "$$dir" && rm -f $$files; }; \ + } +am__installdirs = "$(DESTDIR)$(pkglibdir)" \ + "$(DESTDIR)$(libscidouble_la_etcdir)" \ + "$(DESTDIR)$(libscidouble_la_rootdir)" +LTLIBRARIES = $(noinst_LTLIBRARIES) $(pkglib_LTLIBRARIES) +libdummy_double_la_LIBADD = +am__dirstamp = $(am__leading_dot)dirstamp +am_libdummy_double_la_OBJECTS = sci_gateway/fortran/vecimpl.lo +libdummy_double_la_OBJECTS = $(am_libdummy_double_la_OBJECTS) +AM_V_lt = $(am__v_lt_$(V)) +am__v_lt_ = $(am__v_lt_$(AM_DEFAULT_VERBOSITY)) +am__v_lt_0 = --silent +am__v_lt_1 = +libscidouble_la_DEPENDENCIES = libdummy-double.la +am__objects_1 = sci_gateway/c/libscidouble_la-gw_double.lo +am__objects_2 = sci_gateway/fortran/vecldiv.lo \ + sci_gateway/fortran/vecmul.lo sci_gateway/fortran/matxpow.lo \ + sci_gateway/fortran/matldiv.lo sci_gateway/fortran/matsubt.lo \ + sci_gateway/fortran/vecrdiv.lo sci_gateway/fortran/matchsgn.lo \ + sci_gateway/fortran/matrdiv.lo sci_gateway/fortran/matrc.lo \ + sci_gateway/fortran/matpow.lo sci_gateway/fortran/matins1.lo \ + sci_gateway/fortran/matins2.lo sci_gateway/fortran/matcmp.lo \ + sci_gateway/fortran/matmult.lo sci_gateway/fortran/matext1.lo \ + sci_gateway/fortran/matext2.lo sci_gateway/fortran/mattr.lo \ + sci_gateway/fortran/matcc.lo sci_gateway/fortran/mattrc.lo \ + sci_gateway/fortran/matadd.lo +am_libscidouble_la_OBJECTS = $(am__objects_1) $(am__objects_2) +libscidouble_la_OBJECTS = $(am_libscidouble_la_OBJECTS) +am_libscidouble_la_rpath = +#am_libscidouble_la_rpath = -rpath $(pkglibdir) +AM_V_P = $(am__v_P_$(V)) +am__v_P_ = $(am__v_P_$(AM_DEFAULT_VERBOSITY)) +am__v_P_0 = false +am__v_P_1 = : +AM_V_GEN = $(am__v_GEN_$(V)) +am__v_GEN_ = $(am__v_GEN_$(AM_DEFAULT_VERBOSITY)) +am__v_GEN_0 = @echo " GEN " $@; +am__v_GEN_1 = +AM_V_at = $(am__v_at_$(V)) +am__v_at_ = $(am__v_at_$(AM_DEFAULT_VERBOSITY)) +am__v_at_0 = @ +am__v_at_1 = +DEFAULT_INCLUDES = -I. -I$(top_builddir)/modules/core/includes +depcomp = $(SHELL) $(top_srcdir)/config/depcomp +am__depfiles_maybe = depfiles +am__mv = mv -f +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CFLAGS) $(CFLAGS) +AM_V_CC = $(am__v_CC_$(V)) +am__v_CC_ = $(am__v_CC_$(AM_DEFAULT_VERBOSITY)) +am__v_CC_0 = @echo " CC " $@; +am__v_CC_1 = +CCLD = $(CC) +LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_CCLD = $(am__v_CCLD_$(V)) +am__v_CCLD_ = $(am__v_CCLD_$(AM_DEFAULT_VERBOSITY)) +am__v_CCLD_0 = @echo " CCLD " $@; +am__v_CCLD_1 = +F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) +LTF77COMPILE = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) +AM_V_F77 = $(am__v_F77_$(V)) +am__v_F77_ = $(am__v_F77_$(AM_DEFAULT_VERBOSITY)) +am__v_F77_0 = @echo " F77 " $@; +am__v_F77_1 = +F77LD = $(F77) +F77LINK = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_F77LD = $(am__v_F77LD_$(V)) +am__v_F77LD_ = $(am__v_F77LD_$(AM_DEFAULT_VERBOSITY)) +am__v_F77LD_0 = @echo " F77LD " $@; +am__v_F77LD_1 = +SOURCES = $(libdummy_double_la_SOURCES) $(libscidouble_la_SOURCES) +DIST_SOURCES = $(libdummy_double_la_SOURCES) \ + $(libscidouble_la_SOURCES) +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +DATA = $(libscidouble_la_etc_DATA) $(libscidouble_la_root_DATA) +am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) +# Read a list of newline-separated strings from the standard input, +# and print each of them once, without duplicates. Input order is +# *not* preserved. +am__uniquify_input = $(AWK) '\ + BEGIN { nonempty = 0; } \ + { items[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in items) print i; }; } \ +' +# Make sure the list of sources is unique. This is necessary because, +# e.g., the same source file might be shared among _SOURCES variables +# for different programs/libraries. +am__define_uniq_tagged_files = \ + list='$(am__tagged_files)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | $(am__uniquify_input)` +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing aclocal-1.14 +ALL_LINGUAS = en_US fr_FR zh_CN zh_TW ru_RU ca_ES de_DE es_ES pt_BR ja_JP it_IT uk_UA pl_PL cs_CZ +ALL_LINGUAS_DOC = en_US fr_FR pt_BR ja_JP ru_RU +AMTAR = $${TAR-tar} +AM_DEFAULT_VERBOSITY = 1 +ANT = /usr/bin/ant +ANTLR = /usr/share/java/antlr.jar +AR = ar +ARPACK_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -larpack +ASM3 = /usr/share/java/asm3-3.3.2.jar +AUTOCONF = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing autoconf +AUTOHEADER = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing autoheader +AUTOMAKE = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing automake-1.14 +AVALON_FRAMEWORK = /home/shashank/scilab-master_5.5.2/thirdparty/avalon-framework.jar +AWK = mawk +BATIK = /home/shashank/scilab-master_5.5.2/thirdparty/batik-all-1.7.jar +BLAS_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lblas +CC = gcc +CCACHE = +CCDEPMODE = depmode=gcc3 +CFLAGS = -g -O2 +CHECKSTYLE = +COBERTURA = /usr/share/java/cobertura.jar +COMMONS_BEANUTILS = +COMMONS_IO = /home/shashank/scilab-master_5.5.2/thirdparty/commons-io.jar +COMMONS_LOGGING = /home/shashank/scilab-master_5.5.2/thirdparty/commons-logging.jar +CPP = gcc -E +CPPFLAGS = +CURL_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +CURL_CONFIG = /home/shashank/scilab-master_5.5.2/usr/bin/curl-config +CURL_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lcurl -L/home/scilab/work/linux-prerequisites-sources/trunk/Dev-Tools/SE/Prerequirements/linux_x64/usr/lib -L/home/scilab/work/linux-prerequisites-sources/trunk/Dev-Tools/SE/Prerequirements/linux_x64/usr/lib -lssl -lcrypto -lrt -lz +CURL_VERSION = libcurl 7.19.7 +CXX = g++ +CXXCPP = g++ -E +CXXDEPMODE = depmode=gcc3 +CXXFLAGS = -g -O2 +CYGPATH_W = echo +DEFS = -DHAVE_CONFIG_H +DEMOTOOLS_ENABLE = yes +DEPDIR = .deps +DLLTOOL = false +DOCBOOK_ROOT = /home/shashank/scilab-master_5.5.2/thirdparty/docbook/ +DOXYGEN_BIN = +DSYMUTIL = +DUMPBIN = +ECHO_C = +ECHO_N = -n +ECHO_T = +ECJ = /home/shashank/scilab-master_5.5.2/thirdparty/ecj.jar +EGREP = /bin/grep -E +EXEEXT = +F77 = gfortran +FFLAGS = -g -O2 +FFTW3_LIB = -L/home/shashank/scilab-master_5.5.2/usr/lib -lfftw3 +FFTW_ENABLE = yes +FGREP = /bin/grep -F +FLEXDOCK = /home/shashank/scilab-master_5.5.2/thirdparty/flexdock-1.2.4.jar +FLIBS = -L/usr/lib/gcc/x86_64-linux-gnu/5 -L/usr/lib/gcc/x86_64-linux-gnu/5/../../../x86_64-linux-gnu -L/usr/lib/gcc/x86_64-linux-gnu/5/../../../../lib -L/lib/x86_64-linux-gnu -L/lib/../lib -L/usr/lib/x86_64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/5/../../.. -lpthread -ldl -lcurses -lgfortran -lm -lquadmath +FOP = /home/shashank/scilab-master_5.5.2/thirdparty/fop.jar +FREEHEP_GRAPHICS2D = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-graphics2d.jar +FREEHEP_GRAPHICSIO = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-graphicsio.jar +FREEHEP_GRAPHICSIO_EMF = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-graphicsio-emf.jar +FREEHEP_IO = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-io.jar +FREEHEP_UTIL = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-util.jar +GENHTML = +GETTEXT_MACRO_VERSION = 0.19 +GIWS_BIN = +GLUEGEN2_RT = /home/shashank/scilab-master_5.5.2/thirdparty/gluegen2-rt.jar +GMSGFMT = /usr/bin/msgfmt +GMSGFMT_015 = /usr/bin/msgfmt +GRAPHICS_ENABLE = yes +GREP = /bin/grep +GUI_ENABLE = yes +HDF5_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +HDF5_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lhdf5 -lhdf5_hl +HELP_ENABLE = yes +INSTALL = /usr/bin/install -c +INSTALL_DATA = ${INSTALL} -m 644 +INSTALL_PROGRAM = ${INSTALL} +INSTALL_SCRIPT = ${INSTALL} +INSTALL_STRIP_PROGRAM = $(install_sh) -c -s +INTLLIBS = +INTL_MACOSX_LIBS = +JAR = /usr/lib/jvm/java-8-openjdk-amd64/bin/jar +JAVA = /usr/lib/jvm/java-8-openjdk-amd64/bin/java +JAVAC = /usr/lib/jvm/java-8-openjdk-amd64/bin/javac +JAVAC_DEBUG = off +JAVADOC = /usr/lib/jvm/java-8-openjdk-amd64/bin/javadoc +JAVAH = /usr/lib/jvm/java-8-openjdk-amd64/bin/javah +JAVASCI_ENABLE = yes +JAVA_ENABLE = yes +JAVA_G = /usr/lib/jvm/java-8-openjdk-amd64/bin/java +JAVA_HOME = /usr/lib/jvm/java-8-openjdk-amd64 +JAVA_JNI_INCLUDE = -I/usr/lib/jvm/java-8-openjdk-amd64/include -I/usr/lib/jvm/java-8-openjdk-amd64/include/linux +JAVA_JNI_LIBS = -L/usr/lib/jvm/java-8-openjdk-amd64/jre/lib/amd64 -ljava -lverify -L/usr/lib/jvm/java-8-openjdk-amd64/jre/lib/amd64/server -ljvm +JDB = /usr/lib/jvm/java-8-openjdk-amd64/bin/jdb +JEUCLID_CORE = /home/shashank/scilab-master_5.5.2/thirdparty/jeuclid-core.jar +JGRAPHX = /home/shashank/scilab-master_5.5.2/thirdparty/jgraphx.jar +JHALL = /home/shashank/scilab-master_5.5.2/thirdparty/jhall.jar +JLATEXMATH = /home/shashank/scilab-master_5.5.2/thirdparty/jlatexmath-1.0.3.jar +JLATEXMATH_FOP = /home/shashank/scilab-master_5.5.2/thirdparty/jlatexmath-fop-1.0.3.jar +JOGL2 = /home/shashank/scilab-master_5.5.2/thirdparty/jogl2.jar +JROSETTA_API = /home/shashank/scilab-master_5.5.2/thirdparty/jrosetta-API.jar +JROSETTA_ENGINE = /home/shashank/scilab-master_5.5.2/thirdparty/jrosetta-engine.jar +JUNIT4 = /usr/share/java/junit4.jar +LAPACK_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -llapack +LCOV = +LD = /usr/bin/ld -m elf_x86_64 +LDFLAGS = -Wl,--no-as-needed +LIBICONV = -liconv +LIBINTL = +LIBM = -lm +LIBOBJS = +LIBS = -lpthread -ldl -lcurses -lm +LIBTOOL = $(SHELL) $(top_builddir)/libtool +LIPO = +LN_S = ln -s +LOGGING_LEVEL = SEVERE +LOOKS = /home/shashank/scilab-master_5.5.2/thirdparty/looks-2.1.1.jar +LTLIBICONV = -liconv +LTLIBINTL = +LTLIBOBJS = +MAINT = # +MAKEINFO = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing makeinfo +MANIFEST_TOOL = : +MATIO_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +MATIO_ENABLE = yes +MATIO_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lm -lz -lmatio -lhdf5 +MKDIR_P = /bin/mkdir -p +MPI_ENABLE = no +MSGCAT = /usr/bin/msgcat +MSGFMT = /usr/bin/msgfmt +MSGFMT_015 = /usr/bin/msgfmt +MSGMERGE = /usr/bin/msgmerge +NM = nm +NMEDIT = +OBJDUMP = objdump +OBJEXT = o +OCAMLC = ocamlc +OCAMLDEP = ocamldep +OCAMLLEX = ocamllex +OCAMLOPT = ocamlopt +OCAMLYACC = ocamlyacc +OPENMPI_CC = +OPENMPI_CFLAGS = +OPENMPI_CXX = +OPENMPI_CXXFLAGS = +OPENMPI_LIBS = +OPENMP_CFLAGS = -fopenmp +OPENMP_CXXFLAGS = -fopenmp +OPENMP_ENABLE = yes +OPENMP_LIBS = -lgomp -lstdc++ +OTOOL = +OTOOL64 = +PACKAGE = scilab +PACKAGE_BUGREPORT = http://bugzilla.scilab.org/ +PACKAGE_NAME = Scilab +PACKAGE_STRING = Scilab 5 +PACKAGE_TARNAME = scilab +PACKAGE_URL = +PACKAGE_VERSION = 5 +PATH_SEPARATOR = : +PCRE_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +PCRE_CONFIG = /home/shashank/scilab-master_5.5.2/usr/bin/pcre-config +PCRE_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lpcreposix -lpcre +PCRE_VERSION = 8.35 +PKG_CONFIG = /usr/bin/pkg-config +POSUB = po +POW_LIB = +PYTHON = +RANLIB = ranlib +RELOCATABLE = no +RT_LIB = -lrt +SAXON = /home/shashank/scilab-master_5.5.2/thirdparty/saxon9he.jar +SCILAB_BINARY_VERSION = 5.5.2 +SCILAB_LIBRARY_VERSION = 5:5:2 +SCILAB_VERSION_MAINTENANCE = 2 +SCILAB_VERSION_MAJOR = 5 +SCILAB_VERSION_MINOR = 5 +SCIRENDERER = ${modules.dir}/scirenderer/${build.jar.dir}/scirenderer.jar +SCIRENDERER_CP = $SCILAB/modules/scirenderer/jar/scirenderer.jar +SCI_CFLAGS = -D_LARGEFILE64_SOURCE -DNDEBUG -m64 -fno-stack-protector +SCI_CXXFLAGS = -DNDEBUG -fno-stack-protector +SCI_FFLAGS = -DNDEBUG -m64 -fPIC +SCI_LDFLAGS = +SED = /bin/sed +SET_MAKE = +SET_RELOCATABLE = +SHELL = /bin/bash +SKINLF = /home/shashank/scilab-master_5.5.2/thirdparty/skinlf.jar +SPLINT = no +STRIP = strip +SWIG_BIN = +SWIG_JAVA = +SWIG_RUNTIME_LIBS_DIR = +SWIG_SCILAB = +TCLTK_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -ltk8.5 -L/home/shashank/scilab-master_5.5.2/usr/lib -ltcl8.5 -ldl +TCL_INC_PATH = -I/home/shashank/scilab-master_5.5.2/usr/include +TK_INC_PATH = -I/home/shashank/scilab-master_5.5.2/usr/include +UMFPACK_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +UMFPACK_ENABLE = yes +UMFPACK_LIB = -L/home/shashank/scilab-master_5.5.2/usr/lib -lumfpack -lamd +USE_NLS = yes +VERSION = 5 +WITH_OCAML = +WITH_TKSCI = yes +XCOS_ENABLE = yes +XGETTEXT = /usr/bin/xgettext +XGETTEXT_015 = /usr/bin/xgettext +XGETTEXT_EXTRA_OPTIONS = +XMKMF = +XMLGRAPHICS_COMMONS = /home/shashank/scilab-master_5.5.2/thirdparty/xmlgraphics-commons-1.4.jar +XML_APIS_EXT = /home/shashank/scilab-master_5.5.2/thirdparty/xml-apis-ext.jar +XML_CONFIG = /home/shashank/scilab-master_5.5.2/usr/bin/xml2-config +XML_FLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include/libxml2 +XML_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lxml2 -L/home/scilab/work/linux-prerequisites-sources/trunk/Dev-Tools/SE/Prerequirements/linux_x64/usr/lib -lz -lm -ldl +XML_VERSION = 2.9.1 +X_CFLAGS = +X_EXTRA_LIBS = +X_LIBS = +X_PRE_LIBS = +abs_builddir = /home/shashank/scilab-master_5.5.2/modules/double +abs_srcdir = /home/shashank/scilab-master_5.5.2/modules/double +abs_top_builddir = /home/shashank/scilab-master_5.5.2 +abs_top_srcdir = /home/shashank/scilab-master_5.5.2 +ac_ct_AR = ar +ac_ct_CC = gcc +ac_ct_CXX = g++ +ac_ct_DUMPBIN = +ac_ct_F77 = gfortran +am__include = include +am__leading_dot = . +am__quote = +am__tar = $${TAR-tar} chof - "$$tardir" +am__untar = $${TAR-tar} xf - +bindir = ${exec_prefix}/bin +build = x86_64-unknown-linux-gnu +build_alias = +build_cpu = x86_64 +build_os = linux-gnu +build_vendor = unknown +builddir = . +cxx_present = yes +datadir = ${datarootdir} +datarootdir = ${prefix}/share +docdir = ${datarootdir}/doc/${PACKAGE_TARNAME} +dvidir = ${docdir} +exec_prefix = ${prefix} +host = x86_64-unknown-linux-gnu +host_alias = +host_cpu = x86_64 +host_os = linux-gnu +host_vendor = unknown +htmldir = ${docdir} +includedir = ${prefix}/include +infodir = ${datarootdir}/info +install_sh = ${SHELL} /home/shashank/scilab-master_5.5.2/config/install-sh +libdir = ${exec_prefix}/lib +libexecdir = ${exec_prefix}/libexec +localedir = ${datarootdir}/locale +localstatedir = ${prefix}/var +mandir = ${datarootdir}/man +mkdir_p = $(MKDIR_P) +oldincludedir = /usr/include +pdfdir = ${docdir} +prefix = /usr/local +program_transform_name = s,x,x, +psdir = ${docdir} +sbindir = ${exec_prefix}/sbin +sharedstatedir = ${prefix}/com +srcdir = . +sysconfdir = ${prefix}/etc +target_alias = +top_build_prefix = ../../ +top_builddir = ../.. +top_srcdir = ../.. +GATEWAY_C_SOURCES = sci_gateway/c/gw_double.c +GATEWAY_FORTRAN_SOURCES = sci_gateway/fortran/vecldiv.f \ +sci_gateway/fortran/vecmul.f \ +sci_gateway/fortran/matxpow.f \ +sci_gateway/fortran/matldiv.f \ +sci_gateway/fortran/matsubt.f \ +sci_gateway/fortran/vecrdiv.f \ +sci_gateway/fortran/matchsgn.f \ +sci_gateway/fortran/matrdiv.f \ +sci_gateway/fortran/matrc.f \ +sci_gateway/fortran/matpow.f \ +sci_gateway/fortran/matins1.f \ +sci_gateway/fortran/matins2.f \ +sci_gateway/fortran/matcmp.f \ +sci_gateway/fortran/matmult.f \ +sci_gateway/fortran/matext1.f \ +sci_gateway/fortran/matext2.f \ +sci_gateway/fortran/mattr.f \ +sci_gateway/fortran/matcc.f \ +sci_gateway/fortran/mattrc.f \ +sci_gateway/fortran/matadd.f + +noinst_LTLIBRARIES = libdummy-double.la $(am__append_1) +#pkglib_LTLIBRARIES = libscidouble.la +libscidouble_la_CPPFLAGS = -I$(top_srcdir)/modules/api_scilab/includes/ \ +-I$(top_srcdir)/modules/output_stream/includes/ \ +$(AM_CPPFLAGS) + +libscidouble_la_SOURCES = $(GATEWAY_C_SOURCES) $(GATEWAY_FORTRAN_SOURCES) + +# For the code check (splint) +CHECK_SRC = $(GATEWAY_C_SOURCES) +INCLUDE_FLAGS = $(libscidouble_la_CPPFLAGS) +libscidouble_la_LIBADD = libdummy-double.la +libdummy_double_la_SOURCES = sci_gateway/fortran/vecimpl.f + +#### Target ###### +modulename = double + +#### double : Conf files #### +libscidouble_la_rootdir = $(mydatadir) +libscidouble_la_root_DATA = license.txt + +#### double : init scripts #### +libscidouble_la_etcdir = $(mydatadir)/etc +libscidouble_la_etc_DATA = etc/double.quit etc/double.start + +# Where all the Scilab stuff is installed (macros, help, ...) +mydatadir = $(pkgdatadir)/modules/$(modulename) + +# Set AM_* SCI detected settings +AM_CPPFLAGS = $(SCI_CPPFLAGS) +AM_CFLAGS = $(SCI_CFLAGS) +AM_CXXFLAGS = $(SCI_CXXFLAGS) +# append includes to AM_FFLAGS to manage fortran includes +AM_FFLAGS = $(SCI_FFLAGS) -I$(top_srcdir)/modules/core/includes/ + +# Tag shared libraries with the Scilab version +AM_LDFLAGS = $(SCI_LDFLAGS) -version-number $(SCILAB_LIBRARY_VERSION) + +# splint options +SPLINT_OPTIONS = -weak -booltype BOOL + +########################### JAVA ###################################### +#### We are delegating java compilation to ant... Thanks to that +#### the procedure will be the same with Microsoft Windows (C) +#### and Linux/Unix +####################################################################### +TARGETS_ALL = $(am__append_2) + +################ MACROS ###################### +# Rule to build a macro +# NOT USED AT THE MOMENT +SUFFIXES = .sci + +########### INSTALL DOCUMENTATION ################### + +# Install documentation files into the right target +# We do not use the automake mechanism (libxxxx_la_help_fr_DATA) because +# automake needs the html files to be present which is not the case when +# we are building Scilab + +# Where it should be installed +pkgdocdir = $(mydatadir) + +# What is the mask of the help source +DOCMASKXML = *.xml + +# What is the mask of the MathML sources +DOCMASKMML = *.mml + +########### INSTALL DATA ################### +# Install macros, help & demos +# Where it should be installed +pkgmacrosdir = $(mydatadir) +# Which directory we process +MACRODIRS = macros/ +# Mask of the Scilab sources macros +MACROMASK = *.sci +# Mask of the Scilab executable sources macros +MACROBUILDMASK = *.sce +# Mask of the Scilab compiled macros +MACROBINMASK = *.bin +# List of the standard directory for tests +TESTS_DIR = tests/benchmarks tests/nonreg_tests tests/unit_tests tests/java +# Where the demos should be installed +pkgdemosdir = $(mydatadir) +# List of the standard directory for demos +DEMOS_DIR = demos +# List of the standard directory for examples +EXAMPLES_DIR = examples +# Where to export JAVA archives (.jar) +JARDIR = jar/ +# JAR files mask +JARMASK = *.jar +# Chapter file +HELP_CHAPTERDIR = help/ +HELP_CHAPTERFILE = addchapter.sce +HELP_CHAPTERLANG = en_US fr_FR pt_BR +all: all-am + +.SUFFIXES: +.SUFFIXES: .sci .bin .c .f .lo .o .obj +$(srcdir)/Makefile.in: # $(srcdir)/Makefile.am $(top_srcdir)/Makefile.incl.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign modules/double/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --foreign modules/double/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; +$(top_srcdir)/Makefile.incl.am: + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: # $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): # $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): + +clean-noinstLTLIBRARIES: + -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) + @list='$(noinst_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } + +install-pkglibLTLIBRARIES: $(pkglib_LTLIBRARIES) + @$(NORMAL_INSTALL) + @list='$(pkglib_LTLIBRARIES)'; test -n "$(pkglibdir)" || list=; \ + list2=; for p in $$list; do \ + if test -f $$p; then \ + list2="$$list2 $$p"; \ + else :; fi; \ + done; \ + test -z "$$list2" || { \ + echo " $(MKDIR_P) '$(DESTDIR)$(pkglibdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(pkglibdir)" || exit 1; \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(pkglibdir)'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(pkglibdir)"; \ + } + +uninstall-pkglibLTLIBRARIES: + @$(NORMAL_UNINSTALL) + @list='$(pkglib_LTLIBRARIES)'; test -n "$(pkglibdir)" || list=; \ + for p in $$list; do \ + $(am__strip_dir) \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(pkglibdir)/$$f'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(pkglibdir)/$$f"; \ + done + +clean-pkglibLTLIBRARIES: + -test -z "$(pkglib_LTLIBRARIES)" || rm -f $(pkglib_LTLIBRARIES) + @list='$(pkglib_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } +sci_gateway/fortran/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/fortran + @: > sci_gateway/fortran/$(am__dirstamp) +sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/fortran/$(DEPDIR) + @: > sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/vecimpl.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) + +libdummy-double.la: $(libdummy_double_la_OBJECTS) $(libdummy_double_la_DEPENDENCIES) $(EXTRA_libdummy_double_la_DEPENDENCIES) + $(AM_V_F77LD)$(F77LINK) $(libdummy_double_la_OBJECTS) $(libdummy_double_la_LIBADD) $(LIBS) +sci_gateway/c/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/c + @: > sci_gateway/c/$(am__dirstamp) +sci_gateway/c/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/c/$(DEPDIR) + @: > sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscidouble_la-gw_double.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/vecldiv.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/vecmul.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matxpow.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matldiv.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matsubt.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/vecrdiv.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matchsgn.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matrdiv.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matrc.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matpow.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matins1.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matins2.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matcmp.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matmult.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matext1.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matext2.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/mattr.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matcc.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/mattrc.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matadd.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) + +libscidouble.la: $(libscidouble_la_OBJECTS) $(libscidouble_la_DEPENDENCIES) $(EXTRA_libscidouble_la_DEPENDENCIES) + $(AM_V_F77LD)$(F77LINK) $(am_libscidouble_la_rpath) $(libscidouble_la_OBJECTS) $(libscidouble_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + -rm -f sci_gateway/c/*.$(OBJEXT) + -rm -f sci_gateway/c/*.lo + -rm -f sci_gateway/fortran/*.$(OBJEXT) + -rm -f sci_gateway/fortran/*.lo + +distclean-compile: + -rm -f *.tab.c + +include sci_gateway/c/$(DEPDIR)/libscidouble_la-gw_double.Plo + +.c.o: + $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.o$$||'`;\ + $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ + $(am__mv) $$depbase.Tpo $$depbase.Po +# $(AM_V_CC)source='$<' object='$@' libtool=no \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(COMPILE) -c -o $@ $< + +.c.obj: + $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.obj$$||'`;\ + $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ `$(CYGPATH_W) '$<'` &&\ + $(am__mv) $$depbase.Tpo $$depbase.Po +# $(AM_V_CC)source='$<' object='$@' libtool=no \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.c.lo: + $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.lo$$||'`;\ + $(LTCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ + $(am__mv) $$depbase.Tpo $$depbase.Plo +# $(AM_V_CC)source='$<' object='$@' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LTCOMPILE) -c -o $@ $< + +sci_gateway/c/libscidouble_la-gw_double.lo: sci_gateway/c/gw_double.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscidouble_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscidouble_la-gw_double.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscidouble_la-gw_double.Tpo -c -o sci_gateway/c/libscidouble_la-gw_double.lo `test -f 'sci_gateway/c/gw_double.c' || echo '$(srcdir)/'`sci_gateway/c/gw_double.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscidouble_la-gw_double.Tpo sci_gateway/c/$(DEPDIR)/libscidouble_la-gw_double.Plo +# $(AM_V_CC)source='sci_gateway/c/gw_double.c' object='sci_gateway/c/libscidouble_la-gw_double.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscidouble_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscidouble_la-gw_double.lo `test -f 'sci_gateway/c/gw_double.c' || echo '$(srcdir)/'`sci_gateway/c/gw_double.c + +.f.o: + $(AM_V_F77)$(F77COMPILE) -c -o $@ $< + +.f.obj: + $(AM_V_F77)$(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.f.lo: + $(AM_V_F77)$(LTF77COMPILE) -c -o $@ $< + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + -rm -rf sci_gateway/c/.libs sci_gateway/c/_libs + -rm -rf sci_gateway/fortran/.libs sci_gateway/fortran/_libs +install-libscidouble_la_etcDATA: $(libscidouble_la_etc_DATA) + @$(NORMAL_INSTALL) + @list='$(libscidouble_la_etc_DATA)'; test -n "$(libscidouble_la_etcdir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscidouble_la_etcdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscidouble_la_etcdir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscidouble_la_etcdir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscidouble_la_etcdir)" || exit $$?; \ + done + +uninstall-libscidouble_la_etcDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscidouble_la_etc_DATA)'; test -n "$(libscidouble_la_etcdir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscidouble_la_etcdir)'; $(am__uninstall_files_from_dir) +install-libscidouble_la_rootDATA: $(libscidouble_la_root_DATA) + @$(NORMAL_INSTALL) + @list='$(libscidouble_la_root_DATA)'; test -n "$(libscidouble_la_rootdir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscidouble_la_rootdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscidouble_la_rootdir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscidouble_la_rootdir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscidouble_la_rootdir)" || exit $$?; \ + done + +uninstall-libscidouble_la_rootDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscidouble_la_root_DATA)'; test -n "$(libscidouble_la_rootdir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscidouble_la_rootdir)'; $(am__uninstall_files_from_dir) + +ID: $(am__tagged_files) + $(am__define_uniq_tagged_files); mkid -fID $$unique +tags: tags-am +TAGS: tags + +tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + set x; \ + here=`pwd`; \ + $(am__define_uniq_tagged_files); \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: ctags-am + +CTAGS: ctags +ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + $(am__define_uniq_tagged_files); \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" +cscopelist: cscopelist-am + +cscopelist-am: $(am__tagged_files) + list='$(am__tagged_files)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done +check-am: all-am + $(MAKE) $(AM_MAKEFLAGS) check-local +check: check-am +all-am: Makefile $(LTLIBRARIES) $(DATA) all-local +installdirs: + for dir in "$(DESTDIR)$(pkglibdir)" "$(DESTDIR)$(libscidouble_la_etcdir)" "$(DESTDIR)$(libscidouble_la_rootdir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + -rm -f sci_gateway/c/$(DEPDIR)/$(am__dirstamp) + -rm -f sci_gateway/c/$(am__dirstamp) + -rm -f sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) + -rm -f sci_gateway/fortran/$(am__dirstamp) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libtool clean-local \ + clean-noinstLTLIBRARIES clean-pkglibLTLIBRARIES mostlyclean-am + +distclean: distclean-am + -rm -rf sci_gateway/c/$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-local distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +html-am: + +info: info-am + +info-am: + +install-data-am: install-data-local install-libscidouble_la_etcDATA \ + install-libscidouble_la_rootDATA + +install-dvi: install-dvi-am + +install-dvi-am: + +install-exec-am: install-pkglibLTLIBRARIES + +install-html: install-html-am + +install-html-am: install-html-local + +install-info: install-info-am + +install-info-am: + +install-man: + +install-pdf: install-pdf-am + +install-pdf-am: + +install-ps: install-ps-am + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf sci_gateway/c/$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-libscidouble_la_etcDATA \ + uninstall-libscidouble_la_rootDATA uninstall-pkglibLTLIBRARIES + +.MAKE: check-am install-am install-strip + +.PHONY: CTAGS GTAGS TAGS all all-am all-local check check-am \ + check-local clean clean-generic clean-libtool clean-local \ + clean-noinstLTLIBRARIES clean-pkglibLTLIBRARIES cscopelist-am \ + ctags ctags-am distclean distclean-compile distclean-generic \ + distclean-libtool distclean-local distclean-tags distdir dvi \ + dvi-am html html-am info info-am install install-am \ + install-data install-data-am install-data-local install-dvi \ + install-dvi-am install-exec install-exec-am install-html \ + install-html-am install-html-local install-info \ + install-info-am install-libscidouble_la_etcDATA \ + install-libscidouble_la_rootDATA install-man install-pdf \ + install-pdf-am install-pkglibLTLIBRARIES install-ps \ + install-ps-am install-strip installcheck installcheck-am \ + installdirs maintainer-clean maintainer-clean-generic \ + mostlyclean mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool pdf pdf-am ps ps-am tags tags-am uninstall \ + uninstall-am uninstall-libscidouble_la_etcDATA \ + uninstall-libscidouble_la_rootDATA uninstall-pkglibLTLIBRARIES + + +# Following lines are extracted from a processed Makefile.in +# Take care while modifying : append -O0 after all commons options +vecimpl.lo: sci_gateway/fortran/vecimpl.f + $(AM_V_F77)$(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -O0 -c -o vecimpl.lo `test -f 'sci_gateway/fortran/vecimpl.f' || echo '$(srcdir)/'`sci_gateway/fortran/vecimpl.f + +# This target enables tests for Scilab +check-local: $(top_builddir)/scilab-bin test + if test -d $(mydatadir)/tests; then \ + @COMMAND="try test_run('$(modulename)');catch exit(-1);end;exit(0)"; export LANG=C; $(top_builddir)/bin/scilab -nwni -nb -e "$$COMMAND"; \ + fi +check-code: + if test -f build.xml; then \ + $(ANT) checkstyle; \ + fi + if test -x "$(SPLINT)"; then \ + $(SPLINT) $(SPLINT_OPTIONS) -I$(top_srcdir)/modules/core/includes/ -I$(top_srcdir)/libs/MALLOC/includes/ -I$(top_srcdir)/modules/localization/includes/ $(INCLUDE_FLAGS) $(CHECK_SRC); \ + fi +java: +# Some configurations needs to export JAVA_HOME in the current env + @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \ + if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ + if test -f build.xml -a $$USEANT -eq 1; then \ + $(ANT); \ + fi + +clean-java: +# Some configurations needs to export JAVA_HOME in the current env + @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \ + if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ + if test -f build.xml -a $$USEANT -eq 1; then \ + $(ANT) clean; \ + fi; + +# If the user request for the SWIG generation of the wrappers Java => C/C++ +# We call the target swig-build on the variable SWIG_WRAPPERS + +#swig: $(SWIG_WRAPPERS) +# @SWIG_PACKAGENAME=org.scilab.modules.$(modulename); \ +# SWIG_OUTDIR=src/java/org/scilab/modules/$(modulename)/; \ +# if test -n "$(SWIG_WRAPPERS)"; then \ +# for file in $(SWIG_WRAPPERS) ; do \ +# echo "Swig process of $$file (Java) ..."; \ +# $(SWIG_BIN) $(SWIG_JAVA) -package $$SWIG_PACKAGENAME -outdir $$SWIG_OUTDIR $$file; \ +# done; \ +# fi + +#swig-scilab: $(SWIG_SCILAB_WRAPPERS) +# @SWIG_OUTDIR=src/swig/; \ +# if test -n "$(SWIG_SCILAB_WRAPPERS)"; then \ +# for file in $(SWIG_SCILAB_WRAPPERS) ; do \ +# echo "Swig process of $$file (Scilab) ..."; \ +# $(SWIG_BIN) $(SWIG_SCILAB) -outdir $$SWIG_OUTDIR $$file; \ +# done; \ +# fi + +# If the user request for the SWIG generation of the wrappers Java => C/C++ +# We call the target swig-build on the variable SWIG_WRAPPERS + +#giws: $(GIWS_WRAPPERS) +# @GIWS_OUTPUTDIR=src/jni/; \ +# MANDATORY_OPTIONS="--throws-exception-on-error --description-file"; \ +# if test -n "$(GIWS_WRAPPERS)"; then \ +# for file in $(GIWS_WRAPPERS) ; do \ +# echo "GIWS process of $$file ..."; \ +# if test -z "$(GIWS_OPTIONS)"; then \ +# $(GIWS_BIN) --disable-return-size-array --output-dir $$GIWS_OUTPUTDIR $$MANDATORY_OPTIONS $$file; \ +# else \ +# echo "Custom GIWS call with '$$GIWS_OPTIONS'"; \ +# $(GIWS_BIN) $$GIWS_OPTIONS --output-dir $$GIWS_OUTPUTDIR $$MANDATORY_OPTIONS $$file; \ +# fi \ +# done; \ +# fi + +#giws-exception: +# @GIWS_OUTPUTDIR=src/jni/;\ +# echo "GIWS: Generation of exception class ..."; \ +# $(GIWS_BIN) --generate-exception-class --output-dir $$GIWS_OUTPUTDIR + +macros: + -@( if test ! -x $(top_builddir)/scilab-bin; then \ + echo "Error : Cannot build $< : Scilab has not been built"; \ + else \ + $(top_builddir)/bin/scilab -ns -nwni -e "exec('macros/buildmacros.sce');quit;";\ + fi) + +# Removes the macros +clean-macros: +# Removes macros (*.bin generated from .sci) + @for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \ + echo "rm -f $(builddir)/$$dir/$(MACROBINMASK)"; \ + rm -f $(builddir)/$$dir/$(MACROBINMASK); \ + done + +test: +# More tests could be added here + @if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ + if test -f build.xml -a $$USEANT -eq 1; then \ + $(ANT) test; \ + fi + +all-local: $(TARGETS_ALL) + +.sci.bin: + -@( if test ! -x $(top_builddir)/scilab-bin; then \ + echo "Error : Cannot build $< : Scilab has not been build"; \ + else \ + echo "Creating $@"; \ + $(top_builddir)/bin/scilab -ns -nwni -e "exec('$(abs_srcdir)/$<');save('$(abs_srcdir)/$@');exit;"; \ + fi ) + +install-html-local: + +install-data-local-local: +# Mainly for javasci + @if test -d $(srcdir)/javadoc; then \ + cp -R $(srcdir)/javadoc $(DESTDIR)/$(mydatadir)/; \ + fi +# If the user wants the help sources to be installed + @echo "-------- Install of XML sources of help files --------"; \ + for lang in $(ALL_LINGUAS); do \ + if test -d $(srcdir)/help/$$lang; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/$$lang && \ + if ls -lLd $(srcdir)/help/$$lang/$(DOCMASKXML) >/dev/null 2>&1; then \ + for file in $(srcdir)/help/$$lang/$(DOCMASKXML) ; do \ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/$$lang" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/$$lang ; \ + done ; \ + fi; \ + fi; \ + done; \ + @echo "-------- Install of MathML sources --------"; \ + if test -d $(srcdir)/help/mml/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/mml/ && \ + if ls -lLd $(srcdir)/help/mml/$(DOCMASKMML) >/dev/null 2>&1; then \ + for file in $(srcdir)/help/mml/$(DOCMASKMML) ; do \ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/mml" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/mml ; \ + done ; \ + fi; \ + fi +install-data-local: +# Install the tests + @echo "-------- Install tests (if any) --------"; \ + for dir in $(TESTS_DIR) $(TESTS_DIREXT) ; do \ + if test -d $(srcdir)/$$dir/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \ + for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \ + if test -d "$(srcdir)/$$dir/$$file"; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir/$$file; \ + $(mkinstalldirs) "$(DESTDIR)$(pkgmacrosdir)/$$dir/$$file"; \ + else \ + echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \ + $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \ + fi \ + done; \ + fi; \ + done +# Install the help chapter + @echo "-------- Install the help chapter (if any) --------"; \ + for lang in $(HELP_CHAPTERLANG); do \ + HELPFILE=$(srcdir)/$(HELP_CHAPTERDIR)$$lang/$(HELP_CHAPTERFILE); \ + if test -f $$HELPFILE; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \ + echo $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \ + $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \ + fi; \ + done +# Install the demos & examples + @echo "-------- Install demos & examples (if any) --------"; \ + for dir in $(DEMOS_DIR) $(DEMOS_DIREXT) $(EXAMPLES_DIR) $(EXAMPLES_DIREXT) ; do \ + if test -d $(srcdir)/$$dir/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir && \ + for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \ + if test -d "$(srcdir)/$$dir/$$file"; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir/$$file; \ + $(mkinstalldirs) "$(DESTDIR)$(pkgdocdir)/$$dir/$$file"; \ + else \ + echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \ + $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \ + fi \ + done; \ + fi; \ + done +# Install the macros + @echo "-------- Install macros (if any) --------"; \ + for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \ + $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \ + if test -d $(srcdir)/$$dir/; then \ + FILELIST="$(srcdir)/$$dir/$(MACROMASK) $(srcdir)/$$dir/$(MACROBINMASK) $(srcdir)/$$dir/$(MACROBUILDMASK) $(srcdir)/$$dir/names $(srcdir)/$$dir/lib";\ + if test -n "$(MACROSSPECIALEXT)"; then \ + specialExtDir=""; \ + for specialExt in $(MACROSSPECIALEXT); do \ + specialExtDir="$$specialExtDir $(srcdir)/$$dir/$$specialExt"; \ + done; \ + FILELIST="$$FILELIST $$specialExtDir"; \ + fi; \ + for file in `ls -1 $$FILELIST 2>/dev/null`; do \ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgmacrosdir)/$$dir" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgmacrosdir)/$$dir ; \ + done; \ + fi; \ + done +# Install java files (.jar) + @if ls -lLd $(srcdir)/$(JARDIR)$(JARMASK) >/dev/null 2>&1; then \ + echo "-------- Install jar files --------"; \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(JARDIR); \ + for file in $(srcdir)/$(JARDIR)$(JARMASK); do\ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/$(JARDIR)" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/$(JARDIR) ; \ + done ; \ + fi + +########### CLEAN ################### +# Clean help (generated automatically by Scilab) +# It used to clean the macro (clean-macros) but this was causing +# make clean && make to fail Scilab startup +clean-local: clean-java +#clean-local: + +distclean-local: + rm -f $(builddir)/help/*/.last_successful_build_javaHelp $(builddir)/help/*/.list_* + +.PHONY: macros java swig giws + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/modules/double/Makefile.am b/modules/double/Makefile.am new file mode 100755 index 000000000..f566733aa --- /dev/null +++ b/modules/double/Makefile.am @@ -0,0 +1,72 @@ +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006 - INRIA - Sylvestre LEDRU +# +# This file is distributed under the same license as the Scilab package. + +GATEWAY_C_SOURCES = sci_gateway/c/gw_double.c + +GATEWAY_FORTRAN_SOURCES = sci_gateway/fortran/vecldiv.f \ +sci_gateway/fortran/vecmul.f \ +sci_gateway/fortran/matxpow.f \ +sci_gateway/fortran/matldiv.f \ +sci_gateway/fortran/matsubt.f \ +sci_gateway/fortran/vecrdiv.f \ +sci_gateway/fortran/matchsgn.f \ +sci_gateway/fortran/matrdiv.f \ +sci_gateway/fortran/matrc.f \ +sci_gateway/fortran/matpow.f \ +sci_gateway/fortran/matins1.f \ +sci_gateway/fortran/matins2.f \ +sci_gateway/fortran/matcmp.f \ +sci_gateway/fortran/matmult.f \ +sci_gateway/fortran/matext1.f \ +sci_gateway/fortran/matext2.f \ +sci_gateway/fortran/mattr.f \ +sci_gateway/fortran/matcc.f \ +sci_gateway/fortran/mattrc.f \ +sci_gateway/fortran/matadd.f + +noinst_LTLIBRARIES = libdummy-double.la +if MAINTAINER_MODE +pkglib_LTLIBRARIES = libscidouble.la +else +noinst_LTLIBRARIES += libscidouble.la +endif + + + +libscidouble_la_CPPFLAGS = -I$(top_srcdir)/modules/api_scilab/includes/ \ +-I$(top_srcdir)/modules/output_stream/includes/ \ +$(AM_CPPFLAGS) + +libscidouble_la_SOURCES = $(GATEWAY_C_SOURCES) $(GATEWAY_FORTRAN_SOURCES) + +# For the code check (splint) +CHECK_SRC= $(GATEWAY_C_SOURCES) +INCLUDE_FLAGS = $(libscidouble_la_CPPFLAGS) + +libscidouble_la_LIBADD = libdummy-double.la + +libdummy_double_la_SOURCES = sci_gateway/fortran/vecimpl.f + +# Following lines are extracted from a processed Makefile.in +# Take care while modifying : append -O0 after all commons options +vecimpl.lo: sci_gateway/fortran/vecimpl.f + $(AM_V_F77)$(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -O0 -c -o vecimpl.lo `test -f 'sci_gateway/fortran/vecimpl.f' || echo '$(srcdir)/'`sci_gateway/fortran/vecimpl.f + + + +#### Target ###### +modulename=double + + +#### double : Conf files #### +libscidouble_la_rootdir = $(mydatadir) +libscidouble_la_root_DATA = license.txt + + +#### double : init scripts #### +libscidouble_la_etcdir = $(mydatadir)/etc +libscidouble_la_etc_DATA = etc/double.quit etc/double.start + +include $(top_srcdir)/Makefile.incl.am diff --git a/modules/double/Makefile.in b/modules/double/Makefile.in new file mode 100755 index 000000000..ff514a96e --- /dev/null +++ b/modules/double/Makefile.in @@ -0,0 +1,1355 @@ +# Makefile.in generated by automake 1.14.1 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994-2013 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006 - INRIA - Sylvestre LEDRU +# +# This file is distributed under the same license as the Scilab package. + +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006-2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr> +# Copyright (C) 2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr> +# +# This file must be used under the terms of the CeCILL. +# This source file is licensed as described in the file COPYING, which +# you should have received as part of this distribution. The terms +# are also available at +# http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +# + +########## +### Makefile included stuff +### Target, variable, suffixes which are supposed to be useful in every makefile.am +########## + + +VPATH = @srcdir@ +am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' +am__make_running_with_option = \ + case $${target_option-} in \ + ?) ;; \ + *) echo "am__make_running_with_option: internal error: invalid" \ + "target option '$${target_option-}' specified" >&2; \ + exit 1;; \ + esac; \ + has_opt=no; \ + sane_makeflags=$$MAKEFLAGS; \ + if $(am__is_gnu_make); then \ + sane_makeflags=$$MFLAGS; \ + else \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + bs=\\; \ + sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ + | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ + esac; \ + fi; \ + skip_next=no; \ + strip_trailopt () \ + { \ + flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ + }; \ + for flg in $$sane_makeflags; do \ + test $$skip_next = yes && { skip_next=no; continue; }; \ + case $$flg in \ + *=*|--*) continue;; \ + -*I) strip_trailopt 'I'; skip_next=yes;; \ + -*I?*) strip_trailopt 'I';; \ + -*O) strip_trailopt 'O'; skip_next=yes;; \ + -*O?*) strip_trailopt 'O';; \ + -*l) strip_trailopt 'l'; skip_next=yes;; \ + -*l?*) strip_trailopt 'l';; \ + -[dEDm]) skip_next=yes;; \ + -[JT]) skip_next=yes;; \ + esac; \ + case $$flg in \ + *$$target_option*) has_opt=yes; break;; \ + esac; \ + done; \ + test $$has_opt = yes +am__make_dryrun = (target_option=n; $(am__make_running_with_option)) +am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) +pkgdatadir = $(datadir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkglibexecdir = $(libexecdir)/@PACKAGE@ +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +@MAINTAINER_MODE_FALSE@am__append_1 = libscidouble.la +DIST_COMMON = $(top_srcdir)/Makefile.incl.am $(srcdir)/Makefile.in \ + $(srcdir)/Makefile.am $(top_srcdir)/config/mkinstalldirs \ + $(top_srcdir)/config/depcomp +@NEED_JAVA_TRUE@am__append_2 = java +subdir = modules/double +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/backtrace.m4 \ + $(top_srcdir)/m4/compiler.m4 $(top_srcdir)/m4/curl.m4 \ + $(top_srcdir)/m4/docbook.m4 $(top_srcdir)/m4/doxygen.m4 \ + $(top_srcdir)/m4/fftw.m4 $(top_srcdir)/m4/fortran.m4 \ + $(top_srcdir)/m4/giws.m4 $(top_srcdir)/m4/hdf5.m4 \ + $(top_srcdir)/m4/intel_compiler.m4 \ + $(top_srcdir)/m4/java-thirdparty.m4 $(top_srcdir)/m4/java.m4 \ + $(top_srcdir)/m4/largefile.m4 $(top_srcdir)/m4/lib-ld.m4 \ + $(top_srcdir)/m4/libsmath.m4 $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/libxml2.m4 $(top_srcdir)/m4/ltoptions.m4 \ + $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \ + $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/macosx.m4 \ + $(top_srcdir)/m4/mpi.m4 $(top_srcdir)/m4/ocaml.m4 \ + $(top_srcdir)/m4/pcre.m4 $(top_srcdir)/m4/pkg.m4 \ + $(top_srcdir)/m4/relocatable.m4 $(top_srcdir)/m4/swig.m4 \ + $(top_srcdir)/m4/symlinks.m4 $(top_srcdir)/m4/tcltk.m4 \ + $(top_srcdir)/m4/umfpack.m4 $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(SHELL) $(top_srcdir)/config/mkinstalldirs +CONFIG_HEADER = $(top_builddir)/modules/core/includes/machine.h +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; +am__install_max = 40 +am__nobase_strip_setup = \ + srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` +am__nobase_strip = \ + for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" +am__nobase_list = $(am__nobase_strip_setup); \ + for p in $$list; do echo "$$p $$p"; done | \ + sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ + $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ + if (++n[$$2] == $(am__install_max)) \ + { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ + END { for (dir in files) print dir, files[dir] }' +am__base_list = \ + sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ + sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' +am__uninstall_files_from_dir = { \ + test -z "$$files" \ + || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ + || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ + $(am__cd) "$$dir" && rm -f $$files; }; \ + } +am__installdirs = "$(DESTDIR)$(pkglibdir)" \ + "$(DESTDIR)$(libscidouble_la_etcdir)" \ + "$(DESTDIR)$(libscidouble_la_rootdir)" +LTLIBRARIES = $(noinst_LTLIBRARIES) $(pkglib_LTLIBRARIES) +libdummy_double_la_LIBADD = +am__dirstamp = $(am__leading_dot)dirstamp +am_libdummy_double_la_OBJECTS = sci_gateway/fortran/vecimpl.lo +libdummy_double_la_OBJECTS = $(am_libdummy_double_la_OBJECTS) +AM_V_lt = $(am__v_lt_@AM_V@) +am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) +am__v_lt_0 = --silent +am__v_lt_1 = +libscidouble_la_DEPENDENCIES = libdummy-double.la +am__objects_1 = sci_gateway/c/libscidouble_la-gw_double.lo +am__objects_2 = sci_gateway/fortran/vecldiv.lo \ + sci_gateway/fortran/vecmul.lo sci_gateway/fortran/matxpow.lo \ + sci_gateway/fortran/matldiv.lo sci_gateway/fortran/matsubt.lo \ + sci_gateway/fortran/vecrdiv.lo sci_gateway/fortran/matchsgn.lo \ + sci_gateway/fortran/matrdiv.lo sci_gateway/fortran/matrc.lo \ + sci_gateway/fortran/matpow.lo sci_gateway/fortran/matins1.lo \ + sci_gateway/fortran/matins2.lo sci_gateway/fortran/matcmp.lo \ + sci_gateway/fortran/matmult.lo sci_gateway/fortran/matext1.lo \ + sci_gateway/fortran/matext2.lo sci_gateway/fortran/mattr.lo \ + sci_gateway/fortran/matcc.lo sci_gateway/fortran/mattrc.lo \ + sci_gateway/fortran/matadd.lo +am_libscidouble_la_OBJECTS = $(am__objects_1) $(am__objects_2) +libscidouble_la_OBJECTS = $(am_libscidouble_la_OBJECTS) +@MAINTAINER_MODE_FALSE@am_libscidouble_la_rpath = +@MAINTAINER_MODE_TRUE@am_libscidouble_la_rpath = -rpath $(pkglibdir) +AM_V_P = $(am__v_P_@AM_V@) +am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) +am__v_P_0 = false +am__v_P_1 = : +AM_V_GEN = $(am__v_GEN_@AM_V@) +am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) +am__v_GEN_0 = @echo " GEN " $@; +am__v_GEN_1 = +AM_V_at = $(am__v_at_@AM_V@) +am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) +am__v_at_0 = @ +am__v_at_1 = +DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/modules/core/includes +depcomp = $(SHELL) $(top_srcdir)/config/depcomp +am__depfiles_maybe = depfiles +am__mv = mv -f +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CFLAGS) $(CFLAGS) +AM_V_CC = $(am__v_CC_@AM_V@) +am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) +am__v_CC_0 = @echo " CC " $@; +am__v_CC_1 = +CCLD = $(CC) +LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_CCLD = $(am__v_CCLD_@AM_V@) +am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) +am__v_CCLD_0 = @echo " CCLD " $@; +am__v_CCLD_1 = +F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) +LTF77COMPILE = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) +AM_V_F77 = $(am__v_F77_@AM_V@) +am__v_F77_ = $(am__v_F77_@AM_DEFAULT_V@) +am__v_F77_0 = @echo " F77 " $@; +am__v_F77_1 = +F77LD = $(F77) +F77LINK = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_F77LD = $(am__v_F77LD_@AM_V@) +am__v_F77LD_ = $(am__v_F77LD_@AM_DEFAULT_V@) +am__v_F77LD_0 = @echo " F77LD " $@; +am__v_F77LD_1 = +SOURCES = $(libdummy_double_la_SOURCES) $(libscidouble_la_SOURCES) +DIST_SOURCES = $(libdummy_double_la_SOURCES) \ + $(libscidouble_la_SOURCES) +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +DATA = $(libscidouble_la_etc_DATA) $(libscidouble_la_root_DATA) +am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) +# Read a list of newline-separated strings from the standard input, +# and print each of them once, without duplicates. Input order is +# *not* preserved. +am__uniquify_input = $(AWK) '\ + BEGIN { nonempty = 0; } \ + { items[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in items) print i; }; } \ +' +# Make sure the list of sources is unique. This is necessary because, +# e.g., the same source file might be shared among _SOURCES variables +# for different programs/libraries. +am__define_uniq_tagged_files = \ + list='$(am__tagged_files)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | $(am__uniquify_input)` +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +ALL_LINGUAS = @ALL_LINGUAS@ +ALL_LINGUAS_DOC = @ALL_LINGUAS_DOC@ +AMTAR = @AMTAR@ +AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ +ANT = @ANT@ +ANTLR = @ANTLR@ +AR = @AR@ +ARPACK_LIBS = @ARPACK_LIBS@ +ASM3 = @ASM3@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AVALON_FRAMEWORK = @AVALON_FRAMEWORK@ +AWK = @AWK@ +BATIK = @BATIK@ +BLAS_LIBS = @BLAS_LIBS@ +CC = @CC@ +CCACHE = @CCACHE@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CHECKSTYLE = @CHECKSTYLE@ +COBERTURA = @COBERTURA@ +COMMONS_BEANUTILS = @COMMONS_BEANUTILS@ +COMMONS_IO = @COMMONS_IO@ +COMMONS_LOGGING = @COMMONS_LOGGING@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CURL_CFLAGS = @CURL_CFLAGS@ +CURL_CONFIG = @CURL_CONFIG@ +CURL_LIBS = @CURL_LIBS@ +CURL_VERSION = @CURL_VERSION@ +CXX = @CXX@ +CXXCPP = @CXXCPP@ +CXXDEPMODE = @CXXDEPMODE@ +CXXFLAGS = @CXXFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEMOTOOLS_ENABLE = @DEMOTOOLS_ENABLE@ +DEPDIR = @DEPDIR@ +DLLTOOL = @DLLTOOL@ +DOCBOOK_ROOT = @DOCBOOK_ROOT@ +DOXYGEN_BIN = @DOXYGEN_BIN@ +DSYMUTIL = @DSYMUTIL@ +DUMPBIN = @DUMPBIN@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +ECJ = @ECJ@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +F77 = @F77@ +FFLAGS = @FFLAGS@ +FFTW3_LIB = @FFTW3_LIB@ +FFTW_ENABLE = @FFTW_ENABLE@ +FGREP = @FGREP@ +FLEXDOCK = @FLEXDOCK@ +FLIBS = @FLIBS@ +FOP = @FOP@ +FREEHEP_GRAPHICS2D = @FREEHEP_GRAPHICS2D@ +FREEHEP_GRAPHICSIO = @FREEHEP_GRAPHICSIO@ +FREEHEP_GRAPHICSIO_EMF = @FREEHEP_GRAPHICSIO_EMF@ +FREEHEP_IO = @FREEHEP_IO@ +FREEHEP_UTIL = @FREEHEP_UTIL@ +GENHTML = @GENHTML@ +GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@ +GIWS_BIN = @GIWS_BIN@ +GLUEGEN2_RT = @GLUEGEN2_RT@ +GMSGFMT = @GMSGFMT@ +GMSGFMT_015 = @GMSGFMT_015@ +GRAPHICS_ENABLE = @GRAPHICS_ENABLE@ +GREP = @GREP@ +GUI_ENABLE = @GUI_ENABLE@ +HDF5_CFLAGS = @HDF5_CFLAGS@ +HDF5_LIBS = @HDF5_LIBS@ +HELP_ENABLE = @HELP_ENABLE@ +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +INTLLIBS = @INTLLIBS@ +INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@ +JAR = @JAR@ +JAVA = @JAVA@ +JAVAC = @JAVAC@ +JAVAC_DEBUG = @JAVAC_DEBUG@ +JAVADOC = @JAVADOC@ +JAVAH = @JAVAH@ +JAVASCI_ENABLE = @JAVASCI_ENABLE@ +JAVA_ENABLE = @JAVA_ENABLE@ +JAVA_G = @JAVA_G@ +JAVA_HOME = @JAVA_HOME@ +JAVA_JNI_INCLUDE = @JAVA_JNI_INCLUDE@ +JAVA_JNI_LIBS = @JAVA_JNI_LIBS@ +JDB = @JDB@ +JEUCLID_CORE = @JEUCLID_CORE@ +JGRAPHX = @JGRAPHX@ +JHALL = @JHALL@ +JLATEXMATH = @JLATEXMATH@ +JLATEXMATH_FOP = @JLATEXMATH_FOP@ +JOGL2 = @JOGL2@ +JROSETTA_API = @JROSETTA_API@ +JROSETTA_ENGINE = @JROSETTA_ENGINE@ +JUNIT4 = @JUNIT4@ +LAPACK_LIBS = @LAPACK_LIBS@ +LCOV = @LCOV@ +LD = @LD@ +LDFLAGS = @LDFLAGS@ +LIBICONV = @LIBICONV@ +LIBINTL = @LIBINTL@ +LIBM = @LIBM@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LIPO = @LIPO@ +LN_S = @LN_S@ +LOGGING_LEVEL = @LOGGING_LEVEL@ +LOOKS = @LOOKS@ +LTLIBICONV = @LTLIBICONV@ +LTLIBINTL = @LTLIBINTL@ +LTLIBOBJS = @LTLIBOBJS@ +MAINT = @MAINT@ +MAKEINFO = @MAKEINFO@ +MANIFEST_TOOL = @MANIFEST_TOOL@ +MATIO_CFLAGS = @MATIO_CFLAGS@ +MATIO_ENABLE = @MATIO_ENABLE@ +MATIO_LIBS = @MATIO_LIBS@ +MKDIR_P = @MKDIR_P@ +MPI_ENABLE = @MPI_ENABLE@ +MSGCAT = @MSGCAT@ +MSGFMT = @MSGFMT@ +MSGFMT_015 = @MSGFMT_015@ +MSGMERGE = @MSGMERGE@ +NM = @NM@ +NMEDIT = @NMEDIT@ +OBJDUMP = @OBJDUMP@ +OBJEXT = @OBJEXT@ +OCAMLC = @OCAMLC@ +OCAMLDEP = @OCAMLDEP@ +OCAMLLEX = @OCAMLLEX@ +OCAMLOPT = @OCAMLOPT@ +OCAMLYACC = @OCAMLYACC@ +OPENMPI_CC = @OPENMPI_CC@ +OPENMPI_CFLAGS = @OPENMPI_CFLAGS@ +OPENMPI_CXX = @OPENMPI_CXX@ +OPENMPI_CXXFLAGS = @OPENMPI_CXXFLAGS@ +OPENMPI_LIBS = @OPENMPI_LIBS@ +OPENMP_CFLAGS = @OPENMP_CFLAGS@ +OPENMP_CXXFLAGS = @OPENMP_CXXFLAGS@ +OPENMP_ENABLE = @OPENMP_ENABLE@ +OPENMP_LIBS = @OPENMP_LIBS@ +OTOOL = @OTOOL@ +OTOOL64 = @OTOOL64@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_URL = @PACKAGE_URL@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +PCRE_CFLAGS = @PCRE_CFLAGS@ +PCRE_CONFIG = @PCRE_CONFIG@ +PCRE_LIBS = @PCRE_LIBS@ +PCRE_VERSION = @PCRE_VERSION@ +PKG_CONFIG = @PKG_CONFIG@ +POSUB = @POSUB@ +POW_LIB = @POW_LIB@ +PYTHON = @PYTHON@ +RANLIB = @RANLIB@ +RELOCATABLE = @RELOCATABLE@ +RT_LIB = @RT_LIB@ +SAXON = @SAXON@ +SCILAB_BINARY_VERSION = @SCILAB_BINARY_VERSION@ +SCILAB_LIBRARY_VERSION = @SCILAB_LIBRARY_VERSION@ +SCILAB_VERSION_MAINTENANCE = @SCILAB_VERSION_MAINTENANCE@ +SCILAB_VERSION_MAJOR = @SCILAB_VERSION_MAJOR@ +SCILAB_VERSION_MINOR = @SCILAB_VERSION_MINOR@ +SCIRENDERER = @SCIRENDERER@ +SCIRENDERER_CP = @SCIRENDERER_CP@ +SCI_CFLAGS = @SCI_CFLAGS@ +SCI_CXXFLAGS = @SCI_CXXFLAGS@ +SCI_FFLAGS = @SCI_FFLAGS@ +SCI_LDFLAGS = @SCI_LDFLAGS@ +SED = @SED@ +SET_MAKE = @SET_MAKE@ +SET_RELOCATABLE = @SET_RELOCATABLE@ +SHELL = @SHELL@ +SKINLF = @SKINLF@ +SPLINT = @SPLINT@ +STRIP = @STRIP@ +SWIG_BIN = @SWIG_BIN@ +SWIG_JAVA = @SWIG_JAVA@ +SWIG_RUNTIME_LIBS_DIR = @SWIG_RUNTIME_LIBS_DIR@ +SWIG_SCILAB = @SWIG_SCILAB@ +TCLTK_LIBS = @TCLTK_LIBS@ +TCL_INC_PATH = @TCL_INC_PATH@ +TK_INC_PATH = @TK_INC_PATH@ +UMFPACK_CFLAGS = @UMFPACK_CFLAGS@ +UMFPACK_ENABLE = @UMFPACK_ENABLE@ +UMFPACK_LIB = @UMFPACK_LIB@ +USE_NLS = @USE_NLS@ +VERSION = @VERSION@ +WITH_OCAML = @WITH_OCAML@ +WITH_TKSCI = @WITH_TKSCI@ +XCOS_ENABLE = @XCOS_ENABLE@ +XGETTEXT = @XGETTEXT@ +XGETTEXT_015 = @XGETTEXT_015@ +XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@ +XMKMF = @XMKMF@ +XMLGRAPHICS_COMMONS = @XMLGRAPHICS_COMMONS@ +XML_APIS_EXT = @XML_APIS_EXT@ +XML_CONFIG = @XML_CONFIG@ +XML_FLAGS = @XML_FLAGS@ +XML_LIBS = @XML_LIBS@ +XML_VERSION = @XML_VERSION@ +X_CFLAGS = @X_CFLAGS@ +X_EXTRA_LIBS = @X_EXTRA_LIBS@ +X_LIBS = @X_LIBS@ +X_PRE_LIBS = @X_PRE_LIBS@ +abs_builddir = @abs_builddir@ +abs_srcdir = @abs_srcdir@ +abs_top_builddir = @abs_top_builddir@ +abs_top_srcdir = @abs_top_srcdir@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_CXX = @ac_ct_CXX@ +ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ +ac_ct_F77 = @ac_ct_F77@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +builddir = @builddir@ +cxx_present = @cxx_present@ +datadir = @datadir@ +datarootdir = @datarootdir@ +docdir = @docdir@ +dvidir = @dvidir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +htmldir = @htmldir@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localedir = @localedir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +pdfdir = @pdfdir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +psdir = @psdir@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +srcdir = @srcdir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +top_build_prefix = @top_build_prefix@ +top_builddir = @top_builddir@ +top_srcdir = @top_srcdir@ +GATEWAY_C_SOURCES = sci_gateway/c/gw_double.c +GATEWAY_FORTRAN_SOURCES = sci_gateway/fortran/vecldiv.f \ +sci_gateway/fortran/vecmul.f \ +sci_gateway/fortran/matxpow.f \ +sci_gateway/fortran/matldiv.f \ +sci_gateway/fortran/matsubt.f \ +sci_gateway/fortran/vecrdiv.f \ +sci_gateway/fortran/matchsgn.f \ +sci_gateway/fortran/matrdiv.f \ +sci_gateway/fortran/matrc.f \ +sci_gateway/fortran/matpow.f \ +sci_gateway/fortran/matins1.f \ +sci_gateway/fortran/matins2.f \ +sci_gateway/fortran/matcmp.f \ +sci_gateway/fortran/matmult.f \ +sci_gateway/fortran/matext1.f \ +sci_gateway/fortran/matext2.f \ +sci_gateway/fortran/mattr.f \ +sci_gateway/fortran/matcc.f \ +sci_gateway/fortran/mattrc.f \ +sci_gateway/fortran/matadd.f + +noinst_LTLIBRARIES = libdummy-double.la $(am__append_1) +@MAINTAINER_MODE_TRUE@pkglib_LTLIBRARIES = libscidouble.la +libscidouble_la_CPPFLAGS = -I$(top_srcdir)/modules/api_scilab/includes/ \ +-I$(top_srcdir)/modules/output_stream/includes/ \ +$(AM_CPPFLAGS) + +libscidouble_la_SOURCES = $(GATEWAY_C_SOURCES) $(GATEWAY_FORTRAN_SOURCES) + +# For the code check (splint) +CHECK_SRC = $(GATEWAY_C_SOURCES) +INCLUDE_FLAGS = $(libscidouble_la_CPPFLAGS) +libscidouble_la_LIBADD = libdummy-double.la +libdummy_double_la_SOURCES = sci_gateway/fortran/vecimpl.f + +#### Target ###### +modulename = double + +#### double : Conf files #### +libscidouble_la_rootdir = $(mydatadir) +libscidouble_la_root_DATA = license.txt + +#### double : init scripts #### +libscidouble_la_etcdir = $(mydatadir)/etc +libscidouble_la_etc_DATA = etc/double.quit etc/double.start + +# Where all the Scilab stuff is installed (macros, help, ...) +mydatadir = $(pkgdatadir)/modules/$(modulename) + +# Set AM_* SCI detected settings +AM_CPPFLAGS = $(SCI_CPPFLAGS) +AM_CFLAGS = $(SCI_CFLAGS) +AM_CXXFLAGS = $(SCI_CXXFLAGS) +# append includes to AM_FFLAGS to manage fortran includes +AM_FFLAGS = $(SCI_FFLAGS) -I$(top_srcdir)/modules/core/includes/ + +# Tag shared libraries with the Scilab version +AM_LDFLAGS = $(SCI_LDFLAGS) -version-number $(SCILAB_LIBRARY_VERSION) + +# splint options +SPLINT_OPTIONS = -weak -booltype BOOL + +########################### JAVA ###################################### +#### We are delegating java compilation to ant... Thanks to that +#### the procedure will be the same with Microsoft Windows (C) +#### and Linux/Unix +####################################################################### +TARGETS_ALL = $(am__append_2) + +################ MACROS ###################### +# Rule to build a macro +# NOT USED AT THE MOMENT +SUFFIXES = .sci + +########### INSTALL DOCUMENTATION ################### + +# Install documentation files into the right target +# We do not use the automake mechanism (libxxxx_la_help_fr_DATA) because +# automake needs the html files to be present which is not the case when +# we are building Scilab + +# Where it should be installed +pkgdocdir = $(mydatadir) + +# What is the mask of the help source +DOCMASKXML = *.xml + +# What is the mask of the MathML sources +DOCMASKMML = *.mml + +########### INSTALL DATA ################### +# Install macros, help & demos +# Where it should be installed +pkgmacrosdir = $(mydatadir) +# Which directory we process +MACRODIRS = macros/ +# Mask of the Scilab sources macros +MACROMASK = *.sci +# Mask of the Scilab executable sources macros +MACROBUILDMASK = *.sce +# Mask of the Scilab compiled macros +MACROBINMASK = *.bin +# List of the standard directory for tests +TESTS_DIR = tests/benchmarks tests/nonreg_tests tests/unit_tests tests/java +# Where the demos should be installed +pkgdemosdir = $(mydatadir) +# List of the standard directory for demos +DEMOS_DIR = demos +# List of the standard directory for examples +EXAMPLES_DIR = examples +# Where to export JAVA archives (.jar) +JARDIR = jar/ +# JAR files mask +JARMASK = *.jar +# Chapter file +HELP_CHAPTERDIR = help/ +HELP_CHAPTERFILE = addchapter.sce +HELP_CHAPTERLANG = en_US fr_FR pt_BR +all: all-am + +.SUFFIXES: +.SUFFIXES: .sci .bin .c .f .lo .o .obj +$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/Makefile.incl.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign modules/double/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --foreign modules/double/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; +$(top_srcdir)/Makefile.incl.am: + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): + +clean-noinstLTLIBRARIES: + -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) + @list='$(noinst_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } + +install-pkglibLTLIBRARIES: $(pkglib_LTLIBRARIES) + @$(NORMAL_INSTALL) + @list='$(pkglib_LTLIBRARIES)'; test -n "$(pkglibdir)" || list=; \ + list2=; for p in $$list; do \ + if test -f $$p; then \ + list2="$$list2 $$p"; \ + else :; fi; \ + done; \ + test -z "$$list2" || { \ + echo " $(MKDIR_P) '$(DESTDIR)$(pkglibdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(pkglibdir)" || exit 1; \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(pkglibdir)'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(pkglibdir)"; \ + } + +uninstall-pkglibLTLIBRARIES: + @$(NORMAL_UNINSTALL) + @list='$(pkglib_LTLIBRARIES)'; test -n "$(pkglibdir)" || list=; \ + for p in $$list; do \ + $(am__strip_dir) \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(pkglibdir)/$$f'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(pkglibdir)/$$f"; \ + done + +clean-pkglibLTLIBRARIES: + -test -z "$(pkglib_LTLIBRARIES)" || rm -f $(pkglib_LTLIBRARIES) + @list='$(pkglib_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } +sci_gateway/fortran/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/fortran + @: > sci_gateway/fortran/$(am__dirstamp) +sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/fortran/$(DEPDIR) + @: > sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/vecimpl.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) + +libdummy-double.la: $(libdummy_double_la_OBJECTS) $(libdummy_double_la_DEPENDENCIES) $(EXTRA_libdummy_double_la_DEPENDENCIES) + $(AM_V_F77LD)$(F77LINK) $(libdummy_double_la_OBJECTS) $(libdummy_double_la_LIBADD) $(LIBS) +sci_gateway/c/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/c + @: > sci_gateway/c/$(am__dirstamp) +sci_gateway/c/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/c/$(DEPDIR) + @: > sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscidouble_la-gw_double.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/vecldiv.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/vecmul.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matxpow.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matldiv.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matsubt.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/vecrdiv.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matchsgn.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matrdiv.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matrc.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matpow.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matins1.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matins2.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matcmp.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matmult.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matext1.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matext2.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/mattr.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matcc.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/mattrc.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) +sci_gateway/fortran/matadd.lo: sci_gateway/fortran/$(am__dirstamp) \ + sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) + +libscidouble.la: $(libscidouble_la_OBJECTS) $(libscidouble_la_DEPENDENCIES) $(EXTRA_libscidouble_la_DEPENDENCIES) + $(AM_V_F77LD)$(F77LINK) $(am_libscidouble_la_rpath) $(libscidouble_la_OBJECTS) $(libscidouble_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + -rm -f sci_gateway/c/*.$(OBJEXT) + -rm -f sci_gateway/c/*.lo + -rm -f sci_gateway/fortran/*.$(OBJEXT) + -rm -f sci_gateway/fortran/*.lo + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscidouble_la-gw_double.Plo@am__quote@ + +.c.o: +@am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.o$$||'`;\ +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ +@am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $< + +.c.obj: +@am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.obj$$||'`;\ +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ `$(CYGPATH_W) '$<'` &&\ +@am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.c.lo: +@am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.lo$$||'`;\ +@am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ +@am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $< + +sci_gateway/c/libscidouble_la-gw_double.lo: sci_gateway/c/gw_double.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscidouble_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscidouble_la-gw_double.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscidouble_la-gw_double.Tpo -c -o sci_gateway/c/libscidouble_la-gw_double.lo `test -f 'sci_gateway/c/gw_double.c' || echo '$(srcdir)/'`sci_gateway/c/gw_double.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscidouble_la-gw_double.Tpo sci_gateway/c/$(DEPDIR)/libscidouble_la-gw_double.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/gw_double.c' object='sci_gateway/c/libscidouble_la-gw_double.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscidouble_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscidouble_la-gw_double.lo `test -f 'sci_gateway/c/gw_double.c' || echo '$(srcdir)/'`sci_gateway/c/gw_double.c + +.f.o: + $(AM_V_F77)$(F77COMPILE) -c -o $@ $< + +.f.obj: + $(AM_V_F77)$(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.f.lo: + $(AM_V_F77)$(LTF77COMPILE) -c -o $@ $< + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + -rm -rf sci_gateway/c/.libs sci_gateway/c/_libs + -rm -rf sci_gateway/fortran/.libs sci_gateway/fortran/_libs +install-libscidouble_la_etcDATA: $(libscidouble_la_etc_DATA) + @$(NORMAL_INSTALL) + @list='$(libscidouble_la_etc_DATA)'; test -n "$(libscidouble_la_etcdir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscidouble_la_etcdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscidouble_la_etcdir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscidouble_la_etcdir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscidouble_la_etcdir)" || exit $$?; \ + done + +uninstall-libscidouble_la_etcDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscidouble_la_etc_DATA)'; test -n "$(libscidouble_la_etcdir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscidouble_la_etcdir)'; $(am__uninstall_files_from_dir) +install-libscidouble_la_rootDATA: $(libscidouble_la_root_DATA) + @$(NORMAL_INSTALL) + @list='$(libscidouble_la_root_DATA)'; test -n "$(libscidouble_la_rootdir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscidouble_la_rootdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscidouble_la_rootdir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscidouble_la_rootdir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscidouble_la_rootdir)" || exit $$?; \ + done + +uninstall-libscidouble_la_rootDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscidouble_la_root_DATA)'; test -n "$(libscidouble_la_rootdir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscidouble_la_rootdir)'; $(am__uninstall_files_from_dir) + +ID: $(am__tagged_files) + $(am__define_uniq_tagged_files); mkid -fID $$unique +tags: tags-am +TAGS: tags + +tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + set x; \ + here=`pwd`; \ + $(am__define_uniq_tagged_files); \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: ctags-am + +CTAGS: ctags +ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + $(am__define_uniq_tagged_files); \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" +cscopelist: cscopelist-am + +cscopelist-am: $(am__tagged_files) + list='$(am__tagged_files)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done +check-am: all-am + $(MAKE) $(AM_MAKEFLAGS) check-local +check: check-am +all-am: Makefile $(LTLIBRARIES) $(DATA) all-local +installdirs: + for dir in "$(DESTDIR)$(pkglibdir)" "$(DESTDIR)$(libscidouble_la_etcdir)" "$(DESTDIR)$(libscidouble_la_rootdir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + -rm -f sci_gateway/c/$(DEPDIR)/$(am__dirstamp) + -rm -f sci_gateway/c/$(am__dirstamp) + -rm -f sci_gateway/fortran/$(DEPDIR)/$(am__dirstamp) + -rm -f sci_gateway/fortran/$(am__dirstamp) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libtool clean-local \ + clean-noinstLTLIBRARIES clean-pkglibLTLIBRARIES mostlyclean-am + +distclean: distclean-am + -rm -rf sci_gateway/c/$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-local distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +html-am: + +info: info-am + +info-am: + +install-data-am: install-data-local install-libscidouble_la_etcDATA \ + install-libscidouble_la_rootDATA + +install-dvi: install-dvi-am + +install-dvi-am: + +install-exec-am: install-pkglibLTLIBRARIES + +install-html: install-html-am + +install-html-am: install-html-local + +install-info: install-info-am + +install-info-am: + +install-man: + +install-pdf: install-pdf-am + +install-pdf-am: + +install-ps: install-ps-am + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf sci_gateway/c/$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-libscidouble_la_etcDATA \ + uninstall-libscidouble_la_rootDATA uninstall-pkglibLTLIBRARIES + +.MAKE: check-am install-am install-strip + +.PHONY: CTAGS GTAGS TAGS all all-am all-local check check-am \ + check-local clean clean-generic clean-libtool clean-local \ + clean-noinstLTLIBRARIES clean-pkglibLTLIBRARIES cscopelist-am \ + ctags ctags-am distclean distclean-compile distclean-generic \ + distclean-libtool distclean-local distclean-tags distdir dvi \ + dvi-am html html-am info info-am install install-am \ + install-data install-data-am install-data-local install-dvi \ + install-dvi-am install-exec install-exec-am install-html \ + install-html-am install-html-local install-info \ + install-info-am install-libscidouble_la_etcDATA \ + install-libscidouble_la_rootDATA install-man install-pdf \ + install-pdf-am install-pkglibLTLIBRARIES install-ps \ + install-ps-am install-strip installcheck installcheck-am \ + installdirs maintainer-clean maintainer-clean-generic \ + mostlyclean mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool pdf pdf-am ps ps-am tags tags-am uninstall \ + uninstall-am uninstall-libscidouble_la_etcDATA \ + uninstall-libscidouble_la_rootDATA uninstall-pkglibLTLIBRARIES + + +# Following lines are extracted from a processed Makefile.in +# Take care while modifying : append -O0 after all commons options +vecimpl.lo: sci_gateway/fortran/vecimpl.f + $(AM_V_F77)$(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -O0 -c -o vecimpl.lo `test -f 'sci_gateway/fortran/vecimpl.f' || echo '$(srcdir)/'`sci_gateway/fortran/vecimpl.f + +# This target enables tests for Scilab +check-local: $(top_builddir)/scilab-bin test + if test -d $(mydatadir)/tests; then \ + @COMMAND="try test_run('$(modulename)');catch exit(-1);end;exit(0)"; export LANG=C; $(top_builddir)/bin/scilab -nwni -nb -e "$$COMMAND"; \ + fi +check-code: + if test -f build.xml; then \ + $(ANT) checkstyle; \ + fi + if test -x "$(SPLINT)"; then \ + $(SPLINT) $(SPLINT_OPTIONS) -I$(top_srcdir)/modules/core/includes/ -I$(top_srcdir)/libs/MALLOC/includes/ -I$(top_srcdir)/modules/localization/includes/ $(INCLUDE_FLAGS) $(CHECK_SRC); \ + fi +@NEED_JAVA_TRUE@java: +# Some configurations needs to export JAVA_HOME in the current env +@NEED_JAVA_TRUE@ @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \ +@NEED_JAVA_TRUE@ if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ +@NEED_JAVA_TRUE@ if test -f build.xml -a $$USEANT -eq 1; then \ +@NEED_JAVA_TRUE@ $(ANT); \ +@NEED_JAVA_TRUE@ fi + +@NEED_JAVA_TRUE@clean-java: +# Some configurations needs to export JAVA_HOME in the current env +@NEED_JAVA_TRUE@ @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \ +@NEED_JAVA_TRUE@ if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ +@NEED_JAVA_TRUE@ if test -f build.xml -a $$USEANT -eq 1; then \ +@NEED_JAVA_TRUE@ $(ANT) clean; \ +@NEED_JAVA_TRUE@ fi; + +# If the user request for the SWIG generation of the wrappers Java => C/C++ +# We call the target swig-build on the variable SWIG_WRAPPERS + +@SWIG_TRUE@swig: $(SWIG_WRAPPERS) +@SWIG_TRUE@ @SWIG_PACKAGENAME=org.scilab.modules.$(modulename); \ +@SWIG_TRUE@ SWIG_OUTDIR=src/java/org/scilab/modules/$(modulename)/; \ +@SWIG_TRUE@ if test -n "$(SWIG_WRAPPERS)"; then \ +@SWIG_TRUE@ for file in $(SWIG_WRAPPERS) ; do \ +@SWIG_TRUE@ echo "Swig process of $$file (Java) ..."; \ +@SWIG_TRUE@ $(SWIG_BIN) $(SWIG_JAVA) -package $$SWIG_PACKAGENAME -outdir $$SWIG_OUTDIR $$file; \ +@SWIG_TRUE@ done; \ +@SWIG_TRUE@ fi + +@SWIG_TRUE@swig-scilab: $(SWIG_SCILAB_WRAPPERS) +@SWIG_TRUE@ @SWIG_OUTDIR=src/swig/; \ +@SWIG_TRUE@ if test -n "$(SWIG_SCILAB_WRAPPERS)"; then \ +@SWIG_TRUE@ for file in $(SWIG_SCILAB_WRAPPERS) ; do \ +@SWIG_TRUE@ echo "Swig process of $$file (Scilab) ..."; \ +@SWIG_TRUE@ $(SWIG_BIN) $(SWIG_SCILAB) -outdir $$SWIG_OUTDIR $$file; \ +@SWIG_TRUE@ done; \ +@SWIG_TRUE@ fi + +# If the user request for the SWIG generation of the wrappers Java => C/C++ +# We call the target swig-build on the variable SWIG_WRAPPERS + +@GIWS_TRUE@giws: $(GIWS_WRAPPERS) +@GIWS_TRUE@ @GIWS_OUTPUTDIR=src/jni/; \ +@GIWS_TRUE@ MANDATORY_OPTIONS="--throws-exception-on-error --description-file"; \ +@GIWS_TRUE@ if test -n "$(GIWS_WRAPPERS)"; then \ +@GIWS_TRUE@ for file in $(GIWS_WRAPPERS) ; do \ +@GIWS_TRUE@ echo "GIWS process of $$file ..."; \ +@GIWS_TRUE@ if test -z "$(GIWS_OPTIONS)"; then \ +@GIWS_TRUE@ $(GIWS_BIN) --disable-return-size-array --output-dir $$GIWS_OUTPUTDIR $$MANDATORY_OPTIONS $$file; \ +@GIWS_TRUE@ else \ +@GIWS_TRUE@ echo "Custom GIWS call with '$$GIWS_OPTIONS'"; \ +@GIWS_TRUE@ $(GIWS_BIN) $$GIWS_OPTIONS --output-dir $$GIWS_OUTPUTDIR $$MANDATORY_OPTIONS $$file; \ +@GIWS_TRUE@ fi \ +@GIWS_TRUE@ done; \ +@GIWS_TRUE@ fi + +@GIWS_TRUE@giws-exception: +@GIWS_TRUE@ @GIWS_OUTPUTDIR=src/jni/;\ +@GIWS_TRUE@ echo "GIWS: Generation of exception class ..."; \ +@GIWS_TRUE@ $(GIWS_BIN) --generate-exception-class --output-dir $$GIWS_OUTPUTDIR + +macros: + -@( if test ! -x $(top_builddir)/scilab-bin; then \ + echo "Error : Cannot build $< : Scilab has not been built"; \ + else \ + $(top_builddir)/bin/scilab -ns -nwni -e "exec('macros/buildmacros.sce');quit;";\ + fi) + +# Removes the macros +clean-macros: +# Removes macros (*.bin generated from .sci) + @for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \ + echo "rm -f $(builddir)/$$dir/$(MACROBINMASK)"; \ + rm -f $(builddir)/$$dir/$(MACROBINMASK); \ + done + +test: +# More tests could be added here + @if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ + if test -f build.xml -a $$USEANT -eq 1; then \ + $(ANT) test; \ + fi + +all-local: $(TARGETS_ALL) + +.sci.bin: + -@( if test ! -x $(top_builddir)/scilab-bin; then \ + echo "Error : Cannot build $< : Scilab has not been build"; \ + else \ + echo "Creating $@"; \ + $(top_builddir)/bin/scilab -ns -nwni -e "exec('$(abs_srcdir)/$<');save('$(abs_srcdir)/$@');exit;"; \ + fi ) + +install-html-local: + +install-data-local-local: +# Mainly for javasci + @if test -d $(srcdir)/javadoc; then \ + cp -R $(srcdir)/javadoc $(DESTDIR)/$(mydatadir)/; \ + fi +# If the user wants the help sources to be installed +@INSTALL_HELP_XML_TRUE@ @echo "-------- Install of XML sources of help files --------"; \ +@INSTALL_HELP_XML_TRUE@ for lang in $(ALL_LINGUAS); do \ +@INSTALL_HELP_XML_TRUE@ if test -d $(srcdir)/help/$$lang; then \ +@INSTALL_HELP_XML_TRUE@ $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/$$lang && \ +@INSTALL_HELP_XML_TRUE@ if ls -lLd $(srcdir)/help/$$lang/$(DOCMASKXML) >/dev/null 2>&1; then \ +@INSTALL_HELP_XML_TRUE@ for file in $(srcdir)/help/$$lang/$(DOCMASKXML) ; do \ +@INSTALL_HELP_XML_TRUE@ echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/$$lang" ; \ +@INSTALL_HELP_XML_TRUE@ $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/$$lang ; \ +@INSTALL_HELP_XML_TRUE@ done ; \ +@INSTALL_HELP_XML_TRUE@ fi; \ +@INSTALL_HELP_XML_TRUE@ fi; \ +@INSTALL_HELP_XML_TRUE@ done; \ +@INSTALL_HELP_XML_TRUE@ @echo "-------- Install of MathML sources --------"; \ +@INSTALL_HELP_XML_TRUE@ if test -d $(srcdir)/help/mml/; then \ +@INSTALL_HELP_XML_TRUE@ $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/mml/ && \ +@INSTALL_HELP_XML_TRUE@ if ls -lLd $(srcdir)/help/mml/$(DOCMASKMML) >/dev/null 2>&1; then \ +@INSTALL_HELP_XML_TRUE@ for file in $(srcdir)/help/mml/$(DOCMASKMML) ; do \ +@INSTALL_HELP_XML_TRUE@ echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/mml" ; \ +@INSTALL_HELP_XML_TRUE@ $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/mml ; \ +@INSTALL_HELP_XML_TRUE@ done ; \ +@INSTALL_HELP_XML_TRUE@ fi; \ +@INSTALL_HELP_XML_TRUE@ fi +install-data-local: +# Install the tests + @echo "-------- Install tests (if any) --------"; \ + for dir in $(TESTS_DIR) $(TESTS_DIREXT) ; do \ + if test -d $(srcdir)/$$dir/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \ + for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \ + if test -d "$(srcdir)/$$dir/$$file"; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir/$$file; \ + $(mkinstalldirs) "$(DESTDIR)$(pkgmacrosdir)/$$dir/$$file"; \ + else \ + echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \ + $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \ + fi \ + done; \ + fi; \ + done +# Install the help chapter + @echo "-------- Install the help chapter (if any) --------"; \ + for lang in $(HELP_CHAPTERLANG); do \ + HELPFILE=$(srcdir)/$(HELP_CHAPTERDIR)$$lang/$(HELP_CHAPTERFILE); \ + if test -f $$HELPFILE; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \ + echo $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \ + $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \ + fi; \ + done +# Install the demos & examples + @echo "-------- Install demos & examples (if any) --------"; \ + for dir in $(DEMOS_DIR) $(DEMOS_DIREXT) $(EXAMPLES_DIR) $(EXAMPLES_DIREXT) ; do \ + if test -d $(srcdir)/$$dir/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir && \ + for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \ + if test -d "$(srcdir)/$$dir/$$file"; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir/$$file; \ + $(mkinstalldirs) "$(DESTDIR)$(pkgdocdir)/$$dir/$$file"; \ + else \ + echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \ + $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \ + fi \ + done; \ + fi; \ + done +# Install the macros + @echo "-------- Install macros (if any) --------"; \ + for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \ + $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \ + if test -d $(srcdir)/$$dir/; then \ + FILELIST="$(srcdir)/$$dir/$(MACROMASK) $(srcdir)/$$dir/$(MACROBINMASK) $(srcdir)/$$dir/$(MACROBUILDMASK) $(srcdir)/$$dir/names $(srcdir)/$$dir/lib";\ + if test -n "$(MACROSSPECIALEXT)"; then \ + specialExtDir=""; \ + for specialExt in $(MACROSSPECIALEXT); do \ + specialExtDir="$$specialExtDir $(srcdir)/$$dir/$$specialExt"; \ + done; \ + FILELIST="$$FILELIST $$specialExtDir"; \ + fi; \ + for file in `ls -1 $$FILELIST 2>/dev/null`; do \ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgmacrosdir)/$$dir" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgmacrosdir)/$$dir ; \ + done; \ + fi; \ + done +# Install java files (.jar) + @if ls -lLd $(srcdir)/$(JARDIR)$(JARMASK) >/dev/null 2>&1; then \ + echo "-------- Install jar files --------"; \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(JARDIR); \ + for file in $(srcdir)/$(JARDIR)$(JARMASK); do\ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/$(JARDIR)" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/$(JARDIR) ; \ + done ; \ + fi + +########### CLEAN ################### +# Clean help (generated automatically by Scilab) +# It used to clean the macro (clean-macros) but this was causing +# make clean && make to fail Scilab startup +@NEED_JAVA_TRUE@clean-local: clean-java +@NEED_JAVA_FALSE@clean-local: + +distclean-local: + rm -f $(builddir)/help/*/.last_successful_build_javaHelp $(builddir)/help/*/.list_* + +.PHONY: macros java swig giws + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/modules/double/double.iss b/modules/double/double.iss new file mode 100755 index 000000000..7f2bfb2f1 --- /dev/null +++ b/modules/double/double.iss @@ -0,0 +1,43 @@ +; +; Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +; Copyright (C) INRIA - Allan CORNET +; Copyright (C) DIGITEO - 2010 - Allan CORNET +; +; This file must be used under the terms of the CeCILL. +; This source file is licensed as described in the file COPYING, which +; you should have received as part of this distribution. The terms +; are also available at +; http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +; +;-------------------------------------------------------------------------------------------------------------- +; Inno Setup Script (5.3 and more) for Scilab (UNICODE version required) +; +;-------------------------------------------------------------------------------------------------------------- +; double module +;-------------------------------------------------------------------------------------------------------------- +; +#define DOUBLE "double" +; +Source: bin\{#DOUBLE}.dll; DestDir: {app}\bin; Components: {#COMPN_SCILAB} +Source: bin\{#DOUBLE}_f.dll; DestDir: {app}\bin; Components: {#COMPN_SCILAB} +; +Source: modules\{#DOUBLE}\license.txt; DestDir: {app}\modules\{#DOUBLE}; Components: {#COMPN_SCILAB} +; +Source: modules\{#DOUBLE}\etc\{#DOUBLE}.quit; DestDir: {app}\modules\{#DOUBLE}\etc; Components: {#COMPN_SCILAB} +Source: modules\{#DOUBLE}\etc\{#DOUBLE}.start; DestDir: {app}\modules\{#DOUBLE}\etc; Components: {#COMPN_SCILAB} +; +;Source: modules\{#DOUBLE}\includes\*.h; DestDir: {app}\modules\{#DOUBLE}\includes; Components: {#COMPN_SCILAB} +; +Source: modules\{#DOUBLE}\macros\buildmacros.sce; DestDir: {app}\modules\{#DOUBLE}\macros; Components: {#COMPN_SCILAB} +Source: modules\{#DOUBLE}\macros\buildmacros.bat; DestDir: {app}\modules\{#DOUBLE}\macros; Components: {#COMPN_SCILAB} +Source: modules\{#DOUBLE}\macros\cleanmacros.bat; DestDir: {app}\modules\{#DOUBLE}\macros; Components: {#COMPN_SCILAB} +;Source: modules\{#DOUBLE}\macros\lib; DestDir: {app}\modules\{#DOUBLE}\macros; Components: {#COMPN_SCILAB} +;Source: modules\{#DOUBLE}\macros\names; DestDir: {app}\modules\{#DOUBLE}\macros; Components: {#COMPN_SCILAB} +;Source: modules\{#DOUBLE}\macros\*.bin; DestDir: {app}\modules\{#DOUBLE}\macros; Components: {#COMPN_SCILAB} +;Source: modules\{#DOUBLE}\macros\*.sci; DestDir: {app}\modules\{#DOUBLE}\macros; Components: {#COMPN_SCILAB} +; +;Source: modules\{#DOUBLE}\demos\*.*; DestDir: {app}\modules\{#DOUBLE}\demos; Flags: recursesubdirs; Components: {#COMPN_SCILAB} +; +Source: modules\{#DOUBLE}\tests\*.*; DestDir: {app}\modules\{#DOUBLE}\tests; Flags: recursesubdirs; Components: {#COMPN_SCILAB} and {#COMPN_TESTS} +; +;-------------------------------------------------------------------------------------------------------------- diff --git a/modules/double/etc/double.quit b/modules/double/etc/double.quit new file mode 100755 index 000000000..ab83f0c89 --- /dev/null +++ b/modules/double/etc/double.quit @@ -0,0 +1,10 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA +// Copyright (C) 2009 - DIGITEO +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + diff --git a/modules/double/etc/double.start b/modules/double/etc/double.start new file mode 100755 index 000000000..5835d507b --- /dev/null +++ b/modules/double/etc/double.start @@ -0,0 +1,10 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2006-2008 - INRIA +// Copyright (C) 2009 - DIGITEO +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + diff --git a/modules/double/help/en_US/addchapter.sce b/modules/double/help/en_US/addchapter.sce new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/double/help/en_US/addchapter.sce diff --git a/modules/double/help/fr_FR/addchapter.sce b/modules/double/help/fr_FR/addchapter.sce new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/double/help/fr_FR/addchapter.sce diff --git a/modules/double/help/ja_JP/addchapter.sce b/modules/double/help/ja_JP/addchapter.sce new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/double/help/ja_JP/addchapter.sce diff --git a/modules/double/help/pt_BR/addchapter.sce b/modules/double/help/pt_BR/addchapter.sce new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/double/help/pt_BR/addchapter.sce diff --git a/modules/double/help/ru_RU/addchapter.sce b/modules/double/help/ru_RU/addchapter.sce new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/double/help/ru_RU/addchapter.sce diff --git a/modules/double/libdummy-double.la b/modules/double/libdummy-double.la new file mode 100755 index 000000000..9c82bfa6f --- /dev/null +++ b/modules/double/libdummy-double.la @@ -0,0 +1,41 @@ +# libdummy-double.la - a libtool library file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# The name that we can dlopen(3). +dlname='' + +# Names of this library. +library_names='' + +# The name of the static archive. +old_library='libdummy-double.a' + +# Linker flags that can not go in dependency_libs. +inherited_linker_flags='' + +# Libraries that this one depends upon. +dependency_libs=' -lpthread -ldl -lcurses -lm' + +# Names of additional weak libraries provided by this library +weak_library_names='' + +# Version information for libdummy-double. +current= +age= +revision= + +# Is this an already installed library? +installed=no + +# Should we warn about portability when linking against -modules? +shouldnotlink=no + +# Files to dlopen/dlpreopen +dlopen='' +dlpreopen='' + +# Directory that this library needs to be installed in: +libdir='' diff --git a/modules/double/libscidouble.la b/modules/double/libscidouble.la new file mode 100755 index 000000000..7eeb91654 --- /dev/null +++ b/modules/double/libscidouble.la @@ -0,0 +1,41 @@ +# libscidouble.la - a libtool library file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# The name that we can dlopen(3). +dlname='' + +# Names of this library. +library_names='' + +# The name of the static archive. +old_library='libscidouble.a' + +# Linker flags that can not go in dependency_libs. +inherited_linker_flags='' + +# Libraries that this one depends upon. +dependency_libs=' -lpthread -ldl -lcurses -lm' + +# Names of additional weak libraries provided by this library +weak_library_names='' + +# Version information for libscidouble. +current= +age= +revision= + +# Is this an already installed library? +installed=no + +# Should we warn about portability when linking against -modules? +shouldnotlink=no + +# Files to dlopen/dlpreopen +dlopen='' +dlpreopen='' + +# Directory that this library needs to be installed in: +libdir='' diff --git a/modules/double/license.txt b/modules/double/license.txt new file mode 100755 index 000000000..933635069 --- /dev/null +++ b/modules/double/license.txt @@ -0,0 +1,10 @@ +Copyright: +Copyright (c) 2008 - DIGITEO +Copyright (c) 1989-2008 - INRIA + +License: +This module must be used under the terms of the CeCILL. +This module file is licensed as described in the file COPYING, which +you should have received as part of this distribution. The terms +are also available at +http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt diff --git a/modules/double/macros/buildmacros.bat b/modules/double/macros/buildmacros.bat new file mode 100755 index 000000000..a73ca67f8 --- /dev/null +++ b/modules/double/macros/buildmacros.bat @@ -0,0 +1,11 @@ + +rem Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +rem Copyright (C) 2008 - INRIA +rem +rem This file must be used under the terms of the CeCILL. +rem This source file is licensed as described in the file COPYING, which +rem you should have received as part of this distribution. The terms +rem are also available at +rem http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +@..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit; diff --git a/modules/double/macros/buildmacros.sce b/modules/double/macros/buildmacros.sce new file mode 100755 index 000000000..6ada5d5db --- /dev/null +++ b/modules/double/macros/buildmacros.sce @@ -0,0 +1,15 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr> +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +if (isdef("genlib") == %f) then + exec(SCI+"/modules/functions/scripts/buildmacros/loadgenlib.sce"); +end + +// genlib('doublelib','SCI/modules/double/macros',%f,%t); diff --git a/modules/double/macros/cleanmacros.bat b/modules/double/macros/cleanmacros.bat new file mode 100755 index 000000000..4ad1bbae2 --- /dev/null +++ b/modules/double/macros/cleanmacros.bat @@ -0,0 +1,13 @@ + +rem Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +rem Copyright (C) 2008 - INRIA +rem +rem This file must be used under the terms of the CeCILL. +rem This source file is licensed as described in the file COPYING, which +rem you should have received as part of this distribution. The terms +rem are also available at +rem http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +@del *.bin 2>NUL +@del lib 2>NUL +@del names 2>NUL diff --git a/modules/double/sci_gateway/c/.deps/.dirstamp b/modules/double/sci_gateway/c/.deps/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/double/sci_gateway/c/.deps/.dirstamp diff --git a/modules/double/sci_gateway/c/.deps/libscidouble_la-gw_double.Plo b/modules/double/sci_gateway/c/.deps/libscidouble_la-gw_double.Plo new file mode 100755 index 000000000..80f1c6bce --- /dev/null +++ b/modules/double/sci_gateway/c/.deps/libscidouble_la-gw_double.Plo @@ -0,0 +1,187 @@ +sci_gateway/c/libscidouble_la-gw_double.lo: sci_gateway/c/gw_double.c \ + /usr/include/stdc-predef.h ../../modules/core/includes/stack-c.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h + +/usr/include/stdc-predef.h: + +../../modules/core/includes/stack-c.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: diff --git a/modules/double/sci_gateway/c/.dirstamp b/modules/double/sci_gateway/c/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/double/sci_gateway/c/.dirstamp diff --git a/modules/double/sci_gateway/c/.libs/libscidouble_la-gw_double.o b/modules/double/sci_gateway/c/.libs/libscidouble_la-gw_double.o Binary files differnew file mode 100755 index 000000000..01be9b8f6 --- /dev/null +++ b/modules/double/sci_gateway/c/.libs/libscidouble_la-gw_double.o diff --git a/modules/double/sci_gateway/c/gw_double.c b/modules/double/sci_gateway/c/gw_double.c new file mode 100755 index 000000000..eea7962a6 --- /dev/null +++ b/modules/double/sci_gateway/c/gw_double.c @@ -0,0 +1,263 @@ + +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr> + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +#include "stack-c.h" +/*--------------------------------------------------------------------------*/ +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); +/*--------------------------------------------------------------------------*/ +extern int C2F(matchsgn)(); +extern int C2F(matsubt)(); +extern int C2F(matcc)(); +extern int C2F( matrc)(); +extern int C2F(mattr)(); +extern int C2F(matadd)(); +extern int C2F(matcmp)(); +extern int C2F(matlog)(); +extern int C2F(mattrc)(); +extern int C2F(vecmul)(); +extern int C2F(matpow)(); +extern int C2F(matins1)(); +extern int C2F(matins2)(); +extern int C2F(matext1)(); +extern int C2F(matext2)(); +extern int C2F(vecldiv)(); +extern int C2F(vecimpl)(); +extern int C2F(matldiv)(); +extern int C2F(vecrdiv)(); +extern int C2F(matrdiv)(); +extern int C2F(matmult)(); +extern int C2F(matxpow)(); +/*--------------------------------------------------------------------------*/ +int C2F(matops)(void) +{ + static int op; + + op = Fin; + + /* operations binaires et ternaires */ + + C2F(com).fun = 0; + + /* cconc insert extrac rconc */ + switch ((int)op) + { + case 1: + { + /* concatenation [a b] */ + C2F(matrc)(); + return 0; + } + case 2: + { + /* insertion */ + if (Rhs == 3) + { + C2F(matins1)(); + } + else if (Rhs == 4) + { + C2F(matins2)(); + } + else + { + Fin = -Fin; + } + return 0; + } + case 3: + { + /* extraction a(i) and a(i,j) */ + if (Rhs == 2) + { + C2F(matext1)(); + } + else if (Rhs == 3) + { + C2F(matext2)(); + } + else + { + Fin = -Fin; + } + return 0; + } + case 4: + { + /* concatenation [a;b] */ + C2F(matcc)(); + return 0; + } + } + + /* : + - * / \ = ' */ + switch ((int)(op + 1 - colon)) + { + case 1: + { + /* : */ + C2F(vecimpl)(); + return 0; + } + case 2: + { + /* addition */ + C2F(matadd)(); + return 0; + } + case 3: + { + /* subtraction */ + if (Rhs == 1) + { + /* . unary minus */ + C2F(matchsgn)(); + } + else + { + C2F(matsubt)(); + } + return 0; + } + case 4: + { + /* multiplication */ + C2F(matmult)(); + return 0; + } + case 5: + { + /* division a droite */ + C2F(matrdiv)(); + return 0; + } + case 6: + { + /* \ */ + C2F(matldiv)(); + return 0; + } + case 7: + { + /* == <= >= ~= */ + + C2F(matcmp)(); + return 0; + + } + case 8: + case 9: + { + ChooseOtherOperation(op); + } + case 10: + { + /* ' */ + C2F(mattrc)(); + return 0; + } + } + + ChooseOtherOperation(op); + return 0; + +} +/*--------------------------------------------------------------------------*/ +int ChooseOtherOperation(int op) +{ + if (op == dstar) + { + /* ^ */ + C2F(matpow)(); + return 0; + } + if (op == quote + dot) + { + /* .' */ + C2F(mattr)(); + return 0; + } + if (op == dstar + dot) + { + /* .^ */ + C2F(matxpow)(); + return 0; + } + if (op >= dot * 3 + star) + { + /* .*. ./. .\. */ + /* kronecker */ + Fin = op - dot * 3 - star + 19; + C2F(com).fun = 6; + Rhs = 2; + return 0; + } + if (op >= (dot << 1) + star) + { + /* *. /. \. */ + Fin = -Fin; + return 0; + + } + if (op >= less + equal) + { + /* == <= >= ~= */ + C2F(matcmp)(); + return 0; + } + if (op == dot + star) + { + /* .* */ + C2F(vecmul)(); + return 0; + } + if (op == dot + slash) + { + /* ./ */ + C2F(vecrdiv)(); + return 0; + } + if (op == dot + bslash) + { + /* .\ */ + C2F(vecldiv)(); + return 0; + } + if (op == et || op == ou || op == non) + { + C2F(matlog)(); + return 0; + } + if (op >= less) + { + /* == <= >= ~= */ + C2F(matcmp)(); + return 0; + } + Fin = -Fin; + return 0; +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/double/sci_gateway/c/libscidouble_la-gw_double.lo b/modules/double/sci_gateway/c/libscidouble_la-gw_double.lo new file mode 100755 index 000000000..3347b3007 --- /dev/null +++ b/modules/double/sci_gateway/c/libscidouble_la-gw_double.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscidouble_la-gw_double.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscidouble_la-gw_double.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/.deps/.dirstamp b/modules/double/sci_gateway/fortran/.deps/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/double/sci_gateway/fortran/.deps/.dirstamp diff --git a/modules/double/sci_gateway/fortran/.dirstamp b/modules/double/sci_gateway/fortran/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/double/sci_gateway/fortran/.dirstamp diff --git a/modules/double/sci_gateway/fortran/.libs/matadd.o b/modules/double/sci_gateway/fortran/.libs/matadd.o Binary files differnew file mode 100755 index 000000000..5c8b9d19f --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matadd.o diff --git a/modules/double/sci_gateway/fortran/.libs/matcc.o b/modules/double/sci_gateway/fortran/.libs/matcc.o Binary files differnew file mode 100755 index 000000000..d48fa4048 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matcc.o diff --git a/modules/double/sci_gateway/fortran/.libs/matchsgn.o b/modules/double/sci_gateway/fortran/.libs/matchsgn.o Binary files differnew file mode 100755 index 000000000..e0aabb19b --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matchsgn.o diff --git a/modules/double/sci_gateway/fortran/.libs/matcmp.o b/modules/double/sci_gateway/fortran/.libs/matcmp.o Binary files differnew file mode 100755 index 000000000..a93917d8e --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matcmp.o diff --git a/modules/double/sci_gateway/fortran/.libs/matext1.o b/modules/double/sci_gateway/fortran/.libs/matext1.o Binary files differnew file mode 100755 index 000000000..12b9d31d0 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matext1.o diff --git a/modules/double/sci_gateway/fortran/.libs/matext2.o b/modules/double/sci_gateway/fortran/.libs/matext2.o Binary files differnew file mode 100755 index 000000000..3ed9e07b3 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matext2.o diff --git a/modules/double/sci_gateway/fortran/.libs/matins1.o b/modules/double/sci_gateway/fortran/.libs/matins1.o Binary files differnew file mode 100755 index 000000000..932997012 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matins1.o diff --git a/modules/double/sci_gateway/fortran/.libs/matins2.o b/modules/double/sci_gateway/fortran/.libs/matins2.o Binary files differnew file mode 100755 index 000000000..222a9d08a --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matins2.o diff --git a/modules/double/sci_gateway/fortran/.libs/matldiv.o b/modules/double/sci_gateway/fortran/.libs/matldiv.o Binary files differnew file mode 100755 index 000000000..22c0ce44e --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matldiv.o diff --git a/modules/double/sci_gateway/fortran/.libs/matmult.o b/modules/double/sci_gateway/fortran/.libs/matmult.o Binary files differnew file mode 100755 index 000000000..da823ecec --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matmult.o diff --git a/modules/double/sci_gateway/fortran/.libs/matpow.o b/modules/double/sci_gateway/fortran/.libs/matpow.o Binary files differnew file mode 100755 index 000000000..22fbd4950 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matpow.o diff --git a/modules/double/sci_gateway/fortran/.libs/matrc.o b/modules/double/sci_gateway/fortran/.libs/matrc.o Binary files differnew file mode 100755 index 000000000..896e28d95 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matrc.o diff --git a/modules/double/sci_gateway/fortran/.libs/matrdiv.o b/modules/double/sci_gateway/fortran/.libs/matrdiv.o Binary files differnew file mode 100755 index 000000000..fd4cad337 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matrdiv.o diff --git a/modules/double/sci_gateway/fortran/.libs/matsubt.o b/modules/double/sci_gateway/fortran/.libs/matsubt.o Binary files differnew file mode 100755 index 000000000..88e56332d --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matsubt.o diff --git a/modules/double/sci_gateway/fortran/.libs/mattr.o b/modules/double/sci_gateway/fortran/.libs/mattr.o Binary files differnew file mode 100755 index 000000000..30db533d4 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/mattr.o diff --git a/modules/double/sci_gateway/fortran/.libs/mattrc.o b/modules/double/sci_gateway/fortran/.libs/mattrc.o Binary files differnew file mode 100755 index 000000000..b88dc113e --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/mattrc.o diff --git a/modules/double/sci_gateway/fortran/.libs/matxpow.o b/modules/double/sci_gateway/fortran/.libs/matxpow.o Binary files differnew file mode 100755 index 000000000..354162369 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/matxpow.o diff --git a/modules/double/sci_gateway/fortran/.libs/vecimpl.o b/modules/double/sci_gateway/fortran/.libs/vecimpl.o Binary files differnew file mode 100755 index 000000000..22fe7698a --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/vecimpl.o diff --git a/modules/double/sci_gateway/fortran/.libs/vecldiv.o b/modules/double/sci_gateway/fortran/.libs/vecldiv.o Binary files differnew file mode 100755 index 000000000..b13aef967 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/vecldiv.o diff --git a/modules/double/sci_gateway/fortran/.libs/vecmul.o b/modules/double/sci_gateway/fortran/.libs/vecmul.o Binary files differnew file mode 100755 index 000000000..d5ff1c779 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/vecmul.o diff --git a/modules/double/sci_gateway/fortran/.libs/vecrdiv.o b/modules/double/sci_gateway/fortran/.libs/vecrdiv.o Binary files differnew file mode 100755 index 000000000..2b918af26 --- /dev/null +++ b/modules/double/sci_gateway/fortran/.libs/vecrdiv.o diff --git a/modules/double/sci_gateway/fortran/matadd.f b/modules/double/sci_gateway/fortran/matadd.f new file mode 100755 index 000000000..df3c140c3 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matadd.f @@ -0,0 +1,163 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matadd +c +c matrix addition + + include 'stack.h' +Cc (DLL Intel Fortran) +cDEC$ IF DEFINED (FORDLL) +cDEC$ ATTRIBUTES DLLIMPORT:: /mtlbc/ +cDEC$ ENDIF + common /mtlbc/ mmode +c + double precision cstr,csti,sr,si + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + ilr=il1 + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) +c + if (mn1.eq.0) then + if (mmode.eq.1) then +c . Matlab like []+a=[] + else +c . []+a=a + call icopy(4,istk(il2),1,istk(il1),1) + call unsfdcopy(mn2*(it2+1),stk(l2),1,stk(l1),1) + lstk(top+1)=l1+mn2*(it2+1) + endif + elseif (mn2.eq.0) then + if (mmode.eq.1) then +c . Matlab like a+[]=[] + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + else +c . a+[]=a + endif + elseif (m1 .lt. 0) then +c . eye+vector + go to 40 + elseif (m2 .lt. 0) then +c . vector+eye + go to 41 + elseif (mn2.eq.1) then +c . vector+const + err=l1+mn1*(itr+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call dadd(mn1,stk(l2),0,stk(l1),1) + if(it2+2*it1.eq.1) call unsfdcopy(mn1,stk(l2+mn2),0, + $ stk(l1+mn1),1) + if(it1*it2.eq.1) call dadd(mn1,stk(l2+mn2),0,stk(l1+mn1),1) + lstk(top+1)=l1+mn1*(itr+1) + istk(il1+3)=itr + elseif (mn1.eq.1) then +c . cst+vector + err=l1+mn2*(itr+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + cstr=stk(l1) + csti=stk(l1+1) + call unsfdcopy((it2+1)*mn2,stk(l2),1,stk(l1),1) + if(it1.eq.1.and.it2.eq.0) call dset(mn2,0.d0,stk(l1+mn2),1) + call dadd(mn2,cstr,0,stk(l1),1) + if(it1.eq.1) call dadd(mn2,csti,0,stk(l1+mn2),1) + lstk(top+1)=l1+mn2*(itr+1) + istk(il1+1)=m2 + istk(il1+2)=n2 + istk(il1+3)=itr + else +c . vector+vector + if (m1 .ne. m2.or.n1 .ne. n2) then + call error(8) + return + endif + err=l1+mn1*(itr+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call dadd(mn1,stk(l2),1,stk(l1),1) + if(it2+2*it1.eq.1) then + call unsfdcopy(mn1,stk(l2+mn1),1,stk(l1+mn1),1) + endif + if(it1*it2.eq.1) then + call dadd(mn1,stk(l2+mn1),1,stk(l1+mn1),1) + endif + lstk(top+1)=l1+mn1*(itr+1) + istk(il1+3)=itr + endif + return +c addition et soustraction d'un scalaire fois l'identite + 40 sr=stk(l1) + si=0.0d+0 + if(it1.eq.1) si=stk(l1+1) + call unsfdcopy(mn2*(it2+1),stk(l2),1,stk(l1),1) + m1=m2 + n1=n2 + m2=it2 + it2=it1 + it1=m2 + mn1=mn2 + goto 46 +c + 41 sr=stk(l2) + si=0.0d0 + if(it2.eq.1) si = stk(l2+1) + goto 46 +c + 46 err=l1+mn1*(itr+1) - lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + lstk(top+1)=l1+mn1*(itr+1) + istk(il1+1)=m1 + istk(il1+2)=n1 + istk(il1+3)=itr +c + if(itr.eq.1.and.it1.eq.0) call dset(mn1,0.0d+0,stk(l1+mn1),1) + m1=abs(m1) + n1=abs(n1) + do 47 i = 1, min(n1,m1) + ll = l1 + (i-1)*(m1+1) + stk(ll) = stk(ll)+sr + if(itr.ne.0) stk(ll+mn1) = stk(ll+mn1)+si + 47 continue + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matadd.lo b/modules/double/sci_gateway/fortran/matadd.lo new file mode 100755 index 000000000..9894072cd --- /dev/null +++ b/modules/double/sci_gateway/fortran/matadd.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matadd.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matadd.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matcc.f b/modules/double/sci_gateway/fortran/matcc.f new file mode 100755 index 000000000..58688d390 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matcc.f @@ -0,0 +1,92 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matcc +c +c [a;b] + + include 'stack.h' +c + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + lw=lstk(top+1)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) +c + if(n1.lt.0.or.n2.lt.0) then + call error(14) + return + elseif(n2.eq.0) then +c . [a;[]] + return + elseif(n1.eq.0)then +c . [[];b] + call unsfdcopy(lstk(top+2)-lstk(top+1),stk(lstk(top+1)) + $ ,1,stk(lstk(top)),1) + lstk(top+1)=lstk(top)+lstk(top+2)-lstk(top+1) + return + elseif(n1.ne.n2) then + call error(6) + return + endif + m=m1+m2 + mn=m*n1 + if(n1.eq.1.and.itr.eq.0) then + call unsfdcopy(mn2,stk(l2),1,stk(l1+mn1),1) + istk(il1+1)=m + istk(il1+3)=itr + lstk(top+1)=l1+mn*(itr+1) + return + endif +c lw1=l1+(itr+1)*mn + lw1=max(lw,l1+(itr+1)*mn) + lw2=lw1+mn1*(it1+1) + err=lw2+mn2*(it2+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call unsfdcopy(mn2*(it2+1),stk(l2),1,stk(lw2),1) + call unsfdcopy(mn1*(it1+1),stk(l1),1,stk(lw1),1) +c + if(itr.eq.1) call dset(mn,0.0d+0,stk(l1+(mn1+mn2)),1) + call dmcopy(stk(lw1),m1,stk(l1),m,m1,n1) + if(it1.eq.1) call dmcopy(stk(lw1+mn1),m1,stk(l1+mn),m + $ ,m1,n1) + call dmcopy(stk(lw2),m2,stk(l1+m1),m,m2,n1) + if(it2.eq.1) call dmcopy(stk(lw2+mn2),m2,stk(l1+mn+m1) + $ ,m,m2,n1) + istk(il1+1)=m + istk(il1+2)=n1 + istk(il1+3)=itr + lstk(top+1)=sadr(il1+4)+mn*(itr+1) + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matcc.lo b/modules/double/sci_gateway/fortran/matcc.lo new file mode 100755 index 000000000..d992b8829 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matcc.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matcc.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matcc.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matchsgn.f b/modules/double/sci_gateway/fortran/matchsgn.f new file mode 100755 index 000000000..833d065f2 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matchsgn.f @@ -0,0 +1,36 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matchsgn +c +c matrix change sign + + include 'stack.h' + + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c +c . unary minus + if(mn1.gt.0) then + call dscal(mn1*(it1+1),-1.0d+0,stk(l1),1) + endif + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matchsgn.lo b/modules/double/sci_gateway/fortran/matchsgn.lo new file mode 100755 index 000000000..e30a86603 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matchsgn.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matchsgn.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matchsgn.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matcmp.f b/modules/double/sci_gateway/fortran/matcmp.f new file mode 100755 index 000000000..c79279b31 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matcmp.f @@ -0,0 +1,239 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matcmp +c +c == <= >= <> + + include 'stack.h' +c + integer top0,op + double precision e1,e2,e1r,e2r,e1i,e2i + integer less,great,equal + + integer isanan + integer iadr,sadr + data less/59/,great/60/,equal/50/ +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + top0=top + op=fin + lw=lstk(top+1)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 + + if(fin.eq.61) then + fin=-fin + top=top+1 + return + endif +c comparaisons + if(m1.eq.-1) then +c . eye op b + err=lw+mn2*(it1+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + if(m2.eq.-1) then + m2=1 + n2=1 + elseif(mn2.gt.0) then + call dset(mn2,0.0d0,stk(lw),1) + call dset(min(m2,n2),stk(l1),stk(lw),m2+1) + if(it1.eq.1) then + call dset(mn2,0.0d0,stk(lw+mn2),1) + call dset(min(m2,n2),stk(l1+1),stk(lw+mn2),m2+1) + endif + l1=lw + endif + m1=m2 + n1=n2 + mn1=mn2 + istk(il1+1)=m1 + istk(il1+2)=n1 + elseif(m2.eq.-1) then + err=lw+mn1*(it2+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call dset(mn1,0.0d0,stk(lw),1) + call dset(min(m1,n1),stk(l2),stk(lw),m1+1) + if(it1.eq.1) then + call dset(mn1,0.0d0,stk(lw+mn1),1) + call dset(min(m1,n1),stk(l2+1),stk(lw+mn1),m1+1) + endif + l2=lw + mn2=mn1 + m2=m1 + n2=n1 + elseif(mn1.eq.1.and.mn2.gt.1) then + err=lw+mn2*(it1+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call dset(mn2,stk(l1),stk(lw),1) + if(it1.eq.1) call dset(mn2,stk(l1+1),stk(lw+mn2),1) + l1=lw + mn1=mn2 + m1=m2 + n1=n2 + istk(il1+1)=m1 + istk(il1+2)=n1 + elseif(mn2.eq.1.and.mn1.gt.1) then + err=lw+mn1*(it2+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call dset(mn1,stk(l2),stk(lw),1) + if(it1.eq.1) call dset(mn1,stk(l2+1),stk(lw+mn1),1) + l2=lw + mn2=mn1 + m2=m1 + n2=n1 + endif + if(mn2.eq.0.or.mn1.eq.0) then + if(op.eq.equal.or.op.eq.less+great) then + itrue=0 + if(mn2.eq.0.and.mn1.eq.0) itrue=1 + if(op.eq.less+great) itrue=1-itrue + istk(il1)=4 + istk(il1+1)=1 + istk(il1+2)=1 + istk(il1+3)=itrue + lstk(top+1)=sadr(il1+4) + return + else + if(mn1.eq.1.or.mn2.eq.1) then + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + return + else + call error(60) + return + endif + endif + endif + if(n1.ne.n2.or.m1.ne.m2) then + if(op.eq.equal.or.op.eq.less+great) then + istk(il1)=4 + istk(il1+1)=1 + istk(il1+2)=1 + istk(il1+3)=0 + if(op.eq.less+great) istk(il1+3)=1 + lstk(top+1)=sadr(il1+4) + else + call error(60) + return + endif + else if(max(it1,it2).eq.1) then + if(op.ne.equal.and.op.ne.less+great) then + fin=-fin + top=top0 + return + endif +c itrue=1 +c if(op.eq.less+great) itrue=0 + istk(il1)=4 + do 131 i=0,mn1-1 + e1r=stk(l1+i) + e2r=stk(l2+i) + e1i=0.0d+0 + e2i=0.0d+0 + if(it1.eq.1) e1i=stk(l1+mn1+i) + if(it2.eq.1) e2i=stk(l2+mn2+i) + call idcmp(e1r,e2r,1,ir,op) + call idcmp(e1i,e2i,1,ii,op) + if (op.eq.less+great) then + if(ir.eq.1.or.ii.eq.1) then + istk(il1+3+i)=1 + else + istk(il1+3+i)=0 + endif + else + if(ir.eq.1.and.ii.eq.1) then + istk(il1+3+i)=1 + else + istk(il1+3+i)=0 + endif + endif + + 131 continue + lstk(top+1)=sadr(il1+3+mn1) + else + istk(il1)=4 + if(mn1.eq.0) then + if(op.ne.equal.and.op.ne.less+great) then + call error(226) + return + else + istk(il1+1)=1 + istk(il1+2)=1 + istk(il1+3)=1 + if(op.ne.equal) istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + endif + return + endif + if (.true.) then +c add explicit nan tests when requested + call idcmp(stk(l1),stk(l2),mn1,istk(il1+3),op) + else + do 132 i=0,mn1-1 + e1=stk(l1+i) + e2=stk(l2+i) +c for vc++ we add an explicit test for nan + if(isanan(e1).eq.1.and.isanan(e2).eq.1) then + if (op.eq.less+great) then + istk(il1+3+i)=1 + else + istk(il1+3+i)=0 + endif + elseif( (op.eq.equal .and. e1.eq.e2) .or. + & (op.eq.less+great .and. e1.ne.e2) .or. + & (op.eq.less .and. e1.lt.e2) .or. + & (op.eq.great .and. e1.gt.e2) .or. + & (op.eq.(less+equal) .and. e1.le.e2) .or. + & (op.eq.(great+equal) .and. e1.ge.e2) ) then + istk(il1+3+i)=1 + else + istk(il1+3+i)=0 + endif + 132 continue + endif + lstk(top+1)=sadr(il1+3+mn1) + endif + return + end + +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matcmp.lo b/modules/double/sci_gateway/fortran/matcmp.lo new file mode 100755 index 000000000..d36aca834 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matcmp.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matcmp.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matcmp.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matext1.f b/modules/double/sci_gateway/fortran/matext1.f new file mode 100755 index 000000000..2a826f3b4 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matext1.f @@ -0,0 +1,159 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matext1 +c +c B=A(i) + + include 'stack.h' +c + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + lw=lstk(top+1)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 + +c arg2(arg1) + if (istk(il1).eq.0) then + call error(220) + return + endif + if(istk(il2).eq.129) then +c implied polynomials vector extraction + top=top+1 + call polops + return + endif + + if(mn2.eq.0) then +c . arg2=[] + if(stk(sadr(il1+4)).le.0.and. !index<=0 + & abs(istk(il1)).ne.4.or. !type(index)!=4 (no error if index=%t) + & abs(istk(il1)).ne.1.and. !type(index)!=1 (no error if index>0) + & abs(istk(il1)).ne.2.and. !type(index)!=2 (no error if index=$) + & abs(istk(il1)).ne.4.and. + & abs(istk(il1)).ne.129) then !type(index)!=129 (no error if index=1:$) + call error(21) + return + endif + if(m1.le.0) then +c arg2(:) or arg2([]) + il1=iadr(lstk(top)) + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + else +c should be an error but a lot of code uses this feature +c we will change it just after 3.1 release see also matext2 +c call error(21) + il1=iadr(lstk(top)) + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + endif + return + + elseif(m2.lt.0) then +c . arg2=eye + call error(14) + return + elseif(m1.lt.0) then +c . arg2(:), just reshape to column vector + il1=iadr(lstk(top)) + istk(il1)=1 + istk(il1+1)=mn2 + istk(il1+2)=1 + istk(il1+3)=istk(il2+3) + l1=sadr(il1+4) + call unsfdcopy(mn2*(it2+1),stk(l2),1,stk(l1),1) + lstk(top+1)=l1+mn2*(it2+1) + return + endif +c check and convert indices variable + call indxg(il1,mn2,ilr,mi,mx,lw,1) + if(err.gt.0) return + if(mx.gt.mn2) then + call error(21) + return + endif + 79 if(mi.eq.0) then +c arg2([]) + il1=iadr(lstk(top)) + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + l1=sadr(il1+4) + lstk(top+1)=l1 + return + endif +c get memory for the result + il1=iadr(lstk(top)) + l1=sadr(il1+4) + if(sadr(ilr-1).le.l1+(it2+1)*mi) then + lr=lw + lw=lr+(it2+1)*mi + err=lw-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + else + lr=l1 + endif +c perform extraction + do 81 i = 0, mi-1 + ind=istk(ilr+i)-1 + stk(lr+i) = stk(l2+ind) + if(it2.eq.1) stk(lr+mi+i) = stk(l2+mn2+ind) + 81 continue +c set output sizes + if (m2.eq.1.and.n2.eq.1.and.m1.gt.0) then + m = m1 + n = min(n1,mi) + elseif (m2 .gt. 1.or.m1.lt.0) then + m = mi + n = 1 + else + n = mi + m = 1 + endif +c form resulting variable + istk(il1)=1 + istk(il1+1)=m + istk(il1+2)=n + istk(il1+3)=it2 + if(lr.ne.l1) call unsfdcopy(mi*(it2+1),stk(lr),1,stk(l1),1) + lstk(top+1)=l1+mi*(it2+1) + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matext1.lo b/modules/double/sci_gateway/fortran/matext1.lo new file mode 100755 index 000000000..0d05c9b6d --- /dev/null +++ b/modules/double/sci_gateway/fortran/matext1.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matext1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matext1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matext2.f b/modules/double/sci_gateway/fortran/matext2.f new file mode 100755 index 000000000..34d0bbed2 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matext2.f @@ -0,0 +1,158 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matext2 +c +c B=A(i,j) + + include 'stack.h' +c + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + lw=lstk(top+1)+1 + + il3=iadr(lstk(top)) + if(istk(il3).lt.0) il3=iadr(istk(il3+1)) + m3=istk(il3+1) + n3=istk(il3+2) + it3=istk(il3+3) + l3=sadr(il3+4) + mn3=m3*n3 + top=top-1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c +c arg3(arg1,arg2) + 82 if(rhs.gt.3) then + call error(36) + return + endif + if(mn3.eq.0) then +c . arg3=[] + if(stk(sadr(il2+4)).le.0.and. !index1<=0 + & abs(istk(il2)).ne.4.or. !type(index1)!=4 (no error if index1=%t) + & abs(istk(il2)).ne.1.and. !type(index1)!=1 (no error if index1>0) + & abs(istk(il2)).ne.2.and. !type(index1)!=2 (no error if index1=$) + & abs(istk(il2)).ne.4.and. + & abs(istk(il2)).ne.129.or. !type(index1)!=129 (no error if index1=1:$) + & stk(sadr(il1+4)).le.0.and. + & abs(istk(il1)).ne.4.or. + & abs(istk(il1)).ne.1.and. + & abs(istk(il1)).ne.2.and. + & abs(istk(il1)).ne.4.and. + & abs(istk(il1)).ne.129) then + call error(21) + return + endif + if(m1.le.0.or.m2.le.0) then + il1=iadr(lstk(top)) + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + else +c should be an error but a lot of code uses this feature +c we will change it just after 3.1 release see also matext1 + +c call error(21) + il1=iadr(lstk(top)) + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + + endif + return + elseif(m3.lt.0) then +c .arg3=eye + call error(14) + return + endif +c check and convert indices variables + call indxg(il1,m3,ili,mi,mxi,lw,1) + if(err.gt.0) return + if(mxi.gt.m3) then + call error(21) + return + endif + call indxg(il2,n3,ilj,nj,mxj,lw,1) + if(err.gt.0) return + if(mxj.gt.n3) then + call error(21) + return + endif +c + 90 mn=mi*nj + if(mn.eq.0) then +c . arg1=[] or arg2=[] + il1=iadr(lstk(top)) + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + return + endif +c get memory for the result + il1=iadr(lstk(top)) + l1=sadr(il1+4) + if(sadr(ili-1).le.l1+(it3+1)*mi*nj) then + lr=lw + lw=lr+(it3+1)*mi*nj + err=lw-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + else +c . the result may be installed at its final place + lr=l1 + endif +c perform extraction + l=lr + do 94 j = 0, nj-1 + do 93 i = 0, mi-1 + ind=istk(ili+i)-1+(istk(ilj+j)-1)*m3 + stk(l) = stk(l3+ind) + if(it3.eq.1) stk(l+mn) = stk(l3+mn3+ind) + l=l+1 + 93 continue + 94 continue +c form the resulting variable + istk(il1)=1 + istk(il1+1)=mi + istk(il1+2)=nj + istk(il1+3)=it3 + if(lr.ne.l1) call unsfdcopy(mn*(it3+1),stk(lr),1,stk(l1),1) + lstk(top+1)=l1+mn*(it3+1) + return + end + +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matext2.lo b/modules/double/sci_gateway/fortran/matext2.lo new file mode 100755 index 000000000..549888a33 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matext2.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matext2.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matext2.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matins1.f b/modules/double/sci_gateway/fortran/matins1.f new file mode 100755 index 000000000..02b854937 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matins1.f @@ -0,0 +1,331 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matins1 +c +c A(i)=B + + include 'stack.h' +Cc (DLL Intel Fortran) +cDEC$ IF DEFINED (FORDLL) +cDEC$ ATTRIBUTES DLLIMPORT:: /mtlbc/ +cDEC$ ENDIF + common /mtlbc/ mmode +c + logical isany + integer top0 + integer iadr,sadr + double precision xr,xi +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + top0=top + lw=lstk(top+1)+1 + + il3=iadr(lstk(top)) + if(istk(il3).lt.0) il3=iadr(istk(il3+1)) + m3=istk(il3+1) + n3=istk(il3+2) + it3=istk(il3+3) + l3=sadr(il3+4) + mn3=m3*n3 + top=top-1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + ilrs=il1 + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + if (istk(il1).eq.10.or.istk(il1).eq.15) then + top=top0 + fin=-fin + return + endif + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c arg3(arg1)=arg2 +c + if (istk(il2)*istk(il1).eq.0) then + call error(220) + return + endif + if (m2.eq.0) then +c . arg3(arg1)=[] -->[] + if(m1.eq.-1) then +c . arg3(:)=[] + istk(ilrs)=1 + istk(ilrs+1)=0 + istk(ilrs+2)=0 + istk(ilrs+3)=0 + lstk(top+1)=sadr(ilrs+4) + return + elseif(m1.eq.0) then +c . arg3([])=[] --> arg3 + call icopy(4,istk(il3),1,istk(ilrs),1) + l=sadr(ilrs+4) + call unsfdcopy(mn3*(it3+1),stk(l3),1,stk(l),1) + lstk(top+1)=l+mn3*(it3+1) + return + else +c . arg3(arg1)=[] + if(istk(il1).eq.4.and.m3.eq.m1.and.n3.eq.n1) then + if(.not.isany(il1)) then +c . arg3([])=[] --> arg3 + call icopy(4,istk(il3),1,istk(ilrs),1) + l=sadr(ilrs+4) + call unsfdcopy(mn3*(it3+1),stk(l3),1,stk(l),1) + lstk(top+1)=l+mn3*(it3+1) + return + endif + endif +c . arg3(arg1)=[] -->arg3(compl(arg1)) + 97 call indxgc(il1,mn3,ilr,mi,mx,lw) + if(err.gt.0) return + l2=l3 + n2=n3 + m2=m3 + mn2=m2*n2 + it2=it3 +c . call extraction + goto 79 + endif + elseif(m2.lt.0.or.m3.lt.0) then +c . arg3=eye,arg2=eye + call error(14) + return + elseif(m1.lt.0) then +c . arg3(:)=arg2 + if(mn2.eq.mn3) then + istk(ilrs)=1 + istk(ilrs+1)=m3 + istk(ilrs+2)=n3 + istk(ilrs+3)=it2 + l1=sadr(ilrs+4) + call unsfdcopy((it2+1)*mn2,stk(l2),1,stk(l1),1) + lstk(top+1)=l1+mn2*(it2+1) + return + elseif(mn3.eq.0) then + istk(ilrs)=1 + istk(ilrs+1)=m2 + istk(ilrs+2)=n2 + istk(ilrs+3)=it2 + l1=sadr(ilrs+4) + call unsfdcopy((it2+1)*mn2,stk(l2),1,stk(l1),1) + lstk(top+1)=l1+mn2*(it2+1) + return + elseif(mn2.eq.1) then + istk(ilrs)=1 + istk(ilrs+1)=m3 + istk(ilrs+2)=n3 + istk(ilrs+3)=it2 + l1=sadr(ilrs+4) + if (it2.eq.1) then + xr=stk(l2) + xi=stk(l2+1) + call dset(mn3,xr,stk(l1),1) + call dset(mn3,xi,stk(l1+mn3),1) + else + call dset(mn3,stk(l2),stk(l1),1) + endif + lstk(top+1)=l1+mn3*(it2+1) + return + else + call error(15) + return + endif + endif + call indxg(il1,mn3,ili,mi,mxi,lw,1) + if(err.gt.0) return + if(mi.eq.0) then +c . arg3([])=arg2 + if(mn2.eq.1) then +c . arg3([])=c --> arg3 + call icopy(4,istk(il3),1,istk(ilrs),1) + l=sadr(ilrs+4) + call unsfdcopy(mn3*(it3+1),stk(l3),1,stk(l),1) + lstk(top+1)=l+mn3*(it3+1) + return + else + call error(15) + return + endif + endif + inc2=1 + if(mi.ne.mn2) then + if(mn2.eq.1) then + inc2=0 + else + call error(15) + return + endif + endif +c + if (n3.gt.1.and.m3.gt.1) then +c . arg3 is not a vector + if(n2.gt.1.and.m2.gt.1) then + call error(15) + return + endif + if(mxi.gt.m3*n3) then + call error(21) + return + endif + mr=m3 + nr=n3 + +c commented lines for matlab compatibility +c elseif (n3.le.1.and.m3.le.1) then +c if(n2.le.1) then +c mr=max(m3,mxi) +c nr=max(n3,1) +c else +c nr=max(n3,mxi) +c mr=max(m3,1) +c endif +c elseif (n3.le.1) then +c . arg3 and arg2 are column vectors +c mr=max(m3,mxi) +c nr=max(n3,1) +c elseif (m3.le.1) then +c . row vectors +c nr=max(n3,mxi) +c mr=max(m3,1) + elseif (n3.le.1.and.n2.le.1) then +c . arg3 and arg2 are column vectors + mr=max(m3,mxi) + nr=max(n3,1) + elseif (m3.le.1.and.m2.le.1) then +c . row vectors + nr=max(n3,mxi) + mr=max(m3,1) + else +c . arg3 and arg2 dimensions dont agree + call error(15) + return + endif + + lr=l3 + mnr=mr*nr + itr=max(it2,it3) + if(mnr*(itr+1).ne.mn3*(it3+1) ) then +c . resulting matrix is bigger than original + lr=lw + lw=lr + mnr*(itr+1) + err = lw - lstk(bot) + if (err .gt. 0) then + call error(17) + return + endif +c . initialise result r to 0 + call dset(mnr*(itr+1),0.0d+0,stk(lr),1) +c . write arg3 in r + if(mn3.ge.1) then + call dmcopy(stk(l3),m3,stk(lr),mr,m3,n3) + if(it3.eq.1) then + call dmcopy(stk(l3+mn3),m3,stk(lr+mnr),mr,m3,n3) + endif + endif + endif +c write arg2 in r + do 98 i = 0, mi-1 + ll = lr+istk(ili+i) - 1 + ls = l2+i*inc2 + stk(ll) = stk(ls) + if(it2.eq.1) then + stk(ll+mnr)=stk(ls+mn2) + elseif(itr.eq.1) then + stk(ll+mnr)=0.0d0 + endif + 98 continue +c + if(lr.ne.l3) then + l1=sadr(ilrs+4) + call unsfdcopy(mnr*(itr+1),stk(lr),1,stk(l1),1) + istk(ilrs)=1 + if(mmode.eq.1.and.nr.eq.1.and.m3.eq.0) then + istk(ilrs+1)=nr + istk(ilrs+2)=mr + else + istk(ilrs+1)=mr + istk(ilrs+2)=nr + endif + istk(ilrs+3)=itr + lstk(top+1)=l1+mnr*(itr+1) + else +c la matrice a ete modifie sur place + k=istk(iadr(lstk(top0))+2) + top=top-1 + call setref(k) + endif + return +c inline extraction procedure copied from matext1 + 79 if(mi.eq.0) then +c arg2([]) + istk(ilrs)=1 + istk(ilrs+1)=0 + istk(ilrs+2)=0 + istk(ilrs+3)=0 + l1=sadr(ilrs+4) + lstk(top+1)=l1 + return + endif +c get memory for the result + l1=sadr(ilrs+4) + if(sadr(ilr-1).le.l1+(it2+1)*mi) then + lr=lw + lw=lr+(it2+1)*mi + err=lw-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + else + lr=l1 + endif +c perform extraction + do 81 i = 0, mi-1 + ind=istk(ilr+i)-1 + stk(lr+i) = stk(l2+ind) + if(it2.eq.1) stk(lr+mi+i) = stk(l2+mn2+ind) + 81 continue +c set output sizes + if (m2.eq.1.and.n2.eq.1.and.m1.gt.0) then + m = m1 + n = min(n1,mi) + elseif (m2 .gt. 1.or.m1.lt.0) then + m = mi + n = 1 + else + n = mi + m = 1 + endif +c form resulting variable + istk(ilrs)=1 + istk(ilrs+1)=m + istk(ilrs+2)=n + istk(ilrs+3)=it2 + if(lr.ne.l1) call unsfdcopy(mi*(it2+1),stk(lr),1,stk(l1),1) + lstk(top+1)=l1+mi*(it2+1) + return + + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matins1.lo b/modules/double/sci_gateway/fortran/matins1.lo new file mode 100755 index 000000000..daf0a2bab --- /dev/null +++ b/modules/double/sci_gateway/fortran/matins1.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matins1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matins1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matins2.f b/modules/double/sci_gateway/fortran/matins2.f new file mode 100755 index 000000000..0fd4ceb68 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matins2.f @@ -0,0 +1,391 @@ +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c Copyright (C) DIGITEO - 2010 - Allan CORNET +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matins2 +c +c A(i,j)=B + + include 'stack.h' +c + integer top0 + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + top0=top + lw=lstk(top+1)+1 + + il4=iadr(lstk(top)) + if(istk(il4).lt.0) il4=iadr(istk(il4+1)) + m4=istk(il4+1) + n4=istk(il4+2) + it4=istk(il4+3) + l4=sadr(il4+4) + mn4=m4*n4 + top=top-1 + + il3=iadr(lstk(top)) + if(istk(il3).lt.0) il3=iadr(istk(il3+1)) + m3=istk(il3+1) + n3=istk(il3+2) + it3=istk(il3+3) + l3=sadr(il3+4) + mn3=m3*n3 + top=top-1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + ilrs=il1 + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 + +c arg4(arg1,arg2)=arg3 + if (istk(il3)*istk(il1)*istk(il2).eq.0) then + call error(220) + return + endif + if (m3.eq.0) then +c . arg4(arg1,arg2)=[] + if(m1.eq.-1.and.m2.eq.-1) then +c . arg4(:,:)=[] -->[] + istk(ilrs)=1 + istk(ilrs+1)=0 + istk(ilrs+2)=0 + istk(ilrs+3)=0 + lstk(top+1)=sadr(ilrs+4) + return + elseif(m1.eq.0.or.m2.eq.0) then +c . arg4([],arg2)=[], arg4(arg1,[])=[] --> arg4 + call icopy(4,istk(il4),1,istk(ilrs),1) + l=sadr(ilrs+4) + call unsfdcopy(mn4*(it4+1),stk(l4),1,stk(l),1) + lstk(top+1)=l+mn4*(it4+1) + return + elseif(m2.eq.-1) then +c . arg4(arg1,:)=[] --> arg4(compl(arg1),:) + call indxgc(il1,m4,ili,mi,mxi,lw) + if(err.gt.0) return + call indxg(il2,n4,ilj,nj,mxj,lw,1) + if(err.gt.0) return + l3=l4 + n3=n4 + m3=m4 + mn3=m3*n3 + it3=it4 +c . call extraction + goto 90 + elseif(m1.eq.-1) then +c . arg4(:,arg2)=[] --> arg4(:,compl(arg2)) + call indxgc(il2,n4,ilj,nj,mxj,lw) + if(err.gt.0) return + call indxg(il1,m4,ili,mi,mxi,lw,1) + if(err.gt.0) return + l3=l4 + n3=n4 + m3=m4 + mn3=m3*n3 + it3=it4 +c . call extraction + goto 90 + else +c . arg4(arg1,arg2)=[] + lw1=lw + call indxgc(il2,n4,ilj,nj,mxj,lw) + if(err.gt.0) return + if(nj.eq.0) then +c . arg4(arg1,1:n4)=[] + call indxgc(il1,m4,ili,mi,mxi,lw) + lw2=lw + if(err.gt.0) return + + if(mi.eq.0) then +c . arg4(1:m4,1:n4)=[] + istk(ilrs)=1 + istk(ilrs+1)=0 + istk(ilrs+2)=0 + istk(ilrs+3)=0 + lstk(top+1)=sadr(ilrs+4) + return + else +c . arg4(arg1,1:n4)=[] +c . replace arg2 by ":" + il2=iadr(lw2) + istk(il2)=1 + istk(il2+1)=-1 + istk(il2+2)=-1 + istk(il2+3)=0 +c . + lw=lw2+2 + call indxg(il2,n4,ilj,nj,mxj,lw,1) + if(err.gt.0) return + l3=l4 + n3=n4 + m3=m4 + it3=it4 + mn3=m3*n3 +c . call extraction + goto 90 + endif + elseif(nj.eq.n4) then +c arg4(arg1,[])=[] --> arg4 + call icopy(4,istk(il4),1,istk(ilrs),1) + l=sadr(ilrs+4) + call unsfdcopy(mn4*(it4+1),stk(l4),1,stk(l),1) + lstk(top+1)=l+mn4*(it4+1) + return + else + call indxgc(il1,m4,ili,mi,mxi,lw) + if(err.gt.0) return + + if(mi.eq.0) then +c . arg4(1:m4,arg2)=[] + call indxg(il1,m4,ili,mi,mxi,lw,1) + if(err.gt.0) return + l3=l4 + n3=n4 + m3=m4 +C . given set is larger than 1:m4 + mi=min(m4,mi) + it3=it4 + mn3=m3*n3 +c . call extraction + goto 90 + elseif(mi.eq.m4) then +c arg4([],arg2)=[] --> arg4 + call icopy(4,istk(il4),1,istk(ilrs),1) + l=sadr(ilrs+4) + call unsfdcopy(mn4*(it4+1),stk(l4),1,stk(l),1) + lstk(top+1)=l+mn4*(it4+1) + return + else + call error(15) + return + endif + endif + endif + elseif(m3.lt.0.or.m4.lt.0) then +c . arg3=eye , arg4=eye + call error(14) + return + elseif(m1.eq.-1.and.m2.eq.-1) then +c . arg4(:,:)=arg3 + if(mn3.eq.mn4) then +c . reshape arg3 according to arg4 + istk(ilrs)=1 + istk(ilrs+1)=m4 + istk(ilrs+2)=n4 + istk(ilrs+3)=it3 + l1=sadr(ilrs+4) + call unsfdcopy((it3+1)*mn4,stk(l3),1,stk(l1),1) + lstk(top+1)=l1+mn4*(it3+1) + return + elseif(mn3.eq.1) then +c . set all elements of arg4 to arg3 + istk(ilrs)=1 + istk(ilrs+1)=m4 + istk(ilrs+2)=n4 + istk(ilrs+3)=it3 + l1=sadr(ilrs+4) + call dset(mn4,stk(l3),stk(l1),1) + if(it3.eq.1) call dset(mn4,stk(l3+1),stk(l1+mn4),1) + lstk(top+1)=l1+mn4*(it3+1) + return + else + call error(15) + return + endif + + endif + init4=0 + if(m1.eq.-1.and.m4.eq.0) then +c . arg4(:,i)=arg3 + m3=m3*n3 + n3=1 + n4=1 + m4=m3 + init4=1 + + elseif(m2.eq.-1.and.m4.eq.0) then +c . arg4(i,:)=arg3 + n3=m3*n3 + m3=1 + m4=1 + n4=n3 + init4=1 + endif + if(init4.eq.1) then + err=lw-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + mn4=m4*n4 + l4=lw + lw=l4+ mn4 + call dset(mn4,0.0d0,stk(l4),1) + endif + call indxg(il1,m4,ili,mi,mxi,lw,1) + if(err.gt.0) return + call indxg(il2,n4,ilj,mj,mxj,lw,1) + if(err.gt.0) return + inc3=1 + if(mi.ne.m3.or.mj.ne.n3) then +c . sizes of arg1 or arg2 dont agree with arg3 sizes + if(m3*n3.eq.1) then + if(mi.eq.0.or.mj.eq.0) then + call icopy(4,istk(il4),1,istk(ilrs),1) + l=sadr(ilrs+4) + call unsfdcopy(mn4*(it4+1),stk(l4),1,stk(l),1) + lstk(top+1)=l+mn4*(it4+1) + return + endif + inc3=0 + else + call error(15) + return + endif + else + if(mi.eq.0.or.mj.eq.0) then + call error(15) + return + endif + endif + mr=max(m4,mxi) + nr=max(n4,mxj) +c + + mnr=mr*nr +c mnr must >= 0 + if (mnr .lt. 0) then + call error(17) + return + endif + itr=max(it4,it3) + if(mnr*(itr+1).ne.mn4*(it4+1) ) then + lr=lw + lw=lr + mnr*(itr+1) + err = lw - lstk(bot) +c lw must > 0 + if (err .gt. 0 .or. lw .le. 0) then + call error(17) + return + endif +c . set result r to 0 + call dset(mnr*(itr+1),0.0d+0,stk(lr),1) +c . copy arg4 in r + if(mn4.ge.1) then + call dmcopy(stk(l4),m4,stk(lr),mr,m4,n4) + if(it4.eq.1) then + call dmcopy(stk(l4+mn4),m4,stk(lr+mnr),mr,m4,n4) + endif + endif + else + lr=l4 + endif +c +c copy arg3 elements in r + do 115 j = 0, mj-1 + ljj = istk(ilj+j) - 1 + do 114 i = 0, mi-1 + ll = lr+istk(ili+i)-1+ljj*mr + ls = l3+(i+j*m3)*inc3 +c check ll and ls values + if (ll.le.0.or.ls.le.0) then + call error(17) + return + endif + stk(ll) = stk(ls) + if(it3.eq.1) then + stk(ll+mnr)=stk(ls+mn3) + elseif(itr.eq.1) then + stk(ll+mnr)=0.0d0 + endif + 114 continue + 115 continue +c + if(lr.ne.l4.or.init4.ne.0) then + l1=sadr(ilrs+4) + call unsfdcopy(mnr*(itr+1),stk(lr),1,stk(l1),1) + istk(ilrs)=1 + istk(ilrs+1)=mr + istk(ilrs+2)=nr + istk(ilrs+3)=itr + lstk(top+1)=l1+mnr*(itr+1) + else +c la matrice a ete modifie sur place + k=istk(iadr(lstk(top0))+2) + top=top-1 + call setref(k) + endif + + return +c inline extraction procedure copied from matext2 + 90 mn=mi*nj + if(mn.eq.0) then +c . arg1=[] or arg2=[] + ilrs=iadr(lstk(top)) + istk(ilrs)=1 + istk(ilrs+1)=0 + istk(ilrs+2)=0 + istk(ilrs+3)=0 + lstk(top+1)=sadr(ilrs+4) + return + endif +c get memory for the result + ilrs=iadr(lstk(top)) + l1=sadr(ilrs+4) + if(sadr(ili-1).le.l1+(it3+1)*mi*nj) then + lr=lw + lw=lr+(it3+1)*mi*nj + err=lw-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + else +c . the result may be installed at its final place + lr=l1 + endif +c perform extraction + l=lr + do 94 j = 0, nj-1 + do 93 i = 0, mi-1 + ind=istk(ili+i)-1+(istk(ilj+j)-1)*m3 + stk(l) = stk(l3+ind) + if(it3.eq.1) stk(l+mn) = stk(l3+mn3+ind) + l=l+1 + 93 continue + 94 continue +c form the resulting variable + istk(ilrs)=1 + istk(ilrs+1)=mi + istk(ilrs+2)=nj + istk(ilrs+3)=it3 + l1=sadr(ilrs+4) + if(lr.ne.l1) call unsfdcopy(mn*(it3+1),stk(lr),1,stk(l1),1) + lstk(top+1)=l1+mn*(it3+1) + return + + end + +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matins2.lo b/modules/double/sci_gateway/fortran/matins2.lo new file mode 100755 index 000000000..ee63f02d0 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matins2.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matins2.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matins2.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matldiv.f b/modules/double/sci_gateway/fortran/matldiv.f new file mode 100755 index 000000000..f1c994a3c --- /dev/null +++ b/modules/double/sci_gateway/fortran/matldiv.f @@ -0,0 +1,115 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matldiv +c +c matrix/vector left division + + include 'stack.h' +c + double precision sr,si + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) + + if (mn1.eq.0.or.mn2.eq.0) then +c . a\[] or []\a + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + return + endif + if (m1*n1 .ne. 1) then + if(m2.lt.0) then + call error(14) + return + endif + top = top+1 + rhs = 2 + call intbackslash('backslash') + if(err.gt.0) return + if (fin.ge.0) call putlhsvar() +c if (m1 .eq. n1) fun = 1 +c if (m1 .ne. n1) fun = 4 +c fin = -2 + else +c . cst \ vector + if(m1.lt.0.and.mn2.ne.1) then + call error(14) + return + endif + istk(il1+1)=m2 + istk(il1+2)=n2 + istk(il1+3)=itr + lstk(top+1)=l1+mn2*(itr+1) +c + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + + sr=stk(l1) + it21=it2+2*it1 + if(it21.eq.0) then +c . real \ real + call ddrdiv(stk(l2),1,sr,0,stk(l1),1,mn2,ierr) + elseif(it21.eq.1) then +c . real \ complex = complex/real + call wdrdiv(stk(l2),stk(l2+mn2),1,sr,0,stk(l2) + $ ,stk(l2+mn2),1,mn2,ierr) + call unsfdcopy(2*mn2,stk(l2),1,stk(l1),1) + elseif(it21.eq.2) then +c . complex \ real =real / complex + si=stk(l1+1) + call unsfdcopy(mn2,stk(l2),1,stk(l1),1) + call dwrdiv(stk(l1),1,sr,si,0,stk(l1),stk(l1+mn2),1 + $ ,mn2,ierr) + elseif(it21.eq.3) then +c . complex \ complex + si=stk(l1+1) + call unsfdcopy(2*mn2,stk(l2),1,stk(l1),1) + call wwrdiv(stk(l1),stk(l1+mn2),1,sr,si,0,stk(l1) + $ ,stk(l1+mn2),1,mn2,ierr) + endif + if(ierr.ne.0) then + if(ieee.eq.0) then + call error(27) + return + elseif(ieee.eq.1) then + call msgs(63) + endif + endif + endif + end + +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matldiv.lo b/modules/double/sci_gateway/fortran/matldiv.lo new file mode 100755 index 000000000..5be016c3d --- /dev/null +++ b/modules/double/sci_gateway/fortran/matldiv.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matldiv.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matldiv.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matmult.f b/modules/double/sci_gateway/fortran/matmult.f new file mode 100755 index 000000000..20f60bc49 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matmult.f @@ -0,0 +1,164 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matmult +c +c matrix/vector multiplications + + include 'stack.h' +c + double precision sr,si + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) +c + + if(mn1.eq.0.or.mn2.eq.0) then +c . []*a , a*[] + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + elseif (mn1 .eq. 1) then +c . cst*a + sr = stk(l1) + si=0.0d+0 + if(it1.eq.1) si = stk(l1+1) + if (m1.lt.0) then + if(mn2.eq.1) then +c . eye*cst + istk(il1+1)=m1 + istk(il1+2)=n1 + istk(il1+3)=itr + else + call error(14) + return + endif + else + istk(il1+1)=m2 + istk(il1+2)=n2 + istk(il1+3)=itr + endif + call unsfdcopy(mn2*(it2+1),stk(l2),1,stk(l1),1) + it21=it2+2*it1 + if(it21.eq.0) then +c . Real scalar and matrix + call dscal(mn2,sr,stk(l1),1) + elseif(it21.eq.1) then +c . Complex matrix, real scalar + call dscal(mn2,sr,stk(l1),1) + call dscal(mn2,sr,stk(l1+mn2),1) + elseif(it21.eq.2) then +c . Real matrix, complex scalar + lstk(top+1)=l1+mn2*(itr+1) + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call unsfdcopy(mn2,stk(l1),1,stk(l1+mn2),1) + call dscal(mn2,sr,stk(l1),1) + call dscal(mn2,si,stk(l1+mn2),1) + elseif(it21.eq.3) then +c . Complex matrix and scalar + call wscal(mn2,sr,si,stk(l1),stk(l1+mn2),1) + endif + lstk(top+1)=l1+mn2*(itr+1) + elseif (mn2 .eq. 1) then +c . a*cst + if(m2.lt.0) then + call error(14) + return + endif + it21=it2+2*it1 + if(it21.eq.0) then +c . Real matrix and scalar + call dscal(mn1,stk(l2),stk(l1),1) + elseif(it21.eq.1) then +c . Real matrix, complex scalar + sr = stk(l2) + si = stk(l2+1) + lstk(top+1)=l1+mn1*(itr+1) + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call unsfdcopy(mn1,stk(l1),1,stk(l1+mn1),1) + call dscal(mn1,si,stk(l1+mn1),1) + call dscal(mn1,sr,stk(l1),1) + istk(il1+3)=itr + elseif(it21.eq.2) then +c . Complex matrix, real scalar + sr = stk(l2) + call dscal(mn1,sr,stk(l1),1) + call dscal(mn1,sr,stk(l1+mn1),1) + elseif(it21.eq.3) then + sr = stk(l2) + si = stk(l2+1) +c . Complex matrix and scalar + call wscal(mn1,sr,si,stk(l1),stk(l1+mn1),1) + endif + else +c . matrix*matrix + if (n1 .ne. m2) then + call error(10) + return + endif + lr=l2+mn2*(it2+1) +c . m1*n2 may overflow + temp=float(lr)+float(m1)*n2*(itr+1)-lstk(bot) + if(temp.gt.0.0d0) then + err=int(temp) + call error(17) + return + endif + if(it1*it2.ne.1) then +* remplacement de dmmul par dgemm (Bruno le 31/10/2001) + call dgemm('n','n',m1,n2,n1,1.d0,stk(l1),m1,stk(l2),m2, + $ 0.d0,stk(lr),m1) + if(it1.eq.1) call dgemm('n','n',m1,n2,n1,1.d0,stk(l1+mn1), + $ m1,stk(l2),m2,0.d0,stk(lr+m1*n2),m1) + if(it2.eq.1) call dgemm('n','n',m1,n2,n1,1.d0,stk(l1),m1, + $ stk(l2+mn2),m2,0.d0,stk(lr+m1*n2),m1) + else +c . a and a2 both complex + call wmmul(stk(l1),stk(l1+mn1),m1,stk(l2),stk(l2 + $ +mn2),m2,stk(lr),stk(lr+m1*n2),m1,m1,n1,n2) + endif + call unsfdcopy(m1*n2*(itr+1),stk(lr),1,stk(l1),1) + istk(il1+2)=n2 + istk(il1+3)=itr + lstk(top+1)=l1+m1*n2*(itr+1) + endif + return + end + +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matmult.lo b/modules/double/sci_gateway/fortran/matmult.lo new file mode 100755 index 000000000..faf543076 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matmult.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matmult.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matmult.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matpow.f b/modules/double/sci_gateway/fortran/matpow.f new file mode 100755 index 000000000..5a78b20fe --- /dev/null +++ b/modules/double/sci_gateway/fortran/matpow.f @@ -0,0 +1,238 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matpow +c +c matrix/vector entrywize power + + include 'stack.h' +c + double precision ddot,dasum,sr,si + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + lw=lstk(top+1)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + ilrs=il1 + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) +c + if(mn1.eq.0) then + return + endif + if(mn2.eq.0) then + istk(ilrs)=1 + istk(ilrs+1)=0 + istk(ilrs+2)=0 + istk(ilrs+3)=0 + lstk(top+1)=sadr(ilrs+4) + return + endif + if(mn1.eq.1) then +c scalar^matrix treated as scalar.^matrix (see matxpow) + err=lw+mn2*2-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + if(it2.eq.0) then + if(it1.eq.0) then + call ddpow1(mn2,stk(l1),0,stk(l2),1, + $ stk(lw),stk(lw+mn2),1,err,itr) + else + call wdpow1(mn2,stk(l1),stk(l1+mn1),0,stk(l2),1, + $ stk(lw),stk(lw+mn2),1,err) + endif + else + if(it1.eq.0) then + call dwpow1(mn2,stk(l1),0,stk(l2),stk(l2+mn2),1, + & stk(lw),stk(lw+mn2),1,err) + else + call wwpow1(mn2,stk(l1),stk(l1+mn1),0,stk(l2),stk(l2 + $ +mn2),1,stk(lw),stk(lw+mn2),1,err) + endif + endif + if(err.eq.1) then + call error(30) + return + endif + if(err.eq.2) then + if(ieee.eq.0) then + call error(27) + return + elseif(ieee.eq.1) then + call msgs(63) + endif + err=0 + endif + istk(il1+1)=m2 + istk(il1+2)=n2 + istk(il1+3)=itr + call unsfdcopy(mn2*(itr+1),stk(lw),1,stk(l1),1) + lstk(top+1)=l1+mn2*(itr+1) + return + endif + if(mn2.gt.1) goto 39 + if(m1.ne.n1) then + if(mn2.eq.1.and.(m1.eq.1.or.n1.eq.1)) then +c . vect^scalar treated as vect.^scalar (see matxpow) + call msgs(116) + sr=stk(l2) + si=stk(l2+1) + if(it1.eq.0) then + err=l1+mn1-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + endif + if(it2.eq.0) then + if(it1.eq.0) then + call ddpow1(mn1,stk(l1),1,sr,0,stk(l1),stk(l1+mn1),1, + $ err,itr) + else + call wdpow1(mn1,stk(l1),stk(l1+mn1),1,sr,0, + $ stk(l1),stk(l1+mn1),1,err) + endif + else + if(it1.eq.0) then + call dwpow1(mn1,stk(l1),1,sr,si,0, + & stk(l1),stk(l1+mn1),1,err) + else + call wwpow1(mn1,stk(l1),stk(l1+mn1),1,sr,si,0, + $ stk(l1),stk(l1+mn1),1,err) + endif + endif + if(err.eq.1) then + call error(30) + return + endif + if(err.eq.2) then + if(ieee.eq.0) then + call error(27) + return + elseif(ieee.eq.1) then + call msgs(63) + endif + err=0 + endif + istk(il1+3)=itr + lstk(top+1)=l1+mn1*(itr+1) + return + endif + err=1 + call error(20) + return + endif + nexp = nint(stk(l2)) + + if (it2 .ne. 0) go to 39 + if (stk(l2) .ne. dble(nexp)) go to 39 + if (nexp.eq.1) return + if (nexp.eq.0) then + lw=l1+mn1*(it1+1) + ipvt=iadr(lw+m1*(it1+1)) + err=sadr(ipvt+m1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + if (dasum(m1*n1*(it1+1),stk(l1),1).eq.0.0d0) then + call error(30) + return + endif + call dset(mn1,0.0d+0,stk(l1),1) + call dset(m1,1.0d+0,stk(l1),m1+1) + istk(il1+3)=0 + lstk(top+1)=l1+mn1 + return + endif +c + if (nexp.le.0) then + rhs=1 + call intinv('pow') + call putlhsvar() +c call matlu + if(err.gt.0.or.err1.gt.0) return + nexp=-nexp + endif + l2=l1+mn1*(it1+1) +c + l3=l2+mn1*(itr+1) + err=l3+n1*(itr+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + lstk(top+1)=l1+mn1*(itr+1) + istk(il1+3)=itr +c + call unsfdcopy(mn1*(itr+1),stk(l1),1,stk(l2),1) + if(it1.eq.1) goto 35 +c la matrice est reelle + do 34 kexp=2,nexp + do 33 j=1,n1 + ls=l1+(j-1)*n1 + call unsfdcopy(n1,stk(ls),1,stk(l3),1) + do 32 i=1,n1 + ls=l2+(i-1) + ll=l1+(i-1)+(j-1)*n1 + stk(ll)=ddot(n1,stk(ls),n1,stk(l3),1) + 32 continue + 33 continue + 34 continue + return +c + 35 continue +c la matrice est complexe + do 38 kexp=2,nexp + do 37 j=1,n1 + ls=l1+(j-1)*n1 + call unsfdcopy(n1,stk(ls),1,stk(l3),1) + call unsfdcopy(n1,stk(ls+mn1),1,stk(l3+n1),1) + do 36 i=1,n1 + ls=l2+(i-1) + ll=l1+(i-1)+(j-1)*n1 + stk(ll)=ddot(n1,stk(ls),n1,stk(l3),1)- + $ ddot(n1,stk(ls+mn1),n1,stk(l3+n1),1) + stk(ll+mn1)=ddot(n1,stk(ls),n1,stk(l3+n1),1)+ + $ ddot(n1,stk(ls+mn1),n1,stk(l3),1) + 36 continue + 37 continue + 38 continue + return +c +c puissance non entiere ou non positive + 39 fun = 6 + fin = 28 + rhs=2 + top=top+1 + return + end +c ================================================ + diff --git a/modules/double/sci_gateway/fortran/matpow.lo b/modules/double/sci_gateway/fortran/matpow.lo new file mode 100755 index 000000000..7a573435d --- /dev/null +++ b/modules/double/sci_gateway/fortran/matpow.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matpow.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matpow.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matrc.f b/modules/double/sci_gateway/fortran/matrc.f new file mode 100755 index 000000000..28a1ada22 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matrc.f @@ -0,0 +1,92 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matrc +c +c [a b] + + include 'stack.h' +c + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + lw=lstk(top+1)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 + + itr=max(it1,it2) + + if(m1.lt.0.or.m2.lt.0) then + call error(14) + return + endif + if(m2.eq.0) then + return + elseif(m1.eq.0)then + call unsfdcopy(lstk(top+2)-lstk(top+1),stk(lstk(top+1)) + $ ,1,stk(lstk(top)),1) + lstk(top+1)=lstk(top)+lstk(top+2)-lstk(top+1) + return + elseif(m1.ne.m2) then + call error(5) + return + endif +c + if(itr.eq.0) then + call unsfdcopy(mn2,stk(l2),1,stk(l1+mn1),1) + else + lw=l1+(itr+1)*(mn1+mn2) + if(lw.gt.l2) then + err=lw+mn2*(it2+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call unsfdcopy(mn2*(it2+1),stk(l2),-1,stk(lw),-1) + l2=lw + endif + if(it1.eq.1) call unsfdcopy(mn1,stk(l1+mn1),-1,stk(l1 + $ +mn1+mn2),-1) + call unsfdcopy(mn2,stk(l2),1,stk(l1+mn1),1) + if(it1.eq.0) then + call dset(mn1,0.0d+0,stk(l1+mn1+mn2),1) + call unsfdcopy(mn2,stk(l2+mn2),1,stk(l1+2*mn1+mn2),1) + endif + if(it2.eq.0) then + call dset(mn2,0.0d+0,stk(l1+2*mn1+mn2),1) + else + call unsfdcopy(mn2,stk(l2+mn2),1,stk(l1+2*mn1+mn2),1) + endif + endif + n=n1+n2 + istk(il1+1)=m1 + istk(il1+2)=n + istk(il1+3)=itr + lstk(top+1)=sadr(il1+4)+m1*n*(itr+1) + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matrc.lo b/modules/double/sci_gateway/fortran/matrc.lo new file mode 100755 index 000000000..3596241f4 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matrc.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matrc.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matrc.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matrdiv.f b/modules/double/sci_gateway/fortran/matrdiv.f new file mode 100755 index 000000000..cee6be065 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matrdiv.f @@ -0,0 +1,109 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matrdiv +c +c matrix/vector right division + + include 'stack.h' +c + double precision sr,si + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) +c + if (mn1.eq.0.or.mn2.eq.0) then +c . a/[] or []/a + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + return + endif + if (mn2 .ne. 1) then + if(m1.lt.0) then + call error(14) + return + endif + top = top+1 + rhs = 2 + call intslash('slash') + if (fin.ge.0) call putlhsvar() +c if (m2 .eq. n2) fun = 1 +c if (m2 .ne. n2) fun = 4 +c fin = -1 + else +c . vector / cst + if(m2.lt.0.and.mn1.ne.1) then + call error(14) + return + endif + istk(il1+1)=m1 + istk(il1+2)=n1 + istk(il1+3)=itr + lstk(top+1)=l1+mn1*(itr+1) +c + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + it21=it2+2*it1 + if(it21.eq.0) then +c . real / real + call ddrdiv(stk(l1),1,stk(l2),0,stk(l1),1,mn1,ierr) + elseif(it21.eq.1) then +c . real / complex + sr=stk(l2) + si=stk(l2+1) + call dwrdiv(stk(l1),1,sr,si,0,stk(l1),stk(l1+mn1),1, + $ mn1,ierr) + elseif(it21.eq.2) then +c . complex / real + call wdrdiv(stk(l1),stk(l1+mn1),1,stk(l2),0,stk(l1) + $ ,stk(l1+mn1),1,mn1,ierr) + elseif(it21.eq.3) then +c . complex / complex + call wwrdiv(stk(l1),stk(l1+mn1),1,stk(l2),stk(l2+1) + $ ,0,stk(l1),stk(l1+mn1),1,mn1,ierr) + endif + if(ierr.ne.0) then + if(ieee.eq.0) then + call error(27) + return + elseif(ieee.eq.1) then + call msgs(63) + endif + endif + endif + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matrdiv.lo b/modules/double/sci_gateway/fortran/matrdiv.lo new file mode 100755 index 000000000..73ee0e1dd --- /dev/null +++ b/modules/double/sci_gateway/fortran/matrdiv.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matrdiv.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matrdiv.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matsubt.f b/modules/double/sci_gateway/fortran/matsubt.f new file mode 100755 index 000000000..1bed1144b --- /dev/null +++ b/modules/double/sci_gateway/fortran/matsubt.f @@ -0,0 +1,152 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matsubt +c +c matrix subtraction + + include 'stack.h' +Cc (DLL Intel Fortran) +cDEC$ IF DEFINED (FORDLL) +cDEC$ ATTRIBUTES DLLIMPORT:: /mtlbc/ +cDEC$ ENDIF + common /mtlbc/ mmode +c + double precision cstr,csti,sr,si + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) +c + if (mn1.eq.0) then + if (mmode.eq.1) then +c . Matlab like []-a=[] + else +c . []-a=-a + call icopy(4,istk(il2),1,istk(il1),1) + call unsfdcopy(mn2*(it2+1),stk(l2),1,stk(l1),1) + call dscal(mn2*(it2+1),-1.0d0,stk(l1),1) + lstk(top+1)=l1+mn2*(it2+1) + endif + elseif(mn2.eq.0) then + if (mmode.eq.1) then +c . Matlab like a-[]=[] + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + else +c . a-[]=a + endif + elseif (m1 .lt. 0) then +c . a*eye-vector + go to 42 + elseif (m2 .lt. 0) then +c . vector-a*eye + go to 45 + elseif (mn2.eq.1) then +c . vector-const + call dadd(mn1,-stk(l2),0,stk(l1),1) + if(it2+2*it1.eq.1) call unsfdcopy(mn1,-stk(l2+mn2),0, + $ stk(l1+mn1),1) + if(it1*it2.eq.1) call dadd(mn1,-stk(l2+mn2),0,stk(l1+mn1),1) + lstk(top+1)=l1+mn1*(itr+1) + istk(il1+3)=itr + elseif (mn1.eq.1) then +c . cst-vector + cstr=stk(l1) + csti=stk(l1+1) + call dscal((it2+1)*mn2,-1.0d0,stk(l2),1) + call unsfdcopy((it2+1)*mn2,stk(l2),1,stk(l1),1) + if(it1.eq.1.and.it2.eq.0) call dset(mn2,0.d0,stk(l1+mn2),1) + call dadd(mn2,cstr,0,stk(l1),1) + if(it1.eq.1) call dadd(mn2,csti,0,stk(l1+mn2),1) + lstk(top+1)=l1+mn2*(itr+1) + istk(il1+1)=m2 + istk(il1+2)=n2 + istk(il1+3)=itr + else +c . vector-vector + if (m1 .ne. m2.or.n1 .ne. n2) then + call error(9) + return + endif + call ddif(mn1,stk(l2),1,stk(l1),1) + if(itr.eq.0) return + if(it1.eq.0) then + call dscal (mn1,-1.0d+0,stk(l2+mn1),1) + call unsfdcopy(mn1,stk(l2+mn1),1,stk(l1+mn1),1) + endif + if(it1*it2.eq.1) call ddif(mn1,stk(l2+mn1),1,stk(l1+mn1),1) + lstk(top+1)=l1+mn1*(itr+1) + istk(il1+3)=itr + endif + return + +c a*eye-b + 42 sr=stk(l1) + si=0.0d+0 + if(it1.eq.1) si=stk(l1+1) + 43 call unsfdcopy(mn2*(it2+1),stk(l2),1,stk(l1),1) + call dscal(mn2*(it2+1),-1.0d+0,stk(l1),1) + mn1=mn2 + m1=m2 + n1=n2 + m2=it2 + it2=it1 + it1=m2 + goto 46 +c +c a-eye*b + 45 sr=-stk(l2) + si=0.0d+0 + if(it2.eq.1) si =- stk(l2+1) +c + 46 err=l1+mn1*(itr+1) - lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + lstk(top+1)=l1+mn1*(itr+1) + istk(il1+1)=m1 + istk(il1+2)=n1 + istk(il1+3)=itr +c + if(itr.eq.1.and.it1.eq.0) call dset(mn1,0.0d+0,stk(l1+mn1),1) + m1=abs(m1) + n1=abs(n1) + do 47 i = 1, min(n1,m1) + ll = l1 + (i-1)*(m1+1) + stk(ll) = stk(ll)+sr + if(itr.ne.0) stk(ll+mn1) = stk(ll+mn1)+si + 47 continue + return + end + +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matsubt.lo b/modules/double/sci_gateway/fortran/matsubt.lo new file mode 100755 index 000000000..d5ba1b949 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matsubt.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matsubt.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matsubt.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/mattr.f b/modules/double/sci_gateway/fortran/mattr.f new file mode 100755 index 000000000..b96b9cdb5 --- /dev/null +++ b/modules/double/sci_gateway/fortran/mattr.f @@ -0,0 +1,51 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine mattr + + include 'stack.h' +c + integer vol + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + if(mn1 .eq. 0.or.istk(il1).eq.0) then + return + elseif(abs(m1).eq.1.or.abs(n1).eq.1) then + goto 10 + else + vol=mn1*(it1+1) + ll = l1+vol + err = ll+vol - lstk(bot) + if (err .gt. 0) then + call error(17) + return + endif + call unsfdcopy(vol,stk(l1),1,stk(ll),1) + call mtran(stk(ll),m1,stk(l1),n1,m1,n1) + if(it1.eq.1) then + call mtran(stk(ll+mn1),m1,stk(l1+mn1),n1,m1,n1) + endif + endif + 10 istk(il1+1)=n1 + istk(il1+2)=m1 + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/mattr.lo b/modules/double/sci_gateway/fortran/mattr.lo new file mode 100755 index 000000000..98474329a --- /dev/null +++ b/modules/double/sci_gateway/fortran/mattr.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/mattr.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/mattr.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/mattrc.f b/modules/double/sci_gateway/fortran/mattrc.f new file mode 100755 index 000000000..4ef33472c --- /dev/null +++ b/modules/double/sci_gateway/fortran/mattrc.f @@ -0,0 +1,57 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine mattrc +c +c ' +c +c Copyright INRIA + include 'stack.h' +c + integer vol + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + if(mn1 .eq. 0.or.istk(il1).eq.0) then + return + elseif(abs(m1).eq.1.or.abs(n1).eq.1) then + if(it1.eq.1) then + call dscal(mn1,-1.0d0,stk(l1+mn1),1) + endif + else + vol=mn1*(it1+1) + ll = l1+vol + err = ll+vol - lstk(bot) + if (err .gt. 0) then + call error(17) + return + endif + call unsfdcopy(vol,stk(l1),1,stk(ll),1) + call mtran(stk(ll),m1,stk(l1),n1,m1,n1) + if(it1.eq.1) then + call mtran(stk(ll+mn1),m1,stk(l1+mn1),n1,m1,n1) + call dscal(mn1,-1.0d+0,stk(l1+mn1),1) + endif + endif + istk(il1+1)=n1 + istk(il1+2)=m1 + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/mattrc.lo b/modules/double/sci_gateway/fortran/mattrc.lo new file mode 100755 index 000000000..323e3761c --- /dev/null +++ b/modules/double/sci_gateway/fortran/mattrc.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/mattrc.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/mattrc.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/matxpow.f b/modules/double/sci_gateway/fortran/matxpow.f new file mode 100755 index 000000000..31131cd4b --- /dev/null +++ b/modules/double/sci_gateway/fortran/matxpow.f @@ -0,0 +1,164 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine matxpow +c +c matrix/vector entrywize power +c + include 'stack.h' +c + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + lw=lstk(top+1)+1 + + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + + if (mn1.eq.0) then + return + endif + if (mn2.eq.0) then + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + return + endif + if (mn2 .gt. 1) then + m=m2 + n=n2 + inc2=1 + if (mn1 .eq.1) then + inc1=0 + elseif(m1.eq.m2.and.n1.eq.n2) then + inc1=1 + else + call error(30) + return + endif + else + inc2=0 + inc1=1 + m=m1 + n=n1 + endif + mn=m*n +c We can do the calculation in place if: +c - the arrays are real +c - the exponents are integers +c - the base numbers are positive +c Otherwise, the result may contain an imaginary part. + complexRes = 0 + if (max(it1,it2).ne.0) then + complexRes = 1 + else + do 5 i=0,mn-1 + if (int(stk(l2+i*inc2)).ne.stk(l2+i*inc2) + & .or.stk(l1+i*inc1).lt.0) then + complexRes = 1 + goto 10 + endif +5 continue + endif +10 if (complexRes.eq.1) then +c Calculation not done in place (result can have an imaginary part) +c First, call an error if memory is going to be insufficient + err=lw+mn*2-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + itr=max(it1,it2) +c Then, call the operative functions + if(it2.eq.0) then + if(it1.eq.0) then + call ddpow1(mn,stk(l1),inc1,stk(l2),inc2, + $ stk(lw),stk(lw+mn),1,ierr,itr) + else + call wdpow1(mn,stk(l1),stk(l1+mn1),inc1,stk(l2),inc2, + $ stk(lw),stk(lw+mn),1,ierr) + endif + else + if(it1.eq.0) then + call dwpow1(mn,stk(l1),inc1,stk(l2),stk(l2+mn2),inc2, + & stk(lw),stk(lw+mn),1,ierr) + else + call wwpow1(mn,stk(l1),stk(l1+mn1),inc1,stk(l2), + & stk(l2+mn2),inc2,stk(lw),stk(lw+mn),1,ierr) + endif + endif + else +c Calculation done in place + if (m1.eq.m.and.n1.eq.n) then +c [x1 x2 x3 ...].^n + do 20 i=0,mn-1 + call dipowe(stk(l1+i*inc1),int(stk(l2+i*inc2)), + & stk(l1+i*inc1),ierr) +20 continue + else +c [x].^[n1 n2 n3 ...], result is put in [n1 n2 n3 ...] + do 25 i=0,mn-1 + call dipowe(stk(l1+i*inc1),int(stk(l2+i*inc2)), + & stk(l2+i*inc2),ierr) +25 continue + endif + endif + if(ierr.eq.1) then + call error(30) + return + endif + if(ierr.eq.2) then + if(ieee.eq.0) then + call error(27) + return + elseif(ieee.eq.1) then + call msgs(63) + endif + err=0 + endif + if (complexRes.eq.1) then + istk(il1+1)=m + istk(il1+2)=n + istk(il1+3)=itr + call unsfdcopy(mn*(itr+1),stk(lw),1,stk(l1),1) + lstk(top+1)=l1+mn*(itr+1) + return + else +c The result is either stored in the first argument, then just return, +c or it is in the exponent argument, then copy it in the first argument and return. + if (m1.ne.m.or.n1.ne.n) then + istk(il1+1)=m + istk(il1+2)=n + call unsfdcopy(mn,stk(l2),1,stk(l1),1) + lstk(top+1)=l1+mn + return + endif + endif + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/matxpow.lo b/modules/double/sci_gateway/fortran/matxpow.lo new file mode 100755 index 000000000..61251c755 --- /dev/null +++ b/modules/double/sci_gateway/fortran/matxpow.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/matxpow.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/matxpow.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/vecimpl.f b/modules/double/sci_gateway/fortran/vecimpl.f new file mode 100755 index 000000000..90d3ceb9c --- /dev/null +++ b/modules/double/sci_gateway/fortran/vecimpl.f @@ -0,0 +1,163 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine vecimpl +c +c implicit vector +c +c Copyright INRIA + include 'stack.h' +c + double precision e1,e2,st,e1r,inf,npt,zero + double precision dlamch + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + inf=dlamch('o') + zero=0.0d0 + if(rhs.eq.2) goto 02 + il3=iadr(lstk(top)) + if(istk(il3).lt.0) il3=iadr(istk(il3+1)) + m3=istk(il3+1) + n3=istk(il3+2) + it3=istk(il3+3) + l3=sadr(il3+4) + mn3=m3*n3 + top=top-1 + + 02 il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + if(mn1.ne.1) then + err=1 + call cvname(ids(1,pt+1),''':''',0) + call error(204) + return + endif + e1 = stk(l1) +c + if(mn2.ne.1) then + err=2 + call cvname(ids(1,pt+1),''':''',0) + call error(204) + return + endif + e2 = stk(l2) +c + if (rhs .eq. 3) then + if(mn3.ne.1) then + err=3 + call cvname(ids(1,pt+1),''':''',0) + call error(204) + return + endif + e2=stk(l3) + st = stk(l2) + else + st = 1.0d+0 + endif + +C If one value is NaN return NaN + if(isanan(e1).eq.1.or.isanan(e2).eq.1.or.isanan(st).eq.1) then + stk(l1)=e1+st+e2 + istk(il1+1)=1 + istk(il1+2)=1 + istk(il1+3)=0 + lstk(top+1)=l1+1 + return + endif + +C empty answer cases + if ((st.eq.0.0d0).or. + + (st.gt.0.0d0.and.e1.gt.e2).or. + + (st.lt.0.0d0.and.e1.lt.e2)) then + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=l1 + return + endif + npt=(e2-e1)/st + if(abs(e1).ge.inf.or.abs(e2).ge.inf.or.abs(st).ge.inf) then + stk(l1)=zero/zero + istk(il1+1)=1 + istk(il1+2)=1 + istk(il1+3)=0 + lstk(top+1)=l1+1 + return + endif + +c check for clause + if (rstk(pt-1) .eq. 801.or.rstk(pt).eq.611) go to 54 +c if(rstk(pt-1).eq.611.and.rstk(pt).eq.601) go to 54 + if(rstk(pt-1).eq.611.and.rstk(pt).eq.601) then +c . in compiled macro, check if vecimpl is the latest opcode of the +c . for expression + if (ids(3,pt)+ids(4,pt).eq.pstk(pt))go to 54 + endif +c + + + + +c floating point used to avoid integer overflow + e1r=dble(l1) + max(3.0d0,npt) - dble(lstk(bot)) + if (e1r .gt. 0.0d0) then + err=e1r + call error(17) + return + endif +c + e1r=2.0d0*max(abs(e1),abs(e2))*dlamch('p') + n = 0 + l=l1 +c This code is wrongly optimized by gfortran 4.8.1 + 52 if (st*(stk(l)-e2).gt.0.0d+0) then + if (abs(stk(l)-e2).lt.e1r) n=n+1 + go to 53 + endif + n = n+1 + l = l+1 + stk(l) = e1 + dble(n)*st + go to 52 + 53 continue + istk(il1+1)=1 + if(n.eq.0) istk(il1+1)=0 + istk(il1+2)=n + istk(il1+3)=0 + lstk(top+1)=l1+n + return +c +c for clause + 54 stk(l1) = e1 + stk(l1+1) = st + stk(l1+2) = e2 + istk(il1+1)=-3 + istk(il1+2)=-1 + lstk(top+1)=l1+3 + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/vecimpl.lo b/modules/double/sci_gateway/fortran/vecimpl.lo new file mode 100755 index 000000000..54b20f1b3 --- /dev/null +++ b/modules/double/sci_gateway/fortran/vecimpl.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/vecimpl.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/vecimpl.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/vecldiv.f b/modules/double/sci_gateway/fortran/vecldiv.f new file mode 100755 index 000000000..dcc7cc85e --- /dev/null +++ b/modules/double/sci_gateway/fortran/vecldiv.f @@ -0,0 +1,170 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine vecldiv +c +c .\ +c +c Copyright INRIA + include 'stack.h' +c + double precision sr,si + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) + + i1=1 + i2=1 + + if(mn1.eq.0.or.mn2.eq.0) then +c [].*a a.*[] -->[] + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + return + endif + if(n1.lt.0.and.mn2.ne.1.or.n2.lt.0.and.mn1.ne.1) then + call error(14) + return + endif + if(mn1.ne.1.and.mn2.ne.1) then +c check dimensions + if (m1.ne.m2 .or. n1.ne.n2) then + buf='Inconsistent element-wise operation' + call error(9999) + return + endif + endif +c + lstk(top+1)=l1+max(mn1,mn2)*(itr+1) + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + istk(il1+3)=itr + + it21=it2+2*it1 + if(mn1.eq.1) then +c . cst .\ vector + if(m1.lt.0.and.mn2.ne.1) then + call error(14) + return + endif + istk(il1+1)=m2 + istk(il1+2)=n2 + istk(il1+3)=itr + lstk(top+1)=l1+mn2*(itr+1) +c + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + + sr=stk(l1) + it21=it2+2*it1 + if(it21.eq.0) then +c . real \ real + call ddrdiv(stk(l2),1,sr,0,stk(l1),1,mn2,ierr) + elseif(it21.eq.1) then +c . real \ complex = complex/real + call wdrdiv(stk(l2),stk(l2+mn2),1,sr,0,stk(l2) + $ ,stk(l2+mn2),1,mn2,ierr) + call unsfdcopy(2*mn2,stk(l2),1,stk(l1),1) + elseif(it21.eq.2) then +c . complex \ real =real / complex + si=stk(l1+1) + call unsfdcopy(mn2,stk(l2),1,stk(l1),1) + call dwrdiv(stk(l1),1,sr,si,0,stk(l1),stk(l1+mn2),1 + $ ,mn2,ierr) + elseif(it21.eq.3) then +c . complex \ complex + si=stk(l1+1) + call unsfdcopy(2*mn2,stk(l2),1,stk(l1),1) + call wwrdiv(stk(l1),stk(l1+mn2),1,sr,si,0,stk(l1) + $ ,stk(l1+mn2),1,mn2,ierr) + endif + elseif(mn2.eq.1) then +c . vector .\ cst + sr=stk(l2) + if(it21.eq.0) then +c . real .\ real + call ddrdiv(sr,0,stk(l1),1,stk(l1),1,mn1,ierr) + elseif(it21.eq.2) then +c . complex .\ real + call dwrdiv(sr,0,stk(l1),stk(l1+mn1),1,stk(l1) + $ ,stk(l1+mn1),1,mn1,ierr) + elseif(it21.eq.1) then +c . real .\ complex + si=stk(l2+mn2) + call wdrdiv(sr,si,0,stk(l1),1,stk(l1),stk(l1+mn1),1 + $ ,mn1,ierr) + elseif(it21.eq.3) then +c . complex .\ complex + si=stk(l2+mn2) + call wwrdiv(sr,si,0,stk(l1),stk(l1+mn1),1,stk(l1) + $ ,stk(l1+mn1),1,mn1,ierr) + endif + else +c . vector .\ vector + if(it21.eq.0) then +c . real .\ real + call ddrdiv(stk(l2),1,stk(l1),1,stk(l1),1,mn1 + $ ,ierr) + elseif(it21.eq.2) then +c . complex .\ real + call dwrdiv(stk(l2),1,stk(l1),stk(l1+mn1),1 + $ ,stk(l1),stk(l1+mn1),1,mn1,ierr) + elseif(it21.eq.1) then +c . real .\ complex = complex /. real + call wdrdiv(stk(l2),stk(l2+mn2),1,stk(l1),1 + $ ,stk(l1),stk(l2),1,mn1,ierr) + call unsfdcopy(mn1,stk(l2),1,stk(l1+mn1),1) + elseif(it21.eq.3) then +c . complex .\ complex + call wwrdiv(stk(l2),stk(l2+mn2),1,stk(l1) + $ ,stk(l1+mn1),1,stk(l1),stk(l1+mn1),1,mn1,ierr) + endif + endif + if(ierr.ne.0) then + if(ieee.eq.0) then + call error(27) + return + elseif(ieee.eq.1) then + call msgs(63) + endif + endif + + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/vecldiv.lo b/modules/double/sci_gateway/fortran/vecldiv.lo new file mode 100755 index 000000000..d436b94c1 --- /dev/null +++ b/modules/double/sci_gateway/fortran/vecldiv.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/vecldiv.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/vecldiv.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/vecmul.f b/modules/double/sci_gateway/fortran/vecmul.f new file mode 100755 index 000000000..be7c03af0 --- /dev/null +++ b/modules/double/sci_gateway/fortran/vecmul.f @@ -0,0 +1,173 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine vecmul +c +c vector multiplication .* +c +c Copyright INRIA + include 'stack.h' +c + double precision sr,si + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) +c + i1=1 + i2=1 + if(mn1.eq.0.or.mn2.eq.0) then +c [].*a a.*[] -->[] + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + return + endif + if(n1.lt.0.and.mn2.ne.1.or.n2.lt.0.and.mn1.ne.1) then + call error(14) + return + endif + if(mn1.ne.1.and.mn2.ne.1) then +c check dimensions + if (m1.ne.m2 .or. n1.ne.n2) then + buf='Inconsistent element-wise operation' + call error(9999) + return + endif + endif +c + lstk(top+1)=l1+max(mn1,mn2)*(itr+1) + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + istk(il1+3)=itr + + + if(mn1.eq.1) then +c . cst.*a + sr = stk(l1) + si=0.0d+0 + if(it1.eq.1) si = stk(l1+1) + if (m1.lt.0) then + if(mn2.eq.1) then +c . eye.*cst + istk(il1+1)=m1 + istk(il1+2)=n1 + istk(il1+3)=itr + else + call error(14) + return + endif + else + istk(il1+1)=m2 + istk(il1+2)=n2 + istk(il1+3)=itr + endif + call unsfdcopy(mn2*(it2+1),stk(l2),1,stk(l1),1) + it21=it2+2*it1 + if(it21.eq.0) then +c . vector and cst are real + call dscal(mn2,sr,stk(l1),1) + elseif(it21.eq.1) then +c . complex vector, real cst + call dscal(mn2,sr,stk(l1),1) + call dscal(mn2,sr,stk(l1+mn2),1) + elseif(it21.eq.2) then +c . real vector, complex cst + lstk(top+1)=l1+mn2*(itr+1) + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call unsfdcopy(mn2,stk(l1),1,stk(l1+mn2),1) + call dscal(mn2,sr,stk(l1),1) + call dscal(mn2,si,stk(l1+mn2),1) + elseif(it21.eq.3) then +c . lvector and cst are complex + call wscal(mn2,sr,si,stk(l1),stk(l1+mn2),1) + endif + lstk(top+1)=l1+mn2*(itr+1) + elseif (mn2 .eq. 1) then +c . a.*cst + if(m2.lt.0) then + call error(14) + return + endif + it21=it2+2*it1 + if(it21.eq.0) then +c . vector and cst are real + call dscal(mn1,stk(l2),stk(l1),1) + elseif(it21.eq.1) then +c . real vector, complex cst + sr = stk(l2) + si = stk(l2+1) + lstk(top+1)=l1+mn1*(itr+1) + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + call unsfdcopy(mn1,stk(l1),1,stk(l1+mn1),1) + call dscal(mn1,si,stk(l1+mn1),1) + call dscal(mn1,sr,stk(l1),1) + istk(il1+3)=itr + elseif(it21.eq.2) then +c . complex vector, real cst + sr = stk(l2) + call dscal(mn1,sr,stk(l1),1) + call dscal(mn1,sr,stk(l1+mn1),1) + elseif(it21.eq.3) then + sr = stk(l2) + si = stk(l2+1) +c . vector and cst are complex + call wscal(mn1,sr,si,stk(l1),stk(l1+mn1),1) + endif + else +c . vector.*vector + if(it1*it2.ne.1) then + if(it1.eq.1) call dvmul(mn1,stk(l2),i2,stk(l1 + $ +mn1),i1) + if(it2.eq.1) call dvmul(mn1,stk(l1),i1,stk(l2 + $ +mn2),i2) + call dvmul(mn1,stk(l2),i2,stk(l1),i1) + if(it2.eq.1) call unsfdcopy(mn1,stk(l2+mn2),i2 + $ ,stk(l1+mn1),i1) + else + call wvmul(mn1,stk(l2),stk(l2+mn2),i2,stk(l1) + $ ,stk(l1+mn1),i1) + endif + endif + return + end +c ================================================ diff --git a/modules/double/sci_gateway/fortran/vecmul.lo b/modules/double/sci_gateway/fortran/vecmul.lo new file mode 100755 index 000000000..bf9832ba3 --- /dev/null +++ b/modules/double/sci_gateway/fortran/vecmul.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/vecmul.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/vecmul.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/sci_gateway/fortran/vecrdiv.f b/modules/double/sci_gateway/fortran/vecrdiv.f new file mode 100755 index 000000000..2278dc7c6 --- /dev/null +++ b/modules/double/sci_gateway/fortran/vecrdiv.f @@ -0,0 +1,167 @@ + +c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +c Copyright (C) INRIA +c +c This file must be used under the terms of the CeCILL. +c This source file is licensed as described in the file COPYING, which +c you should have received as part of this distribution. The terms +c are also available at +c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + + subroutine vecrdiv + + include 'stack.h' +c + double precision sr,si + integer iadr,sadr +c + iadr(l)=l+l-1 + sadr(l)=(l/2)+1 +c + il2=iadr(lstk(top)) + if(istk(il2).lt.0) il2=iadr(istk(il2+1)) + m2=istk(il2+1) + n2=istk(il2+2) + it2=istk(il2+3) + l2=sadr(il2+4) + mn2=m2*n2 + top=top-1 +c + il1=iadr(lstk(top)) + if(istk(il1).lt.0) il1=iadr(istk(il1+1)) + m1=istk(il1+1) + n1=istk(il1+2) + it1=istk(il1+3) + l1=sadr(il1+4) + mn1=m1*n1 +c + itr=max(it1,it2) + + i1=1 + i2=1 + if(mn1.eq.0.or.mn2.eq.0) then +c [].*a a.*[] -->[] + istk(il1)=1 + istk(il1+1)=0 + istk(il1+2)=0 + istk(il1+3)=0 + lstk(top+1)=sadr(il1+4) + return + endif + if(n1.lt.0.and.mn2.ne.1.or.n2.lt.0.and.mn1.ne.1) then + call error(14) + return + endif + if(mn1.ne.1.and.mn2.ne.1) then +c check dimensions + if (m1.ne.m2 .or. n1.ne.n2) then + buf='Inconsistent element-wise operation' + call error(9999) + return + endif + endif +c + lstk(top+1)=l1+max(mn1,mn2)*(itr+1) + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + istk(il1+3)=itr + + it21=it2+2*it1 + if(mn2.eq.1) then +c . vector ./ cst + if(m2.lt.0.and.mn1.ne.1) then + call error(14) + return + endif + istk(il1+1)=m1 + istk(il1+2)=n1 + istk(il1+3)=itr + lstk(top+1)=l1+mn1*(itr+1) +c + err=lstk(top+1)-lstk(bot) + if(err.gt.0) then + call error(17) + return + endif + it21=it2+2*it1 + if(it21.eq.0) then +c . real / real + call ddrdiv(stk(l1),1,stk(l2),0,stk(l1),1,mn1,ierr) + elseif(it21.eq.1) then +c . real / complex + sr=stk(l2) + si=stk(l2+1) + call dwrdiv(stk(l1),1,sr,si,0,stk(l1),stk(l1+mn1),1, + $ mn1,ierr) + elseif(it21.eq.2) then +c . complex / real + call wdrdiv(stk(l1),stk(l1+mn1),1,stk(l2),0,stk(l1) + $ ,stk(l1+mn1),1,mn1,ierr) + elseif(it21.eq.3) then +c . complex / complex + call wwrdiv(stk(l1),stk(l1+mn1),1,stk(l2),stk(l2+1) + $ ,0,stk(l1),stk(l1+mn1),1,mn1,ierr) + endif + elseif(mn1.eq.1) then +c . cst ./ vector + istk(il1+1)=m2 + istk(il1+2)=n2 + sr=stk(l1) + if(it21.eq.0) then +c . real ./ real + call ddrdiv(sr,0,stk(l2),1,stk(l1),1,mn2,ierr) + elseif(it21.eq.1) then +c . real ./ complex + call unsfdcopy(2*mn2,stk(l2),1, stk(l1),1) + call dwrdiv(sr,0,stk(l1),stk(l1+mn2),1,stk(l1) + $ ,stk(l1+mn2),1,mn2,ierr) + elseif(it21.eq.2) then +c . complex ./ real + si=stk(l1+mn1) + call unsfdcopy(mn2,stk(l2),1, stk(l1),1) + call wdrdiv(sr,si,0,stk(l1),1,stk(l1),stk(l1+mn2) + $ ,1,mn2,ierr) + elseif(it21.eq.3) then +c . complex ./ complex + si=stk(l1+mn1) + call unsfdcopy(2*mn2,stk(l2),1, stk(l1),1) + call wwrdiv(sr,si,0,stk(l1),stk(l1+mn2),1,stk(l1) + $ ,stk(l1+mn2),1,mn2,ierr) + endif + else +c . vector ./ vector + if(it21.eq.0) then +c . real ./ real + call ddrdiv(stk(l1),1,stk(l2),1,stk(l1),1,mn2 + $ ,ierr) + elseif(it21.eq.1) then +c . real ./ complex + call dwrdiv(stk(l1),1,stk(l2),stk(l2+mn1),1 + $ ,stk(l1),stk(l2),1,mn2,ierr) + call unsfdcopy(mn2,stk(l2),1,stk(l1+mn2),1) + elseif(it21.eq.2) then +c . complex ./ real + call wdrdiv(stk(l1),stk(l1+mn1),1,stk(l2),1 + $ ,stk(l1),stk(l1+mn2),1,mn2,ierr) + elseif(it21.eq.3) then +c . complex ./ complex + call wwrdiv(stk(l1),stk(l1+mn1),1,stk(l2) + $ ,stk(l2+mn2),1,stk(l1),stk(l1+mn2),1,mn2,ierr) + endif + endif + if(ierr.ne.0) then + if(ieee.eq.0) then + call error(27) + return + elseif(ieee.eq.1) then + call msgs(63) + endif + endif + + return + end +c ================================================ + diff --git a/modules/double/sci_gateway/fortran/vecrdiv.lo b/modules/double/sci_gateway/fortran/vecrdiv.lo new file mode 100755 index 000000000..7edabfcc3 --- /dev/null +++ b/modules/double/sci_gateway/fortran/vecrdiv.lo @@ -0,0 +1,12 @@ +# sci_gateway/fortran/vecrdiv.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/vecrdiv.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/double/src/c/DllmainDouble.c b/modules/double/src/c/DllmainDouble.c new file mode 100755 index 000000000..271042a6f --- /dev/null +++ b/modules/double/src/c/DllmainDouble.c @@ -0,0 +1,33 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +#include <windows.h> +/*--------------------------------------------------------------------------*/ +#pragma comment(lib,"../../../../bin/libintl.lib") +/*--------------------------------------------------------------------------*/ +int WINAPI DllMain (HINSTANCE hInstance , DWORD reason, PVOID pvReserved) +{ + switch (reason) + { + case DLL_PROCESS_ATTACH: + break; + case DLL_PROCESS_DETACH: + break; + case DLL_THREAD_ATTACH: + break; + case DLL_THREAD_DETACH: + break; + } + return 1; +} +/*--------------------------------------------------------------------------*/ + diff --git a/modules/double/src/c/core_Import.def b/modules/double/src/c/core_Import.def new file mode 100755 index 000000000..6b0be8ee2 --- /dev/null +++ b/modules/double/src/c/core_Import.def @@ -0,0 +1,10 @@ + LIBRARY core.dll + + +EXPORTS +; +;core +; +callFunctionFromGateway +com_ +iop_ diff --git a/modules/double/src/c/double.rc b/modules/double/src/c/double.rc new file mode 100755 index 000000000..4f231de67 --- /dev/null +++ b/modules/double/src/c/double.rc @@ -0,0 +1,96 @@ +// Microsoft Visual C++ generated resource script. +// + + +#define APSTUDIO_READONLY_SYMBOLS +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 2 resource. +// +//#include "afxres.h" +#define APSTUDIO_HIDDEN_SYMBOLS +#include "windows.h" +///////////////////////////////////////////////////////////////////////////// +#undef APSTUDIO_READONLY_SYMBOLS + +///////////////////////////////////////////////////////////////////////////// +// French (France) resources + +#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_FRA) +#ifdef _WIN32 +LANGUAGE LANG_FRENCH, SUBLANG_FRENCH +#pragma code_page(1252) +#endif //_WIN32 + +#ifdef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// TEXTINCLUDE +// + +1 TEXTINCLUDE +BEGIN + "resource.h\0" +END + +3 TEXTINCLUDE +BEGIN + "\r\n" + "\0" +END + +#endif // APSTUDIO_INVOKED + + +///////////////////////////////////////////////////////////////////////////// +// +// Version +// + +VS_VERSION_INFO VERSIONINFO + FILEVERSION 5,5,2,0 + PRODUCTVERSION 5,5,2,0 + FILEFLAGSMASK 0x17L +#ifdef _DEBUG + FILEFLAGS 0x1L +#else + FILEFLAGS 0x0L +#endif + FILEOS 0x4L + FILETYPE 0x2L + FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "040c04b0" + BEGIN + VALUE "FileDescription", "double module" + VALUE "FileVersion", "5, 5, 2, 0" + VALUE "InternalName", "double module" + VALUE "LegalCopyright", "Copyright (C) 2017" + VALUE "OriginalFilename", "double.dll" + VALUE "ProductName", "double module" + VALUE "ProductVersion", "5, 5, 2, 0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x40c, 1200 + END +END + +#endif // French (France) resources +///////////////////////////////////////////////////////////////////////////// + + + +#ifndef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 3 resource. +// + + +///////////////////////////////////////////////////////////////////////////// +#endif // not APSTUDIO_INVOKED + diff --git a/modules/double/src/c/double.vcxproj b/modules/double/src/c/double.vcxproj new file mode 100755 index 000000000..235118bc7 --- /dev/null +++ b/modules/double/src/c/double.vcxproj @@ -0,0 +1,290 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <ItemGroup Label="ProjectConfigurations"> + <ProjectConfiguration Include="Debug|Win32"> + <Configuration>Debug</Configuration> + <Platform>Win32</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Debug|x64"> + <Configuration>Debug</Configuration> + <Platform>x64</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Release|Win32"> + <Configuration>Release</Configuration> + <Platform>Win32</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Release|x64"> + <Configuration>Release</Configuration> + <Platform>x64</Platform> + </ProjectConfiguration> + </ItemGroup> + <PropertyGroup Label="Globals"> + <ProjectGuid>{E61FEBA7-C98E-4C42-96CA-FC03F0DB26B2}</ProjectGuid> + <RootNamespace>double</RootNamespace> + <Keyword>Win32Proj</Keyword> + </PropertyGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" /> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <WholeProgramOptimization>false</WholeProgramOptimization> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <WholeProgramOptimization>false</WholeProgramOptimization> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" /> + <ImportGroup Label="ExtensionSettings"> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <PropertyGroup Label="UserMacros" /> + <PropertyGroup> + <_ProjectFileVersion>10.0.30319.1</_ProjectFileVersion> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</LinkIncremental> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">false</LinkIncremental> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Release|x64'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Release|x64'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|x64'">false</LinkIncremental> + </PropertyGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'"> + <ClCompile> + <Optimization>Disabled</Optimization> + <AdditionalIncludeDirectories>.;../../includes;../../../localization/includes;../../../api_scilab/includes;../../../core/includes;../../../output_stream/includes;../../../fileio/includes;../../../windows_tools/includes;../../../../libs/intl;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>_CRT_SECURE_NO_DEPRECATE;FORDLL;_DEBUG;_WINDOWS;_USRDLL;DOUBLE_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName)_Export.def >nul +del *.def >nul +cd .. + + +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>core.lib;double_f.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>double_Export.def</ModuleDefinitionFile> + <GenerateDebugInformation>true</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX86</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + <PreBuildEvent> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)double_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)double_f.lib" 1>NUL 2>NUL +</Command> + </PreBuildEvent> + <PreBuildEvent> + <Message>Make dependencies</Message> + </PreBuildEvent> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'"> + <Midl> + <TargetEnvironment>X64</TargetEnvironment> + </Midl> + <ClCompile> + <Optimization>Disabled</Optimization> + <AdditionalIncludeDirectories>.;../../includes;../../../localization/includes;../../../api_scilab/includes;../../../core/includes;../../../output_stream/includes;../../../fileio/includes;../../../windows_tools/includes;../../../../libs/intl;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>_CRT_SECURE_NO_DEPRECATE;FORDLL;_DEBUG;_WINDOWS;_USRDLL;DOUBLE_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName)_Export.def >nul +del *.def >nul +cd .. + + +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>core.lib;double_f.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>double_Export.def</ModuleDefinitionFile> + <GenerateDebugInformation>true</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX64</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + <PreBuildEvent> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)double_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)double_f.lib" 1>NUL 2>NUL +</Command> + </PreBuildEvent> + <PreBuildEvent> + <Message>Make dependencies</Message> + </PreBuildEvent> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> + <ClCompile> + <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed> + <WholeProgramOptimization>false</WholeProgramOptimization> + <AdditionalIncludeDirectories>.;../../includes;../../../localization/includes;../../../api_scilab/includes;../../../core/includes;../../../output_stream/includes;../../../fileio/includes;../../../windows_tools/includes;../../../../libs/intl;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>_CRT_SECURE_NO_DEPRECATE;FORDLL;NDEBUG;_WINDOWS;_USRDLL;DOUBLE_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <StringPooling>true</StringPooling> + <RuntimeLibrary>MultiThreaded</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + <MultiProcessorCompilation>true</MultiProcessorCompilation> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName)_Export.def >nul +del *.def >nul +cd .. + + +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>core.lib;double_f.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>double_Export.def</ModuleDefinitionFile> + <GenerateDebugInformation>false</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <OptimizeReferences>true</OptimizeReferences> + <EnableCOMDATFolding>true</EnableCOMDATFolding> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX86</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + <PreBuildEvent> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)double_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)double_f.lib" 1>NUL 2>NUL +</Command> + </PreBuildEvent> + <PreBuildEvent> + <Message>Make dependencies</Message> + </PreBuildEvent> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'"> + <Midl> + <TargetEnvironment>X64</TargetEnvironment> + </Midl> + <ClCompile> + <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed> + <WholeProgramOptimization>false</WholeProgramOptimization> + <AdditionalIncludeDirectories>.;../../includes;../../../localization/includes;../../../api_scilab/includes;../../../core/includes;../../../output_stream/includes;../../../fileio/includes;../../../windows_tools/includes;../../../../libs/intl;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>_CRT_SECURE_NO_DEPRECATE;FORDLL;NDEBUG;_WINDOWS;_USRDLL;DOUBLE_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <StringPooling>true</StringPooling> + <RuntimeLibrary>MultiThreaded</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + <MultiProcessorCompilation>true</MultiProcessorCompilation> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName)_Export.def >nul +del *.def >nul +cd .. + + +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>core.lib;double_f.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>double_Export.def</ModuleDefinitionFile> + <GenerateDebugInformation>false</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <OptimizeReferences>true</OptimizeReferences> + <EnableCOMDATFolding>true</EnableCOMDATFolding> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX64</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + <PreBuildEvent> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)double_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)double_f.lib" 1>NUL 2>NUL +</Command> + </PreBuildEvent> + <PreBuildEvent> + <Message>Make dependencies</Message> + </PreBuildEvent> + </ItemDefinitionGroup> + <ItemGroup> + <ClCompile Include="DllmainDouble.c" /> + <ClCompile Include="..\..\sci_gateway\c\gw_double.c" /> + </ItemGroup> + <ItemGroup> + <None Include="double_f_Import.def" /> + <None Include="core_import.def" /> + <None Include="..\..\double.iss" /> + <None Include="..\..\Makefile.am" /> + </ItemGroup> + <ItemGroup> + <ResourceCompile Include="double.rc" /> + </ItemGroup> + <ItemGroup> + <ProjectReference Include="..\..\..\..\tools\Dumpexts\Dumpexts.vcxproj"> + <Project>{3170e4c2-1173-4264-a222-7ee8ccb3ddf7}</Project> + <ReferenceOutputAssembly>false</ReferenceOutputAssembly> + </ProjectReference> + <ProjectReference Include="..\..\..\boolean\src\c\boolean.vcxproj"> + <Project>{8ab8ecec-8c22-475e-80d0-e14696f5a19b}</Project> + <ReferenceOutputAssembly>false</ReferenceOutputAssembly> + </ProjectReference> + </ItemGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" /> + <ImportGroup Label="ExtensionTargets"> + </ImportGroup> +</Project>
\ No newline at end of file diff --git a/modules/double/src/c/double.vcxproj.filters b/modules/double/src/c/double.vcxproj.filters new file mode 100755 index 000000000..4d0eace19 --- /dev/null +++ b/modules/double/src/c/double.vcxproj.filters @@ -0,0 +1,48 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <ItemGroup> + <Filter Include="Source Files"> + <UniqueIdentifier>{316cf092-c9f0-4f99-aa64-5af157e8a83a}</UniqueIdentifier> + <Extensions>cpp;c;cxx;rc;def;r;odl;idl;hpj;bat</Extensions> + </Filter> + <Filter Include="Header Files"> + <UniqueIdentifier>{fad3c022-86be-4857-bc9f-2e4fe5fd2edd}</UniqueIdentifier> + <Extensions>h;hpp;hxx;hm;inl</Extensions> + </Filter> + <Filter Include="localization"> + <UniqueIdentifier>{45724d66-e3b1-47ea-b55e-0fa57a0ea7ad}</UniqueIdentifier> + </Filter> + <Filter Include="Libraries Dependencies"> + <UniqueIdentifier>{904af939-3d69-42ed-b307-5e579251f2ab}</UniqueIdentifier> + </Filter> + <Filter Include="Libraries Dependencies\Imports"> + <UniqueIdentifier>{7998bc74-53d6-4722-9039-a752fdd160f4}</UniqueIdentifier> + </Filter> + <Filter Include="Resource Files"> + <UniqueIdentifier>{69c4e4c0-be86-4904-a307-5fe29873d391}</UniqueIdentifier> + </Filter> + </ItemGroup> + <ItemGroup> + <ClCompile Include="DllmainDouble.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\gw_double.c"> + <Filter>Source Files</Filter> + </ClCompile> + </ItemGroup> + <ItemGroup> + <None Include="double_f_Import.def"> + <Filter>Libraries Dependencies\Imports</Filter> + </None> + <None Include="core_import.def"> + <Filter>Libraries Dependencies\Imports</Filter> + </None> + <None Include="..\..\double.iss" /> + <None Include="..\..\Makefile.am" /> + </ItemGroup> + <ItemGroup> + <ResourceCompile Include="double.rc"> + <Filter>Resource Files</Filter> + </ResourceCompile> + </ItemGroup> +</Project>
\ No newline at end of file diff --git a/modules/double/src/c/double_f_Import.def b/modules/double/src/c/double_f_Import.def new file mode 100755 index 000000000..9b88c226d --- /dev/null +++ b/modules/double/src/c/double_f_Import.def @@ -0,0 +1,28 @@ + LIBRARY double_f.dll + + +EXPORTS +; +;double_f +; +mattrc_ +matcmp_ +matldiv_ +matrdiv_ +matmult_ +matsubt_ +matchsgn_ +matadd_ +vecimpl_ +matcc_ +matext2_ +matext1_ +matins2_ +matins1_ +matrc_ +vecldiv_ +vecrdiv_ +vecmul_ +matxpow_ +mattr_ +matpow_ diff --git a/modules/double/src/fortran/Core_f_Import.def b/modules/double/src/fortran/Core_f_Import.def new file mode 100755 index 000000000..c070dd4ed --- /dev/null +++ b/modules/double/src/fortran/Core_f_Import.def @@ -0,0 +1,12 @@ + LIBRARY core_f.dll + + +EXPORTS +; +;core_f +; +indxg_ +indxgc_ +cvname_ +isany_ +setref_ diff --git a/modules/double/src/fortran/Elementary_functions_Import.def b/modules/double/src/fortran/Elementary_functions_Import.def new file mode 100755 index 000000000..f6acb2650 --- /dev/null +++ b/modules/double/src/fortran/Elementary_functions_Import.def @@ -0,0 +1,9 @@ + LIBRARY elementary_functions.dll + + +EXPORTS +; +;elementary_functions +; +unsfdcopy_ +idcmp_
\ No newline at end of file diff --git a/modules/double/src/fortran/Elementary_functions_f_Import.def b/modules/double/src/fortran/Elementary_functions_f_Import.def new file mode 100755 index 000000000..e339f5613 --- /dev/null +++ b/modules/double/src/fortran/Elementary_functions_f_Import.def @@ -0,0 +1,25 @@ + LIBRARY elementary_functions_f.dll + + +EXPORTS +; +;elementary_functions_f +; +dadd_ +ddif_ +ddpow1_ +ddrdiv_ +dipowe_ +dmcopy_ +dset_ +dvmul_ +dwpow1_ +dwrdiv_ +mtran_ +wdpow1_ +wdrdiv_ +wmmul_ +wscal_ +wvmul_ +wwpow1_ +wwrdiv_ diff --git a/modules/double/src/fortran/Linear_algebra_Import.def b/modules/double/src/fortran/Linear_algebra_Import.def new file mode 100755 index 000000000..08d944a74 --- /dev/null +++ b/modules/double/src/fortran/Linear_algebra_Import.def @@ -0,0 +1,10 @@ + LIBRARY linear_algebra.dll + + +EXPORTS +; +;linear_algebra +; +intinv_ +intbackslash_ +intslash_
\ No newline at end of file diff --git a/modules/double/src/fortran/Linpack_f_Import.def b/modules/double/src/fortran/Linpack_f_Import.def new file mode 100755 index 000000000..283c35902 --- /dev/null +++ b/modules/double/src/fortran/Linpack_f_Import.def @@ -0,0 +1,8 @@ + LIBRARY linpack_f.dll + + +EXPORTS +; +;linpack_f +; +icopy_
\ No newline at end of file diff --git a/modules/double/src/fortran/Output_stream_Import.def b/modules/double/src/fortran/Output_stream_Import.def new file mode 100755 index 000000000..7201fd6d7 --- /dev/null +++ b/modules/double/src/fortran/Output_stream_Import.def @@ -0,0 +1,9 @@ + LIBRARY output_stream.dll + + +EXPORTS +; +;output_stream +; +error_ +msgs_
\ No newline at end of file diff --git a/modules/double/src/fortran/Polynomials_f_Import.def b/modules/double/src/fortran/Polynomials_f_Import.def new file mode 100755 index 000000000..783ae0a2a --- /dev/null +++ b/modules/double/src/fortran/Polynomials_f_Import.def @@ -0,0 +1,8 @@ + LIBRARY polynomials_f.dll + + +EXPORTS +; +;polynomials_f +; +polops_
\ No newline at end of file diff --git a/modules/double/src/fortran/core_Import.def b/modules/double/src/fortran/core_Import.def new file mode 100755 index 000000000..1df861583 --- /dev/null +++ b/modules/double/src/fortran/core_Import.def @@ -0,0 +1,20 @@ + LIBRARY core.dll + + +EXPORTS +; +;core +; +adre_ +intersci_ +iop_ +recu_ +stack_ +vstk_ +com_ +cha1_ +mtlbc_ +errgst_ +cremat_ +isanan_ +putlhsvar_ diff --git a/modules/double/src/fortran/double_Import.def b/modules/double/src/fortran/double_Import.def new file mode 100755 index 000000000..70c59dfc6 --- /dev/null +++ b/modules/double/src/fortran/double_Import.def @@ -0,0 +1,4 @@ +LIBRARY double.dll + + +EXPORTS diff --git a/modules/double/src/fortran/double_f.rc b/modules/double/src/fortran/double_f.rc new file mode 100755 index 000000000..491a53ddb --- /dev/null +++ b/modules/double/src/fortran/double_f.rc @@ -0,0 +1,96 @@ +// Microsoft Visual C++ generated resource script. +// + + +#define APSTUDIO_READONLY_SYMBOLS +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 2 resource. +// +//#include "afxres.h" +#define APSTUDIO_HIDDEN_SYMBOLS +#include "windows.h" +///////////////////////////////////////////////////////////////////////////// +#undef APSTUDIO_READONLY_SYMBOLS + +///////////////////////////////////////////////////////////////////////////// +// French (France) resources + +#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_FRA) +#ifdef _WIN32 +LANGUAGE LANG_FRENCH, SUBLANG_FRENCH +#pragma code_page(1252) +#endif //_WIN32 + +#ifdef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// TEXTINCLUDE +// + +1 TEXTINCLUDE +BEGIN + "resource.h\0" +END + +3 TEXTINCLUDE +BEGIN + "\r\n" + "\0" +END + +#endif // APSTUDIO_INVOKED + + +///////////////////////////////////////////////////////////////////////////// +// +// Version +// + +VS_VERSION_INFO VERSIONINFO + FILEVERSION 5,5,2,0 + PRODUCTVERSION 5,5,2,0 + FILEFLAGSMASK 0x17L +#ifdef _DEBUG + FILEFLAGS 0x1L +#else + FILEFLAGS 0x0L +#endif + FILEOS 0x4L + FILETYPE 0x2L + FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "040c04b0" + BEGIN + VALUE "FileDescription", "double_f module" + VALUE "FileVersion", "5, 5, 2, 0" + VALUE "InternalName", "double_f module" + VALUE "LegalCopyright", "Copyright (C) 2017" + VALUE "OriginalFilename", "double_f.dll" + VALUE "ProductName", "double_f module" + VALUE "ProductVersion", "5, 5, 2, 0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x40c, 1200 + END +END + +#endif // French (France) resources +///////////////////////////////////////////////////////////////////////////// + + + +#ifndef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 3 resource. +// + + +///////////////////////////////////////////////////////////////////////////// +#endif // not APSTUDIO_INVOKED + diff --git a/modules/double/src/fortran/double_f.vfproj b/modules/double/src/fortran/double_f.vfproj new file mode 100755 index 000000000..a41220dea --- /dev/null +++ b/modules/double/src/fortran/double_f.vfproj @@ -0,0 +1,139 @@ +<?xml version="1.0" encoding="UTF-8"?> +<VisualStudioProject ProjectType="typeDynamicLibrary" ProjectCreator="Intel Fortran" Keyword="Dll" Version="11.0" ProjectIdGuid="{97B3664E-1186-400A-AEC0-AC3F23087689}"> + <Platforms> + <Platform Name="Win32"/> + <Platform Name="x64"/></Platforms> + <Configurations> + <Configuration Name="Debug|Win32" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> + <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDebugDLL"/> + <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="double_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="..\..\..\..\bin\double_f.lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib elementary_functions.lib linear_algebra.lib output_stream.lib polynomials_f.lib linpack_f.lib elementary_functions_f.lib core_f.lib"/> + <Tool Name="VFResourceCompilerTool"/> + <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> + <Tool Name="VFCustomBuildTool"/> + <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .." Description="Build $(ProjectName).def"/> + <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:"$(InputDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)elementary_functions.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)linear_algebra_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)linear_algebra.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)polynomials_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)polynomials_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)linpack_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)linpack_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)elementary_functions_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)core_f.lib" 1>NUL 2>NUL" Description="Build Dependencies"/> + <Tool Name="VFPostBuildEventTool"/> + <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration> + <Configuration Name="Release|Win32" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> + <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/> + <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="double_f.def" SubSystem="subSystemWindows" ImportLibrary="..\..\..\..\bin\double_f.lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib elementary_functions.lib linear_algebra.lib output_stream.lib polynomials_f.lib linpack_f.lib elementary_functions_f.lib core_f.lib"/> + <Tool Name="VFResourceCompilerTool"/> + <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> + <Tool Name="VFCustomBuildTool"/> + <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .." Description="Build $(ProjectName).def"/> + <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:"$(InputDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)elementary_functions.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)linear_algebra_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)linear_algebra.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)polynomials_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)polynomials_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)linpack_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)linpack_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)elementary_functions_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)core_f.lib" 1>NUL 2>NUL" Description="Build Dependencies"/> + <Tool Name="VFPostBuildEventTool"/> + <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration> + <Configuration Name="Debug|x64" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> + <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDebugDLL"/> + <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="double_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="..\..\..\..\bin\double_f.lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib elementary_functions.lib linear_algebra.lib output_stream.lib polynomials_f.lib linpack_f.lib elementary_functions_f.lib core_f.lib"/> + <Tool Name="VFResourceCompilerTool"/> + <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> + <Tool Name="VFCustomBuildTool"/> + <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .." Description="Build $(ProjectName).def"/> + <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:"$(InputDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)elementary_functions.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)linear_algebra_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)linear_algebra.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)polynomials_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)polynomials_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)linpack_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)linpack_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)elementary_functions_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)core_f.lib" 1>NUL 2>NUL" Description="Build Dependencies"/> + <Tool Name="VFPostBuildEventTool"/> + <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration> + <Configuration Name="Release|x64" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> + <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/> + <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="double_f.def" SubSystem="subSystemWindows" ImportLibrary="..\..\..\..\bin\double_f.lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib elementary_functions.lib linear_algebra.lib output_stream.lib polynomials_f.lib linpack_f.lib elementary_functions_f.lib core_f.lib"/> + <Tool Name="VFResourceCompilerTool"/> + <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> + <Tool Name="VFCustomBuildTool"/> + <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .." Description="Build $(ProjectName).def"/> + <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:"$(InputDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)elementary_functions.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)linear_algebra_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)linear_algebra.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)polynomials_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)polynomials_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)linpack_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)linpack_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)elementary_functions_f.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)core_f.lib" 1>NUL 2>NUL" Description="Build Dependencies"/> + <Tool Name="VFPostBuildEventTool"/> + <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration></Configurations> + <Files> + <Filter Name="Header Files" Filter="fi;fd"/> + <Filter Name="Library Dependencies"> + <File RelativePath=".\Core_f_Import.def"/> + <File RelativePath=".\core_import.def"/> + <File RelativePath=".\Elementary_functions_f_Import.def"/> + <File RelativePath=".\Elementary_functions_Import.def"/> + <File RelativePath=".\Linear_algebra_Import.def"/> + <File RelativePath=".\Linpack_f_Import.def"/> + <File RelativePath=".\Output_stream_Import.def"/> + <File RelativePath=".\Polynomials_f_Import.def"/></Filter> + <Filter Name="Resource Files" Filter="rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"> + <File RelativePath=".\double_f.rc"/></Filter> + <Filter Name="Source Files" Filter="f90;for;f;fpp;ftn;def;odl;idl"> + <File RelativePath="..\..\sci_gateway\fortran\matadd.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matcc.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matchsgn.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matcmp.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matext1.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matext2.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matins1.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matins2.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matldiv.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matmult.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matpow.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matrc.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matrdiv.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matsubt.f"/> + <File RelativePath="..\..\sci_gateway\fortran\mattr.f"/> + <File RelativePath="..\..\sci_gateway\fortran\mattrc.f"/> + <File RelativePath="..\..\sci_gateway\fortran\matxpow.f"/> + <File RelativePath="..\..\sci_gateway\fortran\vecimpl.f"/> + <File RelativePath="..\..\sci_gateway\fortran\vecldiv.f"/> + <File RelativePath="..\..\sci_gateway\fortran\vecmul.f"/> + <File RelativePath="..\..\sci_gateway\fortran\vecrdiv.f"/></Filter> + <File RelativePath="..\..\Makefile.am"/></Files> + <Globals/></VisualStudioProject> diff --git a/modules/double/src/fortran/double_f2c.vcxproj b/modules/double/src/fortran/double_f2c.vcxproj new file mode 100755 index 000000000..74470b886 --- /dev/null +++ b/modules/double/src/fortran/double_f2c.vcxproj @@ -0,0 +1,343 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <ItemGroup Label="ProjectConfigurations"> + <ProjectConfiguration Include="Debug|Win32"> + <Configuration>Debug</Configuration> + <Platform>Win32</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Debug|x64"> + <Configuration>Debug</Configuration> + <Platform>x64</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Release|Win32"> + <Configuration>Release</Configuration> + <Platform>Win32</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Release|x64"> + <Configuration>Release</Configuration> + <Platform>x64</Platform> + </ProjectConfiguration> + </ItemGroup> + <PropertyGroup Label="Globals"> + <ProjectName>double_f</ProjectName> + <ProjectGuid>{97B3664E-1186-400A-AEC0-AC3F23087689}</ProjectGuid> + <RootNamespace>double_f2c</RootNamespace> + <Keyword>Win32Proj</Keyword> + </PropertyGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" /> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>Unicode</CharacterSet> + <WholeProgramOptimization>true</WholeProgramOptimization> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>Unicode</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>Unicode</CharacterSet> + <WholeProgramOptimization>true</WholeProgramOptimization> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>Unicode</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" /> + <ImportGroup Label="ExtensionSettings"> + <Import Project="..\..\..\..\Visual-Studio-settings\f2c.props" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <PropertyGroup Label="UserMacros" /> + <PropertyGroup> + <_ProjectFileVersion>10.0.30319.1</_ProjectFileVersion> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</LinkIncremental> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">true</LinkIncremental> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Release|x64'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Release|x64'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|x64'">false</LinkIncremental> + </PropertyGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'"> + <PreBuildEvent> + <Message>Build Dependencies</Message> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)double_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)double.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)linear_algebra_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)linear_algebra.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)linpack_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)linpack_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)polynomials_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)polynomials_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core_f.lib" 1>NUL 2>NUL +</Command> + </PreBuildEvent> + <ClCompile> + <Optimization>Disabled</Optimization> + <AdditionalIncludeDirectories>../../../../libs/f2c;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>WIN32;_DEBUG;_WINDOWS;_USRDLL;DOUBLE_F2C_EXPORTS;FORDLL;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .. +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>../../../../bin/blasplus.lib;../../../../bin/lapack.lib;core.lib;elementary_functions.lib;linear_algebra.lib;output_stream.lib;polynomials_f.lib;linpack_f.lib;elementary_functions_f.lib;core_f.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>double_f.def</ModuleDefinitionFile> + <GenerateDebugInformation>true</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX86</TargetMachine> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + <LinkTimeCodeGeneration>Default</LinkTimeCodeGeneration> + </Link> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'"> + <PreBuildEvent> + <Message>Build Dependencies</Message> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)double_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)double.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)linear_algebra_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)linear_algebra.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)linpack_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)linpack_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)polynomials_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)polynomials_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core_f.lib" 1>NUL 2>NUL +</Command> + </PreBuildEvent> + <Midl> + <TargetEnvironment>X64</TargetEnvironment> + </Midl> + <ClCompile> + <Optimization>Disabled</Optimization> + <AdditionalIncludeDirectories>../../../../libs/f2c;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>WIN32;_DEBUG;_WINDOWS;_USRDLL;DOUBLE_F2C_EXPORTS;FORDLL;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .. +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>../../../../bin/blasplus.lib;../../../../bin/lapack.lib;core.lib;elementary_functions.lib;linear_algebra.lib;output_stream.lib;polynomials_f.lib;linpack_f.lib;elementary_functions_f.lib;core_f.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>double_f.def</ModuleDefinitionFile> + <GenerateDebugInformation>true</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX64</TargetMachine> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + <LinkTimeCodeGeneration>Default</LinkTimeCodeGeneration> + </Link> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> + <PreBuildEvent> + <Message>Build Dependencies</Message> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)double_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)double.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)linear_algebra_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)linear_algebra.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)linpack_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)linpack_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)polynomials_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)polynomials_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core_f.lib" 1>NUL 2>NUL +</Command> + </PreBuildEvent> + <ClCompile> + <WholeProgramOptimization>false</WholeProgramOptimization> + <AdditionalIncludeDirectories>../../../../libs/f2c;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>WIN32;NDEBUG;_WINDOWS;_USRDLL;DOUBLE_F2C_EXPORTS;FORDLL;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + <MultiProcessorCompilation>true</MultiProcessorCompilation> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .. +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>../../../../bin/blasplus.lib;../../../../bin/lapack.lib;core.lib;elementary_functions.lib;linear_algebra.lib;output_stream.lib;polynomials_f.lib;linpack_f.lib;elementary_functions_f.lib;core_f.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>double_f.def</ModuleDefinitionFile> + <GenerateDebugInformation>true</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <OptimizeReferences>true</OptimizeReferences> + <EnableCOMDATFolding>true</EnableCOMDATFolding> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX86</TargetMachine> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + <LinkTimeCodeGeneration>Default</LinkTimeCodeGeneration> + </Link> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'"> + <PreBuildEvent> + <Message>Build Dependencies</Message> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)double_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)double.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)linear_algebra_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)linear_algebra.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)linpack_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)linpack_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)polynomials_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)polynomials_f.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core_f.lib" 1>NUL 2>NUL +</Command> + </PreBuildEvent> + <Midl> + <TargetEnvironment>X64</TargetEnvironment> + </Midl> + <ClCompile> + <WholeProgramOptimization>false</WholeProgramOptimization> + <AdditionalIncludeDirectories>../../../../libs/f2c;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>WIN32;NDEBUG;_WINDOWS;_USRDLL;DOUBLE_F2C_EXPORTS;FORDLL;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + <MultiProcessorCompilation>true</MultiProcessorCompilation> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .. +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>../../../../bin/blasplus.lib;../../../../bin/lapack.lib;core.lib;elementary_functions.lib;linear_algebra.lib;output_stream.lib;polynomials_f.lib;linpack_f.lib;elementary_functions_f.lib;core_f.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>double_f.def</ModuleDefinitionFile> + <GenerateDebugInformation>true</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <OptimizeReferences>true</OptimizeReferences> + <EnableCOMDATFolding>true</EnableCOMDATFolding> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX64</TargetMachine> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + <LinkTimeCodeGeneration>Default</LinkTimeCodeGeneration> + </Link> + </ItemDefinitionGroup> + <ItemGroup> + <ClCompile Include="..\..\sci_gateway\fortran\matadd.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matcc.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matchsgn.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matcmp.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matext1.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matext2.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matins1.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matins2.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matldiv.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matmult.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matpow.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matrc.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matrdiv.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matsubt.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\mattr.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\mattrc.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\matxpow.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\vecimpl.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\vecldiv.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\vecmul.c" /> + <ClCompile Include="..\..\sci_gateway\fortran\vecrdiv.c" /> + </ItemGroup> + <ItemGroup> + <f2c_rule Include="..\..\sci_gateway\fortran\matadd.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matcc.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matchsgn.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matcmp.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matext1.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matext2.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matins1.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matins2.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matldiv.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matmult.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matpow.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matrc.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matrdiv.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matsubt.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\mattr.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\mattrc.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\matxpow.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\vecimpl.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\vecldiv.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\vecmul.f" /> + <f2c_rule Include="..\..\sci_gateway\fortran\vecrdiv.f" /> + </ItemGroup> + <ItemGroup> + <None Include="..\..\sci_gateway\double_gateway.xml" /> + <None Include="..\..\Makefile.am" /> + <None Include="Core_f_Import.def" /> + <None Include="double_Import.def" /> + <None Include="Elementary_functions_f_Import.def" /> + <None Include="Elementary_functions_Import.def" /> + <None Include="core_import.def" /> + <None Include="Linear_algebra_Import.def" /> + <None Include="Linpack_f_Import.def" /> + <None Include="Output_stream_Import.def" /> + <None Include="Polynomials_f_Import.def" /> + </ItemGroup> + <ItemGroup> + <ProjectReference Include="..\..\..\..\tools\Dumpexts\Dumpexts.vcxproj"> + <Project>{3170e4c2-1173-4264-a222-7ee8ccb3ddf7}</Project> + <ReferenceOutputAssembly>false</ReferenceOutputAssembly> + </ProjectReference> + </ItemGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" /> + <ImportGroup Label="ExtensionTargets"> + <Import Project="..\..\..\..\Visual-Studio-settings\f2c.targets" /> + </ImportGroup> +</Project>
\ No newline at end of file diff --git a/modules/double/src/fortran/double_f2c.vcxproj.filters b/modules/double/src/fortran/double_f2c.vcxproj.filters new file mode 100755 index 000000000..eb8cdff7c --- /dev/null +++ b/modules/double/src/fortran/double_f2c.vcxproj.filters @@ -0,0 +1,184 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <ItemGroup> + <Filter Include="Source Files"> + <UniqueIdentifier>{4FC737F1-C7A5-4376-A066-2A32D752A2FF}</UniqueIdentifier> + <Extensions>cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx</Extensions> + </Filter> + <Filter Include="Header Files"> + <UniqueIdentifier>{93995380-89BD-4b04-88EB-625FBE52EBFB}</UniqueIdentifier> + <Extensions>h;hpp;hxx;hm;inl;inc;xsd</Extensions> + </Filter> + <Filter Include="Resource Files"> + <UniqueIdentifier>{67DA6AB6-F800-4c08-8B7A-83BB121AAD01}</UniqueIdentifier> + <Extensions>rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav</Extensions> + </Filter> + <Filter Include="Fortran files"> + <UniqueIdentifier>{4f017134-4f47-43ec-9c1a-a60a19efc4c2}</UniqueIdentifier> + </Filter> + <Filter Include="Libraries Dependencies"> + <UniqueIdentifier>{64a9d246-1353-4174-ab5b-058a68495a10}</UniqueIdentifier> + </Filter> + </ItemGroup> + <ItemGroup> + <ClCompile Include="..\..\sci_gateway\fortran\matadd.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matcc.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matchsgn.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matcmp.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matext1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matext2.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matins1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matins2.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matldiv.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matmult.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matpow.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matrc.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matrdiv.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matsubt.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\mattr.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\mattrc.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\matxpow.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\vecimpl.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\vecldiv.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\vecmul.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\fortran\vecrdiv.c"> + <Filter>Source Files</Filter> + </ClCompile> + </ItemGroup> + <ItemGroup> + <f2c_rule Include="..\..\sci_gateway\fortran\matadd.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matcc.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matchsgn.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matcmp.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matext1.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matext2.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matins1.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matins2.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matldiv.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matmult.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matpow.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matrc.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matrdiv.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matsubt.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\mattr.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\mattrc.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\matxpow.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\vecimpl.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\vecldiv.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\vecmul.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + <f2c_rule Include="..\..\sci_gateway\fortran\vecrdiv.f"> + <Filter>Fortran files</Filter> + </f2c_rule> + </ItemGroup> + <ItemGroup> + <None Include="..\..\sci_gateway\double_gateway.xml" /> + <None Include="..\..\Makefile.am" /> + <None Include="double_Import.def"> + <Filter>Libraries Dependencies</Filter> + </None> + <None Include="Elementary_functions_Import.def"> + <Filter>Libraries Dependencies</Filter> + </None> + <None Include="core_import.def"> + <Filter>Libraries Dependencies</Filter> + </None> + <None Include="Linear_algebra_Import.def"> + <Filter>Libraries Dependencies</Filter> + </None> + <None Include="Output_stream_Import.def"> + <Filter>Libraries Dependencies</Filter> + </None> + <None Include="Elementary_functions_f_Import.def"> + <Filter>Libraries Dependencies</Filter> + </None> + <None Include="Linpack_f_Import.def"> + <Filter>Libraries Dependencies</Filter> + </None> + <None Include="Polynomials_f_Import.def"> + <Filter>Libraries Dependencies</Filter> + </None> + <None Include="Core_f_Import.def"> + <Filter>Libraries Dependencies</Filter> + </None> + </ItemGroup> +</Project>
\ No newline at end of file diff --git a/modules/double/tests/nonreg_tests/bug_10001.dia.ref b/modules/double/tests/nonreg_tests/bug_10001.dia.ref new file mode 100755 index 000000000..78bf4c12d --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_10001.dia.ref @@ -0,0 +1,31 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - INRIA - Serge Steer +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 10001 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=10001 +// +// <-- Short Description --> +// %inf:%inf crashes Scilab +assert_checkequal(1:0:1,[]); +assert_checkequal(1:0:2,[]); +assert_checkequal(2:0:1,[]); +assert_checkequal(%inf:0:%inf,[]); +assert_checkequal(-%inf:0:%inf,[]); +assert_checkequal(1:0:%inf,[]); +assert_checkequal(%inf:0:1,[]); +assert_checkequal(%nan:1:3,%nan); +assert_checkequal(1:%nan:3,%nan); +assert_checkequal(1:%nan,%nan); +assert_checkequal(%inf:%inf,%nan); +assert_checkequal(-%inf:1:%inf,%nan); +assert_checkequal(%inf:1,[]); +assert_checkequal(1:-%inf,[]); +assert_checkequal(%inf:-1:1,%nan); diff --git a/modules/double/tests/nonreg_tests/bug_10001.tst b/modules/double/tests/nonreg_tests/bug_10001.tst new file mode 100755 index 000000000..2eb1c5319 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_10001.tst @@ -0,0 +1,35 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - INRIA - Serge Steer +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 10001 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=10001 +// +// <-- Short Description --> +// %inf:%inf crashes Scilab +assert_checkequal(1:0:1,[]); +assert_checkequal(1:0:2,[]); +assert_checkequal(2:0:1,[]); +assert_checkequal(%inf:0:%inf,[]); +assert_checkequal(-%inf:0:%inf,[]); +assert_checkequal(1:0:%inf,[]); +assert_checkequal(%inf:0:1,[]); + +assert_checkequal(%nan:1:3,%nan); +assert_checkequal(1:%nan:3,%nan); +assert_checkequal(1:%nan,%nan); + +assert_checkequal(%inf:%inf,%nan); +assert_checkequal(-%inf:1:%inf,%nan); + +assert_checkequal(%inf:1,[]); +assert_checkequal(1:-%inf,[]); +assert_checkequal(%inf:-1:1,%nan); + diff --git a/modules/double/tests/nonreg_tests/bug_12657.dia.ref b/modules/double/tests/nonreg_tests/bug_12657.dia.ref new file mode 100755 index 000000000..e32c9fbf1 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_12657.dia.ref @@ -0,0 +1,38 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 12657 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=12657 +// +// <-- Short Description --> +// Computation of v1.^v2 was not done in place, +// when v1 and v2 are real arrays, v1 >= 0 and v2 integer. +// <-- ENGLISH IMPOSED --> +// Run with test_run('double', 'bug_12657', ['no_check_error_output']) +// Checking that the results for said cases are still ok +assert_checkequal([0.5 2; 100000 4.5578].^2, [0.25 4; 1e10 20.7735408400000025608]); +assert_checkequal([2.5].^[2 5; 10 5], [6.25 97.65625; 9536.7431640625 97.65625]); +assert_checkequal([0.5 2; 100000 4.5578].^[2 5; 5 2], [0.25 32; 1e25 20.7735408400000025608]); +// Check that IEEE compatibility is still assured +assert_checkequal([%inf %nan; %inf %nan].^%inf, [%inf %nan; %inf %nan]); +assert_checkequal([%inf].^[%inf %nan; %nan %inf], [%inf %nan; %nan %inf]); +assert_checkequal([%inf %nan; %nan %inf].^[%inf %nan; %inf %nan], [%inf %nan; %nan %nan]); +// Now, checking that computation is done in place +stacksize(2.5e6); +v = rand(1, 1e6); +v.^2; +// Checking the 1e5 first values of the result +assert_checktrue(and(sqrt(ans(1:1e5)) == v(1:1e5))); +// Getting random integer values +v = floor(10*v); +[2].^v; +// Checking the 1e5 first values of the result +res = ans(1:1e5); +v = v(1:1e5); +assert_checktrue(and(nthroot(res(find(v<>0)), v(find(v<>0))) == 2)); +assert_checktrue(and(isnan(nthroot(res(find(v==0)), v(find(v==0)))))); diff --git a/modules/double/tests/nonreg_tests/bug_12657.tst b/modules/double/tests/nonreg_tests/bug_12657.tst new file mode 100755 index 000000000..d3a9c05b3 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_12657.tst @@ -0,0 +1,44 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 12657 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=12657 +// +// <-- Short Description --> +// Computation of v1.^v2 was not done in place, +// when v1 and v2 are real arrays, v1 >= 0 and v2 integer. + +// <-- ENGLISH IMPOSED --> + +// Run with test_run('double', 'bug_12657', ['no_check_error_output']) + +// Checking that the results for said cases are still ok +assert_checkequal([0.5 2; 100000 4.5578].^2, [0.25 4; 1e10 20.7735408400000025608]); +assert_checkequal([2.5].^[2 5; 10 5], [6.25 97.65625; 9536.7431640625 97.65625]); +assert_checkequal([0.5 2; 100000 4.5578].^[2 5; 5 2], [0.25 32; 1e25 20.7735408400000025608]); + +// Check that IEEE compatibility is still assured +assert_checkequal([%inf %nan; %inf %nan].^%inf, [%inf %nan; %inf %nan]); +assert_checkequal([%inf].^[%inf %nan; %nan %inf], [%inf %nan; %nan %inf]); +assert_checkequal([%inf %nan; %nan %inf].^[%inf %nan; %inf %nan], [%inf %nan; %nan %nan]); + +// Now, checking that computation is done in place +stacksize(2.5e6); +v = rand(1, 1e6); +v.^2; +// Checking the 1e5 first values of the result +assert_checktrue(and(sqrt(ans(1:1e5)) == v(1:1e5))); +// Getting random integer values +v = floor(10*v); +[2].^v; +// Checking the 1e5 first values of the result +res = ans(1:1e5); +v = v(1:1e5); +assert_checktrue(and(nthroot(res(find(v<>0)), v(find(v<>0))) == 2)); +assert_checktrue(and(isnan(nthroot(res(find(v==0)), v(find(v==0)))))); diff --git a/modules/double/tests/nonreg_tests/bug_1529.dia.ref b/modules/double/tests/nonreg_tests/bug_1529.dia.ref new file mode 100755 index 000000000..561e5e567 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_1529.dia.ref @@ -0,0 +1,16 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA - Vincent COUVERT +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 1529 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=1529 +// +// <-- Short Description --> +// The product 0.0 * %inf provides the incorrect value 0.0, +// but the product %inf * 0.0 provides the correct value %nan. +if ~isnan(0.0*%inf) then bugmes();quit;end +if ~isnan(%inf*0.0) then bugmes();quit;end diff --git a/modules/double/tests/nonreg_tests/bug_1529.tst b/modules/double/tests/nonreg_tests/bug_1529.tst new file mode 100755 index 000000000..1646d114a --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_1529.tst @@ -0,0 +1,21 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA - Vincent COUVERT +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- NOT FIXED --> +// +// <-- Non-regression test for bug 1529 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=1529 +// +// <-- Short Description --> +// The product 0.0 * %inf provides the incorrect value 0.0, +// but the product %inf * 0.0 provides the correct value %nan. + +if ~isnan(0.0*%inf) then pause,end + +if ~isnan(%inf*0.0) then pause,end diff --git a/modules/double/tests/nonreg_tests/bug_2429.dia.ref b/modules/double/tests/nonreg_tests/bug_2429.dia.ref new file mode 100755 index 000000000..2010653cc --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_2429.dia.ref @@ -0,0 +1,16 @@ +// <-- Non-regression test for bug 2429 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2429 +// +// <-- Short Description --> +// Implicit vector in for loop are allocated +// Copyright INRIA +// Scilab Project - Serge Steer +// Copyright INRIA 2007 +// Date : June 2007 +S=stacksize(); +function test(),for k=1:3d5,end,endfunction +stacksize(2d5) +if execstr('test()','errcatch') <> 0 then bugmes();quit;end +stacksize(S(1)) diff --git a/modules/double/tests/nonreg_tests/bug_2429.tst b/modules/double/tests/nonreg_tests/bug_2429.tst new file mode 100755 index 000000000..1359af80d --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_2429.tst @@ -0,0 +1,22 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 2429 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2429 +// +// <-- Short Description --> +// Implicit vector in for loop are allocated + +S=stacksize(); + +function test(),for k=1:3d5,end,endfunction + +stacksize(2d5) +if execstr('test()','errcatch') <> 0 then pause,end +stacksize(S(1)) diff --git a/modules/double/tests/nonreg_tests/bug_2616.dia.ref b/modules/double/tests/nonreg_tests/bug_2616.dia.ref new file mode 100755 index 000000000..18a869523 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_2616.dia.ref @@ -0,0 +1,48 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 2616 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2616 +// +// <-- Short Description --> +// "eye variable undefined in this context" wrongly reported when a loop range is +// defined concatenating ranges, inside a function +T=[]; +//simple case uncompiled +s=0;for k=1:3,s=s+1;end +if s<>3 then bugmes();quit;end +s=0;for k=(1:3)+1,s=s+1;end +if s<>3 then bugmes();quit;end +s=0;for k=[(1:3) 1],s=s+1;end +if s<>4 then bugmes();quit;end +function s=foo1(),s=0;for k=1:3,s=s+1;end,endfunction +if foo1()<>3 then bugmes();quit;end +function s=foo2(),s=0;for k=(1:3)+1,s=s+1;end,endfunction +if foo2()<>3 then bugmes();quit;end +function s=foo3(),s=0;for k=[(1:3) 1],s=s+1;end,endfunction +if foo3()<>4 then bugmes();quit;end +//check if implicit vector is created or not +old=stacksize(); +stacksize(180000); +//should evaluate +ierr=execstr('s=0;for k=1:200000,s=s+1;end','errcatch'); +if ierr<>0 then bugmes();quit;end +if s<>200000 then bugmes();quit;end +//should produce a stacksize error +ierr=execstr('s=0;for k=(1:200000)+1,s=s+1;end','errcatch'); +if ierr<>17 then bugmes();quit;end +ierr=execstr('s=0;for k=[(1:200000) 1],s=s+1;end','errcatch'); +if ierr<>17 then bugmes();quit;end +function s=foo4(),s=0;for k=1:200000,s=s+1;end,endfunction +ierr=execstr('s=foo4();','errcatch'); +if ierr<>0 then bugmes();quit;end +if s<>200000 then bugmes();quit;end +function s=foo5(),s=0;for k=1+(1:200000),s=s+1;end,endfunction +ierr=execstr('s=foo5();','errcatch'); +if ierr<>17 then bugmes();quit;end +stacksize(old(1)) diff --git a/modules/double/tests/nonreg_tests/bug_2616.tst b/modules/double/tests/nonreg_tests/bug_2616.tst new file mode 100755 index 000000000..4c87b64d7 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_2616.tst @@ -0,0 +1,64 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 2616 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2616 +// +// <-- Short Description --> +// "eye variable undefined in this context" wrongly reported when a loop range is +// defined concatenating ranges, inside a function + +T=[]; + +//simple case uncompiled +s=0;for k=1:3,s=s+1;end +if s<>3 then pause,end + + +s=0;for k=(1:3)+1,s=s+1;end +if s<>3 then pause,end + +s=0;for k=[(1:3) 1],s=s+1;end +if s<>4 then pause,end + +function s=foo1(),s=0;for k=1:3,s=s+1;end,endfunction +if foo1()<>3 then pause,end + +function s=foo2(),s=0;for k=(1:3)+1,s=s+1;end,endfunction +if foo2()<>3 then pause,end + +function s=foo3(),s=0;for k=[(1:3) 1],s=s+1;end,endfunction +if foo3()<>4 then pause,end + +//check if implicit vector is created or not +old=stacksize(); +stacksize(180000); + +//should evaluate +ierr=execstr('s=0;for k=1:200000,s=s+1;end','errcatch'); +if ierr<>0 then pause,end +if s<>200000 then pause,end + +//should produce a stacksize error +ierr=execstr('s=0;for k=(1:200000)+1,s=s+1;end','errcatch'); +if ierr<>17 then pause,end + +ierr=execstr('s=0;for k=[(1:200000) 1],s=s+1;end','errcatch'); +if ierr<>17 then pause,end + +function s=foo4(),s=0;for k=1:200000,s=s+1;end,endfunction +ierr=execstr('s=foo4();','errcatch'); +if ierr<>0 then pause,end +if s<>200000 then pause,end + +function s=foo5(),s=0;for k=1+(1:200000),s=s+1;end,endfunction +ierr=execstr('s=foo5();','errcatch'); +if ierr<>17 then pause,end + +stacksize(old(1)) diff --git a/modules/double/tests/nonreg_tests/bug_3006.dia.ref b/modules/double/tests/nonreg_tests/bug_3006.dia.ref new file mode 100755 index 000000000..19688c7e8 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_3006.dia.ref @@ -0,0 +1,26 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 3006 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=3006 +// +// <-- Short Description --> +// submatrix assignment impossible when the matrix is indexed with a boolean array of falses +a=[1 2;3 4];a_ref=a; +a(1,[%f %f])=[]; +if or(a<>a_ref) then bugmes();quit;end +a([%f %f],1)=[]; +if or(a<>a_ref) then bugmes();quit;end +a([%f %f],[%f %f])=[]; +if or(a<>a_ref) then bugmes();quit;end +a(1,$:1)=[]; +if or(a<>a_ref) then bugmes();quit;end +a($:1,1)=[]; +if or(a<>a_ref) then bugmes();quit;end +a($:1,$:1)=[]; +if or(a<>a_ref) then bugmes();quit;end diff --git a/modules/double/tests/nonreg_tests/bug_3006.tst b/modules/double/tests/nonreg_tests/bug_3006.tst new file mode 100755 index 000000000..12c7dd127 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_3006.tst @@ -0,0 +1,30 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 3006 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=3006 +// +// <-- Short Description --> +// submatrix assignment impossible when the matrix is indexed with a boolean array of falses + +a=[1 2;3 4];a_ref=a; + +a(1,[%f %f])=[]; +if or(a<>a_ref) then pause,end +a([%f %f],1)=[]; +if or(a<>a_ref) then pause,end +a([%f %f],[%f %f])=[]; +if or(a<>a_ref) then pause,end + +a(1,$:1)=[]; +if or(a<>a_ref) then pause,end +a($:1,1)=[]; +if or(a<>a_ref) then pause,end +a($:1,$:1)=[]; +if or(a<>a_ref) then pause,end diff --git a/modules/double/tests/nonreg_tests/bug_8300.dia.ref b/modules/double/tests/nonreg_tests/bug_8300.dia.ref new file mode 100755 index 000000000..49a13002d --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_8300.dia.ref @@ -0,0 +1,25 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - DIGITEO - Allan CORNET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 8300 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8300 +// +// <-- Short Description --> +// a(48400, 48400) = 0 crashed scilab +if execstr("b((2^32-1)/3,3) = 10;", "errcatch") == 0 then bugmes();quit;end +clear b; +if execstr("a(48400, 48400) = 0;", "errcatch") == 0 then bugmes();quit;end +X = 10; +if execstr("a(48400, 48400) = X;", "errcatch") == 0 then bugmes();quit;end +clear X; +stacksize('max'); +if execstr("b((2^32-1)/3,3) = 0;", "errcatch") == 0 then bugmes();quit;end +clear b; diff --git a/modules/double/tests/nonreg_tests/bug_8300.tst b/modules/double/tests/nonreg_tests/bug_8300.tst new file mode 100755 index 000000000..e7b386288 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_8300.tst @@ -0,0 +1,25 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - DIGITEO - Allan CORNET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 8300 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8300 +// +// <-- Short Description --> +// a(48400, 48400) = 0 crashed scilab +if execstr("b((2^32-1)/3,3) = 10;", "errcatch") == 0 then pause,end +clear b; +if execstr("a(48400, 48400) = 0;", "errcatch") == 0 then pause,end +X = 10; +if execstr("a(48400, 48400) = X;", "errcatch") == 0 then pause,end +clear X; +stacksize('max'); +if execstr("b((2^32-1)/3,3) = 0;", "errcatch") == 0 then pause,end +clear b; diff --git a/modules/double/tests/nonreg_tests/bug_8745.dia.ref b/modules/double/tests/nonreg_tests/bug_8745.dia.ref new file mode 100755 index 000000000..d9f38c0e0 --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_8745.dia.ref @@ -0,0 +1,42 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// +// <-- Non-regression test for bug 8745 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8745 +// +// <-- Short Description --> +// +// Extracting from an empty matrix automatically returns an empty matrix +A=[]; +errmsg=msprintf(_("Invalid index.\n")); +assert_checkerror("A(-1)", errmsg); +assert_checkerror("A(cos)", errmsg); +assert_checkerror("A(""x"")", errmsg); +assert_checkequal(A(1:$), []); +assert_checkequal(A($), []); +assert_checkequal(A(%t), []); +assert_checkerror("A(-1, -1)", errmsg); +assert_checkerror("A(1, -1)", errmsg); +assert_checkerror("A(-1, 1)", errmsg); +assert_checkerror("A(cos, cos)", errmsg); +assert_checkerror("A(cos, 1)", errmsg); +assert_checkerror("A(1, cos)", errmsg); +assert_checkerror("A(""x"", ""x"")", errmsg); +assert_checkerror("A(1, ""x"")", errmsg); +assert_checkerror("A(""x"", 1)", errmsg); +assert_checkequal(A(1:$,1:$), []); +assert_checkequal(A(1:$,1), []); +assert_checkequal(A(1, 1:$), []); +assert_checkequal(A($, $), []); +assert_checkequal(A(1, $), []); +assert_checkequal(A($, 1), []); +assert_checkequal(A(%t, %t), []); +assert_checkequal(A(1, %t), []); +assert_checkequal(A(%t, 1), []); diff --git a/modules/double/tests/nonreg_tests/bug_8745.tst b/modules/double/tests/nonreg_tests/bug_8745.tst new file mode 100755 index 000000000..241eef17a --- /dev/null +++ b/modules/double/tests/nonreg_tests/bug_8745.tst @@ -0,0 +1,44 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// +// <-- Non-regression test for bug 8745 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8745 +// +// <-- Short Description --> +// +// Extracting from an empty matrix automatically returns an empty matrix + +A=[]; +errmsg=msprintf(_("Invalid index.\n")); +assert_checkerror("A(-1)", errmsg); +assert_checkerror("A(cos)", errmsg); +assert_checkerror("A(""x"")", errmsg); +assert_checkequal(A(1:$), []); +assert_checkequal(A($), []); +assert_checkequal(A(%t), []); + +assert_checkerror("A(-1, -1)", errmsg); +assert_checkerror("A(1, -1)", errmsg); +assert_checkerror("A(-1, 1)", errmsg); +assert_checkerror("A(cos, cos)", errmsg); +assert_checkerror("A(cos, 1)", errmsg); +assert_checkerror("A(1, cos)", errmsg); +assert_checkerror("A(""x"", ""x"")", errmsg); +assert_checkerror("A(1, ""x"")", errmsg); +assert_checkerror("A(""x"", 1)", errmsg); +assert_checkequal(A(1:$,1:$), []); +assert_checkequal(A(1:$,1), []); +assert_checkequal(A(1, 1:$), []); +assert_checkequal(A($, $), []); +assert_checkequal(A(1, $), []); +assert_checkequal(A($, 1), []); +assert_checkequal(A(%t, %t), []); +assert_checkequal(A(1, %t), []); +assert_checkequal(A(%t, 1), []); |