diff options
Diffstat (limited to 'src/operations')
-rw-r--r-- | src/operations/division/Makefile.am | 31 | ||||
-rw-r--r-- | src/operations/division/Makefile.in | 198 | ||||
-rw-r--r-- | src/operations/division/cldiva.c | 22 | ||||
-rw-r--r-- | src/operations/division/cldivs.c | 27 | ||||
-rw-r--r-- | src/operations/division/crdiva.c | 22 | ||||
-rw-r--r-- | src/operations/division/crdivs.c | 19 | ||||
-rw-r--r-- | src/operations/division/dldiva.c | 22 | ||||
-rw-r--r-- | src/operations/division/dldivs.c | 19 | ||||
-rw-r--r-- | src/operations/division/drdiva.c | 22 | ||||
-rw-r--r-- | src/operations/division/drdivs.c | 19 | ||||
-rw-r--r-- | src/operations/division/sldiva.c | 22 | ||||
-rw-r--r-- | src/operations/division/sldivs.c | 19 | ||||
-rw-r--r-- | src/operations/division/srdiva.c | 23 | ||||
-rw-r--r-- | src/operations/division/srdivs.c | 19 | ||||
-rw-r--r-- | src/operations/division/testLDivision.c | 206 | ||||
-rw-r--r-- | src/operations/division/zldiva.c | 22 | ||||
-rw-r--r-- | src/operations/division/zldivs.c | 27 | ||||
-rw-r--r-- | src/operations/division/zrdiva.c | 22 | ||||
-rw-r--r-- | src/operations/division/zrdivs.c | 19 | ||||
-rw-r--r-- | src/operations/includes/division.h | 41 |
20 files changed, 795 insertions, 26 deletions
diff --git a/src/operations/division/Makefile.am b/src/operations/division/Makefile.am index ff1c8a1b..e0e7ca3e 100644 --- a/src/operations/division/Makefile.am +++ b/src/operations/division/Makefile.am @@ -11,6 +11,7 @@ ## libDivision_la_CFLAGS = -I $(top_builddir)/type \ + -I $(top_builddir)/auxiliaryFunctions/includes \ -I $(top_builddir)/operations/includes instdir = $(top_builddir)/lib @@ -20,20 +21,44 @@ pkglib_LTLIBRARIES = libDivision.la HEAD = ../includes/division.h libDivision_la_SOURCES = $(HEAD) \ + srdivs.c \ + drdivs.c \ + crdivs.c \ + zrdivs.c \ + sldivs.c \ + dldivs.c \ + cldivs.c \ + zldivs.c \ + srdiva.c \ + drdiva.c \ + crdiva.c \ + zrdiva.c \ + sldiva.c \ + dldiva.c \ + cldiva.c \ + zldiva.c \ cdivides.c \ zdivides.c -check_PROGRAMS = testDivision +check_PROGRAMS = testDivision \ + testLDivision check_LDADD = $(top_builddir)/type/libDoubleComplex.la \ $(top_builddir)/type/libFloatComplex.la \ + $(top_builddir)/operations/multiplication/libMultiplication.la \ + $(top_builddir)/auxiliaryFunctions/conj/libConj.la \ libDivision.la check_INCLUDES = -I $(top_builddir)/type \ -I $(top_builddir)/operations/includes -testDivision_SOURCES = testDivision.c +testDivision_SOURCES = testDivision.c testDivision_LDADD = $(check_LDADD) testDivision_CFLAGS = $(check_INCLUDES) -TESTS = testDivision + +testLDivision_SOURCES = testLDivision.c +testLDivision_LDADD = $(check_LDADD) +testLDivision_CFLAGS = $(check_INCLUDES) +TESTS = testDivision \ + testLDivision diff --git a/src/operations/division/Makefile.in b/src/operations/division/Makefile.in index dc911f8a..60847c20 100644 --- a/src/operations/division/Makefile.in +++ b/src/operations/division/Makefile.in @@ -32,8 +32,8 @@ PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ -check_PROGRAMS = testDivision$(EXEEXT) -TESTS = testDivision$(EXEEXT) +check_PROGRAMS = testDivision$(EXEEXT) testLDivision$(EXEEXT) +TESTS = testDivision$(EXEEXT) testLDivision$(EXEEXT) subdir = operations/division DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 @@ -54,8 +54,16 @@ pkglibLTLIBRARIES_INSTALL = $(INSTALL) LTLIBRARIES = $(pkglib_LTLIBRARIES) libDivision_la_LIBADD = am__objects_1 = -am_libDivision_la_OBJECTS = $(am__objects_1) \ - libDivision_la-cdivides.lo libDivision_la-zdivides.lo +am_libDivision_la_OBJECTS = $(am__objects_1) libDivision_la-srdivs.lo \ + libDivision_la-drdivs.lo libDivision_la-crdivs.lo \ + libDivision_la-zrdivs.lo libDivision_la-sldivs.lo \ + libDivision_la-dldivs.lo libDivision_la-cldivs.lo \ + libDivision_la-zldivs.lo libDivision_la-srdiva.lo \ + libDivision_la-drdiva.lo libDivision_la-crdiva.lo \ + libDivision_la-zrdiva.lo libDivision_la-sldiva.lo \ + libDivision_la-dldiva.lo libDivision_la-cldiva.lo \ + libDivision_la-zldiva.lo libDivision_la-cdivides.lo \ + libDivision_la-zdivides.lo libDivision_la_OBJECTS = $(am_libDivision_la_OBJECTS) libDivision_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(libDivision_la_CFLAGS) \ @@ -66,6 +74,12 @@ testDivision_DEPENDENCIES = $(check_LDADD) testDivision_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(testDivision_CFLAGS) \ $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ +am_testLDivision_OBJECTS = testLDivision-testLDivision.$(OBJEXT) +testLDivision_OBJECTS = $(am_testLDivision_OBJECTS) +testLDivision_DEPENDENCIES = $(check_LDADD) +testLDivision_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(testLDivision_CFLAGS) \ + $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/includes depcomp = $(SHELL) $(top_srcdir)/config/depcomp am__depfiles_maybe = depfiles @@ -78,8 +92,10 @@ CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ -SOURCES = $(libDivision_la_SOURCES) $(testDivision_SOURCES) -DIST_SOURCES = $(libDivision_la_SOURCES) $(testDivision_SOURCES) +SOURCES = $(libDivision_la_SOURCES) $(testDivision_SOURCES) \ + $(testLDivision_SOURCES) +DIST_SOURCES = $(libDivision_la_SOURCES) $(testDivision_SOURCES) \ + $(testLDivision_SOURCES) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) @@ -194,25 +210,47 @@ target_alias = @target_alias@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ libDivision_la_CFLAGS = -I $(top_builddir)/type \ + -I $(top_builddir)/auxiliaryFunctions/includes \ -I $(top_builddir)/operations/includes instdir = $(top_builddir)/lib pkglib_LTLIBRARIES = libDivision.la HEAD = ../includes/division.h libDivision_la_SOURCES = $(HEAD) \ + srdivs.c \ + drdivs.c \ + crdivs.c \ + zrdivs.c \ + sldivs.c \ + dldivs.c \ + cldivs.c \ + zldivs.c \ + srdiva.c \ + drdiva.c \ + crdiva.c \ + zrdiva.c \ + sldiva.c \ + dldiva.c \ + cldiva.c \ + zldiva.c \ cdivides.c \ zdivides.c check_LDADD = $(top_builddir)/type/libDoubleComplex.la \ $(top_builddir)/type/libFloatComplex.la \ + $(top_builddir)/operations/multiplication/libMultiplication.la \ + $(top_builddir)/auxiliaryFunctions/conj/libConj.la \ libDivision.la check_INCLUDES = -I $(top_builddir)/type \ -I $(top_builddir)/operations/includes -testDivision_SOURCES = testDivision.c +testDivision_SOURCES = testDivision.c testDivision_LDADD = $(check_LDADD) testDivision_CFLAGS = $(check_INCLUDES) +testLDivision_SOURCES = testLDivision.c +testLDivision_LDADD = $(check_LDADD) +testLDivision_CFLAGS = $(check_INCLUDES) all: all-am .SUFFIXES: @@ -285,6 +323,9 @@ clean-checkPROGRAMS: testDivision$(EXEEXT): $(testDivision_OBJECTS) $(testDivision_DEPENDENCIES) @rm -f testDivision$(EXEEXT) $(testDivision_LINK) $(testDivision_OBJECTS) $(testDivision_LDADD) $(LIBS) +testLDivision$(EXEEXT): $(testLDivision_OBJECTS) $(testLDivision_DEPENDENCIES) + @rm -f testLDivision$(EXEEXT) + $(testLDivision_LINK) $(testLDivision_OBJECTS) $(testLDivision_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) @@ -293,8 +334,25 @@ distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-cdivides.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-cldiva.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-cldivs.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-crdiva.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-crdivs.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-dldiva.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-dldivs.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-drdiva.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-drdivs.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-sldiva.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-sldivs.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-srdiva.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-srdivs.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-zdivides.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-zldiva.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-zldivs.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-zrdiva.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libDivision_la-zrdivs.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/testDivision-testDivision.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/testLDivision-testLDivision.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @@ -317,6 +375,118 @@ distclean-compile: @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< +libDivision_la-srdivs.lo: srdivs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-srdivs.lo -MD -MP -MF $(DEPDIR)/libDivision_la-srdivs.Tpo -c -o libDivision_la-srdivs.lo `test -f 'srdivs.c' || echo '$(srcdir)/'`srdivs.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-srdivs.Tpo $(DEPDIR)/libDivision_la-srdivs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='srdivs.c' object='libDivision_la-srdivs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-srdivs.lo `test -f 'srdivs.c' || echo '$(srcdir)/'`srdivs.c + +libDivision_la-drdivs.lo: drdivs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-drdivs.lo -MD -MP -MF $(DEPDIR)/libDivision_la-drdivs.Tpo -c -o libDivision_la-drdivs.lo `test -f 'drdivs.c' || echo '$(srcdir)/'`drdivs.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-drdivs.Tpo $(DEPDIR)/libDivision_la-drdivs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='drdivs.c' object='libDivision_la-drdivs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-drdivs.lo `test -f 'drdivs.c' || echo '$(srcdir)/'`drdivs.c + +libDivision_la-crdivs.lo: crdivs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-crdivs.lo -MD -MP -MF $(DEPDIR)/libDivision_la-crdivs.Tpo -c -o libDivision_la-crdivs.lo `test -f 'crdivs.c' || echo '$(srcdir)/'`crdivs.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-crdivs.Tpo $(DEPDIR)/libDivision_la-crdivs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='crdivs.c' object='libDivision_la-crdivs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-crdivs.lo `test -f 'crdivs.c' || echo '$(srcdir)/'`crdivs.c + +libDivision_la-zrdivs.lo: zrdivs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-zrdivs.lo -MD -MP -MF $(DEPDIR)/libDivision_la-zrdivs.Tpo -c -o libDivision_la-zrdivs.lo `test -f 'zrdivs.c' || echo '$(srcdir)/'`zrdivs.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-zrdivs.Tpo $(DEPDIR)/libDivision_la-zrdivs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='zrdivs.c' object='libDivision_la-zrdivs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-zrdivs.lo `test -f 'zrdivs.c' || echo '$(srcdir)/'`zrdivs.c + +libDivision_la-sldivs.lo: sldivs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-sldivs.lo -MD -MP -MF $(DEPDIR)/libDivision_la-sldivs.Tpo -c -o libDivision_la-sldivs.lo `test -f 'sldivs.c' || echo '$(srcdir)/'`sldivs.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-sldivs.Tpo $(DEPDIR)/libDivision_la-sldivs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='sldivs.c' object='libDivision_la-sldivs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-sldivs.lo `test -f 'sldivs.c' || echo '$(srcdir)/'`sldivs.c + +libDivision_la-dldivs.lo: dldivs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-dldivs.lo -MD -MP -MF $(DEPDIR)/libDivision_la-dldivs.Tpo -c -o libDivision_la-dldivs.lo `test -f 'dldivs.c' || echo '$(srcdir)/'`dldivs.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-dldivs.Tpo $(DEPDIR)/libDivision_la-dldivs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dldivs.c' object='libDivision_la-dldivs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-dldivs.lo `test -f 'dldivs.c' || echo '$(srcdir)/'`dldivs.c + +libDivision_la-cldivs.lo: cldivs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-cldivs.lo -MD -MP -MF $(DEPDIR)/libDivision_la-cldivs.Tpo -c -o libDivision_la-cldivs.lo `test -f 'cldivs.c' || echo '$(srcdir)/'`cldivs.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-cldivs.Tpo $(DEPDIR)/libDivision_la-cldivs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cldivs.c' object='libDivision_la-cldivs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-cldivs.lo `test -f 'cldivs.c' || echo '$(srcdir)/'`cldivs.c + +libDivision_la-zldivs.lo: zldivs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-zldivs.lo -MD -MP -MF $(DEPDIR)/libDivision_la-zldivs.Tpo -c -o libDivision_la-zldivs.lo `test -f 'zldivs.c' || echo '$(srcdir)/'`zldivs.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-zldivs.Tpo $(DEPDIR)/libDivision_la-zldivs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='zldivs.c' object='libDivision_la-zldivs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-zldivs.lo `test -f 'zldivs.c' || echo '$(srcdir)/'`zldivs.c + +libDivision_la-srdiva.lo: srdiva.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-srdiva.lo -MD -MP -MF $(DEPDIR)/libDivision_la-srdiva.Tpo -c -o libDivision_la-srdiva.lo `test -f 'srdiva.c' || echo '$(srcdir)/'`srdiva.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-srdiva.Tpo $(DEPDIR)/libDivision_la-srdiva.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='srdiva.c' object='libDivision_la-srdiva.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-srdiva.lo `test -f 'srdiva.c' || echo '$(srcdir)/'`srdiva.c + +libDivision_la-drdiva.lo: drdiva.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-drdiva.lo -MD -MP -MF $(DEPDIR)/libDivision_la-drdiva.Tpo -c -o libDivision_la-drdiva.lo `test -f 'drdiva.c' || echo '$(srcdir)/'`drdiva.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-drdiva.Tpo $(DEPDIR)/libDivision_la-drdiva.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='drdiva.c' object='libDivision_la-drdiva.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-drdiva.lo `test -f 'drdiva.c' || echo '$(srcdir)/'`drdiva.c + +libDivision_la-crdiva.lo: crdiva.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-crdiva.lo -MD -MP -MF $(DEPDIR)/libDivision_la-crdiva.Tpo -c -o libDivision_la-crdiva.lo `test -f 'crdiva.c' || echo '$(srcdir)/'`crdiva.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-crdiva.Tpo $(DEPDIR)/libDivision_la-crdiva.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='crdiva.c' object='libDivision_la-crdiva.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-crdiva.lo `test -f 'crdiva.c' || echo '$(srcdir)/'`crdiva.c + +libDivision_la-zrdiva.lo: zrdiva.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-zrdiva.lo -MD -MP -MF $(DEPDIR)/libDivision_la-zrdiva.Tpo -c -o libDivision_la-zrdiva.lo `test -f 'zrdiva.c' || echo '$(srcdir)/'`zrdiva.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-zrdiva.Tpo $(DEPDIR)/libDivision_la-zrdiva.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='zrdiva.c' object='libDivision_la-zrdiva.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-zrdiva.lo `test -f 'zrdiva.c' || echo '$(srcdir)/'`zrdiva.c + +libDivision_la-sldiva.lo: sldiva.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-sldiva.lo -MD -MP -MF $(DEPDIR)/libDivision_la-sldiva.Tpo -c -o libDivision_la-sldiva.lo `test -f 'sldiva.c' || echo '$(srcdir)/'`sldiva.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-sldiva.Tpo $(DEPDIR)/libDivision_la-sldiva.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='sldiva.c' object='libDivision_la-sldiva.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-sldiva.lo `test -f 'sldiva.c' || echo '$(srcdir)/'`sldiva.c + +libDivision_la-dldiva.lo: dldiva.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-dldiva.lo -MD -MP -MF $(DEPDIR)/libDivision_la-dldiva.Tpo -c -o libDivision_la-dldiva.lo `test -f 'dldiva.c' || echo '$(srcdir)/'`dldiva.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-dldiva.Tpo $(DEPDIR)/libDivision_la-dldiva.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dldiva.c' object='libDivision_la-dldiva.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-dldiva.lo `test -f 'dldiva.c' || echo '$(srcdir)/'`dldiva.c + +libDivision_la-cldiva.lo: cldiva.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-cldiva.lo -MD -MP -MF $(DEPDIR)/libDivision_la-cldiva.Tpo -c -o libDivision_la-cldiva.lo `test -f 'cldiva.c' || echo '$(srcdir)/'`cldiva.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-cldiva.Tpo $(DEPDIR)/libDivision_la-cldiva.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='cldiva.c' object='libDivision_la-cldiva.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-cldiva.lo `test -f 'cldiva.c' || echo '$(srcdir)/'`cldiva.c + +libDivision_la-zldiva.lo: zldiva.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-zldiva.lo -MD -MP -MF $(DEPDIR)/libDivision_la-zldiva.Tpo -c -o libDivision_la-zldiva.lo `test -f 'zldiva.c' || echo '$(srcdir)/'`zldiva.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-zldiva.Tpo $(DEPDIR)/libDivision_la-zldiva.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='zldiva.c' object='libDivision_la-zldiva.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -c -o libDivision_la-zldiva.lo `test -f 'zldiva.c' || echo '$(srcdir)/'`zldiva.c + libDivision_la-cdivides.lo: cdivides.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libDivision_la_CFLAGS) $(CFLAGS) -MT libDivision_la-cdivides.lo -MD -MP -MF $(DEPDIR)/libDivision_la-cdivides.Tpo -c -o libDivision_la-cdivides.lo `test -f 'cdivides.c' || echo '$(srcdir)/'`cdivides.c @am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libDivision_la-cdivides.Tpo $(DEPDIR)/libDivision_la-cdivides.Plo @@ -345,6 +515,20 @@ testDivision-testDivision.obj: testDivision.c @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(testDivision_CFLAGS) $(CFLAGS) -c -o testDivision-testDivision.obj `if test -f 'testDivision.c'; then $(CYGPATH_W) 'testDivision.c'; else $(CYGPATH_W) '$(srcdir)/testDivision.c'; fi` +testLDivision-testLDivision.o: testLDivision.c +@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(testLDivision_CFLAGS) $(CFLAGS) -MT testLDivision-testLDivision.o -MD -MP -MF $(DEPDIR)/testLDivision-testLDivision.Tpo -c -o testLDivision-testLDivision.o `test -f 'testLDivision.c' || echo '$(srcdir)/'`testLDivision.c +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/testLDivision-testLDivision.Tpo $(DEPDIR)/testLDivision-testLDivision.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='testLDivision.c' object='testLDivision-testLDivision.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(testLDivision_CFLAGS) $(CFLAGS) -c -o testLDivision-testLDivision.o `test -f 'testLDivision.c' || echo '$(srcdir)/'`testLDivision.c + +testLDivision-testLDivision.obj: testLDivision.c +@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(testLDivision_CFLAGS) $(CFLAGS) -MT testLDivision-testLDivision.obj -MD -MP -MF $(DEPDIR)/testLDivision-testLDivision.Tpo -c -o testLDivision-testLDivision.obj `if test -f 'testLDivision.c'; then $(CYGPATH_W) 'testLDivision.c'; else $(CYGPATH_W) '$(srcdir)/testLDivision.c'; fi` +@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/testLDivision-testLDivision.Tpo $(DEPDIR)/testLDivision-testLDivision.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='testLDivision.c' object='testLDivision-testLDivision.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(testLDivision_CFLAGS) $(CFLAGS) -c -o testLDivision-testLDivision.obj `if test -f 'testLDivision.c'; then $(CYGPATH_W) 'testLDivision.c'; else $(CYGPATH_W) '$(srcdir)/testLDivision.c'; fi` + mostlyclean-libtool: -rm -f *.lo diff --git a/src/operations/division/cldiva.c b/src/operations/division/cldiva.c new file mode 100644 index 00000000..396e34e8 --- /dev/null +++ b/src/operations/division/cldiva.c @@ -0,0 +1,22 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + +void cldiva (floatComplex* in1, int size1, floatComplex* in2, int size2, floatComplex* out ){ + int i=0; + for (i=0;i<size1;i++){ + out[i]=cldivs(in1[i],in2[i]); + } + for (i=0;i<size2;i++){} +} diff --git a/src/operations/division/cldivs.c b/src/operations/division/cldivs.c new file mode 100644 index 00000000..c58e33b4 --- /dev/null +++ b/src/operations/division/cldivs.c @@ -0,0 +1,27 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" +#include "conj.h" +#include "multiplication.h" +/* + A\B = B*A^-1 = B*conj(A)/|A|^2 + |A|^2 = Re(A)^2 + Im(A)^2 + */ + +floatComplex cldivs (floatComplex in1, floatComplex in2){ + floatComplex fC1, fC2; + fC1 = ctimess(in2,cconjs(in1)); + fC2 = FloatComplex(creals(in1)*creals(in1)+cimags(in1)*cimags(in1),0); + return crdivs(fC1,fC2); +} diff --git a/src/operations/division/crdiva.c b/src/operations/division/crdiva.c new file mode 100644 index 00000000..fe69014c --- /dev/null +++ b/src/operations/division/crdiva.c @@ -0,0 +1,22 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + +void crdiva (floatComplex* in1, int size1, floatComplex* in2, int size2, floatComplex* out ){ + int i=0; + for (i=0;i<size1;i++){ + out[i]=crdivs(in1[i],in2[i]); + } + for (i=0;i<size2;i++){} +} diff --git a/src/operations/division/crdivs.c b/src/operations/division/crdivs.c new file mode 100644 index 00000000..fec7c62b --- /dev/null +++ b/src/operations/division/crdivs.c @@ -0,0 +1,19 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + + +floatComplex crdivs (floatComplex in1, floatComplex in2){ + return cdivides(in1,in2); +} diff --git a/src/operations/division/dldiva.c b/src/operations/division/dldiva.c new file mode 100644 index 00000000..292ebbfc --- /dev/null +++ b/src/operations/division/dldiva.c @@ -0,0 +1,22 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + +void dldiva (double* in1, int size1, double* in2, int size2, double* out ){ + int i=0; + for (i=0;i<size1;i++){ + out[i]=dldivs(in1[i],in2[i]); + } + for (i=0;i<size2;i++){} +} diff --git a/src/operations/division/dldivs.c b/src/operations/division/dldivs.c new file mode 100644 index 00000000..5eefec62 --- /dev/null +++ b/src/operations/division/dldivs.c @@ -0,0 +1,19 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + + +double dldivs (double in1, double in2){ + return in2/in1; +} diff --git a/src/operations/division/drdiva.c b/src/operations/division/drdiva.c new file mode 100644 index 00000000..ad67498a --- /dev/null +++ b/src/operations/division/drdiva.c @@ -0,0 +1,22 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + +void drdiva (double* in1, int size1, double* in2, int size2, double* out ){ + int i=0; + for (i=0;i<size1;i++){ + out[i]=drdivs(in1[i],in2[i]); + } + for (i=0;i<size2;i++){} +} diff --git a/src/operations/division/drdivs.c b/src/operations/division/drdivs.c new file mode 100644 index 00000000..47bf7e0d --- /dev/null +++ b/src/operations/division/drdivs.c @@ -0,0 +1,19 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + + +double drdivs (double in1, double in2){ + return in1/in2; +} diff --git a/src/operations/division/sldiva.c b/src/operations/division/sldiva.c new file mode 100644 index 00000000..1207431d --- /dev/null +++ b/src/operations/division/sldiva.c @@ -0,0 +1,22 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + +void sldiva (float* in1, int size1, float* in2, int size2, float* out ){ + int i=0; + for (i=0;i<size1;i++){ + out[i]=sldivs(in1[i],in2[i]); + } + for (i=0;i<size2;i++){} +} diff --git a/src/operations/division/sldivs.c b/src/operations/division/sldivs.c new file mode 100644 index 00000000..cc935b1a --- /dev/null +++ b/src/operations/division/sldivs.c @@ -0,0 +1,19 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + + +float sldivs (float in1, float in2){ + return in2/in1; +} diff --git a/src/operations/division/srdiva.c b/src/operations/division/srdiva.c new file mode 100644 index 00000000..856bb01a --- /dev/null +++ b/src/operations/division/srdiva.c @@ -0,0 +1,23 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + + +void srdiva (float* in1, int size1, float* in2, int size2, float* out ){ + int i=0; + for (i=0;i<size1;i++){ + out[i]=srdivs(in1[i],in2[i]); + } + for (i=0;i<size2;i++){} +} diff --git a/src/operations/division/srdivs.c b/src/operations/division/srdivs.c new file mode 100644 index 00000000..c4feaa84 --- /dev/null +++ b/src/operations/division/srdivs.c @@ -0,0 +1,19 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + + +float srdivs (float in1, float in2){ + return in1/in2; +} diff --git a/src/operations/division/testLDivision.c b/src/operations/division/testLDivision.c new file mode 100644 index 00000000..137de8e1 --- /dev/null +++ b/src/operations/division/testLDivision.c @@ -0,0 +1,206 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * 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-en.txt + * + */ +#include <stdlib.h> +#include <stdio.h> +#include <assert.h> +#include <math.h> +#include "division.h" +/* +#define SIZE 10000000 + +#define LOCAL_DEBUG +*/ + +/* +static void sldivsTest() +{ + float M1; + float M2; + int i=0,j=0; + + srand(20); + for (i=0;i<10;i++){ + for (j=0;j<10;j++){ + M1=(float)rand(); + M2=(float)rand(); + printf("%f \\ %f = %1.7f\n" , M1, M2, sldivs(M1,M2)); + } + } + +} + + +static void dldivsTest() +{ + double M1; + double M2; + int i=0,j=0; + + srand(20); + for (i=0;i<10;i++){ + for (j=0;j<10;j++){ + M1=(double)rand(); + M2=(double)rand(); + printf("%f \\ %f = %1.7f\n" , M1, M2, dldivs(M1,M2)); + } + } + +} + + +static void cldivsTest() +{ + floatComplex M1; + floatComplex M2; + int i=0,j=0; + + srand(20); + for (i=0;i<10;i++){ + for (j=0;j<10;j++){ + M1=FloatComplex((float)rand(),(float)rand()); + M2=FloatComplex((float)rand(),(float)rand()); + printf("(%f + %f *%%i)\\ (%f + %f *%%i) = %1.7f + %1.7f i\n" , creals(M1),cimags(M1),creals(M2),cimags(M2),creals(cldivs(M1,M2)),cimags(cldivs(M1,M2))); + } + } + +} + + +static void zldivsTest() +{ + doubleComplex M1; + doubleComplex M2; + int i=0,j=0; + + srand(20); + for (i=0;i<10;i++){ + for (j=0;j<10;j++){ + M1=DoubleComplex((double)rand(),(double)rand()); + M2=DoubleComplex((double)rand(),(double)rand()); + printf("(%f + %f *%%i)\\ (%f + %f *%%i) = %1.7f + %1.7f i\n\n" , zreals(M1),zimags(M1),zreals(M2),zimags(M2),zreals(zldivs(M1,M2)),zimags(zldivs(M1,M2))); + } + } + +} +*/ + +static void sldivaTest() +{ + float M1[4]={1, 3, 2, 4}; + float M2[4]={23, 3, 2, 13}; + float MRes[4]; + int i=0; + + sldiva(M1,4,M2,4,MRes); + + for (i=0;i<4;i++){ + printf("%1.7f\n",MRes[i]); + } + +} + + +static void dldivaTest() +{ + double M1[4]={1, 3, 2, 4}; + double M2[4]={23, 3, 2, 13}; + double MRes[4]; + int i=0; + + dldiva(M1,4,M2,4,MRes); + + for (i=0;i<4;i++){ + printf("%1.7f\n",MRes[i]); + } + +} + + +static void cldivaTest() +{ + int i=0; + floatComplex M1[4]; + floatComplex M2[4]; + floatComplex MRes[4]; + + M1[0]=FloatComplex(1,0); + M1[1]=FloatComplex(3,0); + M1[2]=FloatComplex(2,0); + M1[3]=FloatComplex(4,0); + M2[0]=FloatComplex(23,0); + M2[1]=FloatComplex(3,0); + M2[2]=FloatComplex(2,0); + M2[3]=FloatComplex(13,0); + + cldiva(M1,4,M2,4,MRes); + for (i=0;i<4;i++){ + printf("%1.7f + %1.7f i\n",creals(MRes[i]),cimags(MRes[i])); + } + +} + + +static void zldivaTest() +{ + int i=0; + doubleComplex M1[4]; + doubleComplex M2[4]; + doubleComplex MRes[4]; + + M1[0]=DoubleComplex(1,0); + M1[1]=DoubleComplex(3,0); + M1[2]=DoubleComplex(2,0); + M1[3]=DoubleComplex(4,0); + M2[0]=DoubleComplex(23,0); + M2[1]=DoubleComplex(3,0); + M2[2]=DoubleComplex(2,0); + M2[3]=DoubleComplex(13,0); + + zldiva(M1,4,M2,4,MRes); + for (i=0;i<4;i++){ + printf("%1.7f + %1.7f i\n",zreals(MRes[i]),zimags(MRes[i])); + } + + +} + + +static int testLDivision(void) { +/* Resultats a comparer avec ceux de Scilab + Ok chez moi + + printf(">>>SCALAIRES<<<\n");printf("\n");printf("\n"); + sldivsTest(); + printf("\n");printf("\n");printf("\n");printf("\n"); + dldivsTest(); + printf("\n");printf("\n");printf("\n");printf("\n"); + cldivsTest(); + printf("\n");printf("\n");printf("\n");printf("\n"); + zldivsTest(); + printf("\n");printf("\n");printf("\n");printf("\n")};*/ + printf(">>>ARRAYS<<<\n");printf("\n");printf("\n"); + sldivaTest(); + printf("\n");printf("\n");printf("\n");printf("\n"); + dldivaTest(); + printf("\n");printf("\n");printf("\n");printf("\n"); + cldivaTest(); + printf("\n");printf("\n");printf("\n");printf("\n"); + zldivaTest(); + return 0; +} + + + +int main(void) { + assert(testLDivision() == 0); + return 0; +} diff --git a/src/operations/division/zldiva.c b/src/operations/division/zldiva.c new file mode 100644 index 00000000..7eec3fa8 --- /dev/null +++ b/src/operations/division/zldiva.c @@ -0,0 +1,22 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + +void zldiva (doubleComplex* in1, int size1, doubleComplex* in2, int size2, doubleComplex* out ){ + int i=0; + for (i=0;i<size1;i++){ + out[i]=zldivs(in1[i],in2[i]); + } + for (i=0;i<size2;i++){} +} diff --git a/src/operations/division/zldivs.c b/src/operations/division/zldivs.c new file mode 100644 index 00000000..ec8a6a8c --- /dev/null +++ b/src/operations/division/zldivs.c @@ -0,0 +1,27 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" +#include "conj.h" +#include "multiplication.h" +/* + A\B = B*A^-1 = B*conj(A)/|A|^2 + |A|^2 = Re(A)^2 + Im(A)^2 + */ + +doubleComplex zldivs (doubleComplex in1, doubleComplex in2){ + doubleComplex zC1, zC2; + zC1 = ztimess(in2,zconjs(in1)); + zC2 = DoubleComplex(zreals(in1)*zreals(in1)+zimags(in1)*zimags(in1),0); + return zrdivs(zC1,zC2); +} diff --git a/src/operations/division/zrdiva.c b/src/operations/division/zrdiva.c new file mode 100644 index 00000000..ef097f2d --- /dev/null +++ b/src/operations/division/zrdiva.c @@ -0,0 +1,22 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + +void zrdiva (doubleComplex* in1, int size1, doubleComplex* in2, int size2, doubleComplex* out ){ + int i=0; + for (i=0;i<size1;i++){ + out[i]=zrdivs(in1[i],in2[i]); + } + for (i=0;i<size2;i++){} +} diff --git a/src/operations/division/zrdivs.c b/src/operations/division/zrdivs.c new file mode 100644 index 00000000..faed8424 --- /dev/null +++ b/src/operations/division/zrdivs.c @@ -0,0 +1,19 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * 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-en.txt + * + */ + + +#include "division.h" + + +doubleComplex zrdivs (doubleComplex in1, doubleComplex in2){ + return zdivides(in1,in2); +} diff --git a/src/operations/includes/division.h b/src/operations/includes/division.h index f191451e..e6016fc6 100644 --- a/src/operations/includes/division.h +++ b/src/operations/includes/division.h @@ -16,6 +16,15 @@ #include "floatComplex.h" #include "doubleComplex.h" + +/* +** +** WARNING WE ASSUME MATRIXES TO BE CONSCISTENT +** size1 = size2; +** +*/ + + /* ** RIGHT DIVISION */ @@ -24,7 +33,7 @@ ** \brief Compute a right division for floats. ** \param in1 : input float. ** \param in2 : input float. -** \return in1 / in2. +** \return in1 / in2 = in1 ./ in2. */ float srdivs (float in1, float in2); @@ -34,7 +43,7 @@ float srdivs (float in1, float in2); ** \param size1 : size of in1 array. ** \param in2 : input arry. ** \param size2 : size of in2 array. -** \param out : array that contains the division in1 / in2. +** \param out : array that contains the division in1 ./ in2. */ void srdiva (float* in1, int size1, float* in2, int size2, @@ -44,7 +53,7 @@ void srdiva (float* in1, int size1, ** \brief Compute a right division for double. ** \param in1 : input double. ** \param in2 : input double. -** \return in1 / in2. +** \return in1 / in2 = in1 ./ in2. */ double drdivs (double in1, double in2); @@ -54,7 +63,7 @@ double drdivs (double in1, double in2); ** \param size1 : size of in1 array. ** \param in2 : input arry. ** \param size2 : size of in2 array. -** \param out : array that contains the division in1 / in2. +** \param out : array that contains the division in1 ./ in2. */ void drdiva (double* in1, int size1, double* in2, int size2, @@ -64,7 +73,7 @@ void drdiva (double* in1, int size1, ** \brief Compute a right division for floats complex. ** \param in1 : input float complex. ** \param in2 : input float complex. -** \return in1 / in2. +** \return in1 / in2 = in1 ./ in2. */ floatComplex crdivs (floatComplex in1, floatComplex in2); @@ -74,7 +83,7 @@ floatComplex crdivs (floatComplex in1, floatComplex in2); ** \param size1 : size of in1 array. ** \param in2 : input arry. ** \param size2 : size of in2 array. -** \param out : array that contains the division in1 / in2. +** \param out : array that contains the division in1 ./ in2. */ void crdiva(floatComplex* in1, int size1, floatComplex* in2, int size2, @@ -84,7 +93,7 @@ void crdiva(floatComplex* in1, int size1, ** \brief Compute a right division for double complex. ** \param in1 : input double complex. ** \param in2 : input double complex. -** \return in1 / in2. +** \return in1 / in2 = in1 ./ in2. */ doubleComplex zrdivs (doubleComplex in1, doubleComplex in2); @@ -94,7 +103,7 @@ doubleComplex zrdivs (doubleComplex in1, doubleComplex in2); ** \param size1 : size of in1 array. ** \param in2 : input arry. ** \param size2 : size of in2 array. -** \param out : array that contains the division in1 / in2. +** \param out : array that contains the division in1 ./ in2. */ void zrdiva(doubleComplex* in1, int size1, doubleComplex* in2, int size2, @@ -108,7 +117,7 @@ void zrdiva(doubleComplex* in1, int size1, ** \brief Compute a left division for floats. ** \param in1 : input float. ** \param in2 : input float. -** \return in1 \ in2. +** \return in1 \ in2 = in1 .\ in2. */ float sldivs (float in1, float in2); @@ -118,7 +127,7 @@ float sldivs (float in1, float in2); ** \param size1 : size of in1 array. ** \param in2 : input arry. ** \param size2 : size of in2 array. -** \param out : array that contains the division in1 \ in2. +** \param out : array that contains the division in1 .\ in2. */ void sldiva (float* in1, int size1, float* in2, int size2, @@ -128,7 +137,7 @@ void sldiva (float* in1, int size1, ** \brief Compute a left division for double. ** \param in1 : input double. ** \param in2 : input double. -** \return in1 \ in2. +** \return in1 \ in2 = in1 .\ in2. */ double dldivs (double in1, double in2); @@ -138,7 +147,7 @@ double dldivs (double in1, double in2); ** \param size1 : size of in1 array. ** \param in2 : input arry. ** \param size2 : size of in2 array. -** \param out : array that contains the division in1 \ in2. +** \param out : array that contains the division in1 .\ in2. */ void dldiva (double* in1, int size1, double* in2, int size2, @@ -148,7 +157,7 @@ void dldiva (double* in1, int size1, ** \brief Compute a left division for floats complex. ** \param in1 : input float complex. ** \param in2 : input float complex. -** \return in1 \ in2. +** \return in1 \ in2 = in1 .\ in2. */ floatComplex cldivs (floatComplex in1, floatComplex in2); @@ -158,7 +167,7 @@ floatComplex cldivs (floatComplex in1, floatComplex in2); ** \param size1 : size of in1 array. ** \param in2 : input arry. ** \param size2 : size of in2 array. -** \param out : array that contains the division in1 \ in2. +** \param out : array that contains the division in1 .\ in2. */ void cldiva(floatComplex* in1, int size1, floatComplex* in2, int size2, @@ -168,7 +177,7 @@ void cldiva(floatComplex* in1, int size1, ** \brief Compute a left division for double complex. ** \param in1 : input double complex. ** \param in2 : input double complex. -** \return in1 \ in2. +** \return in1 \ in2 = in1 .\ in2. */ doubleComplex zldivs (doubleComplex in1, doubleComplex in2); @@ -178,7 +187,7 @@ doubleComplex zldivs (doubleComplex in1, doubleComplex in2); ** \param size1 : size of in1 array. ** \param in2 : input arry. ** \param size2 : size of in2 array. -** \param out : array that contains the division in1 \ in2. +** \param out : array that contains the division in1 .\ in2. */ void zldiva(doubleComplex* in1, int size1, doubleComplex* in2, int size2, |