diff options
| author | jofret | 2009-04-28 06:55:15 +0000 |
|---|---|---|
| committer | jofret | 2009-04-28 06:55:15 +0000 |
| commit | 89ce1d449dde70966962946e197c576cf350dc31 (patch) | |
| tree | 913252b78bddfb80d8a7a98db0592950372f91d0 /src/matrixOperations/fill/testDoubleFill.c | |
| parent | 49ad35ec2d8a12428a1613e2a955ddae4195e216 (diff) | |
| download | scilab2c-89ce1d449dde70966962946e197c576cf350dc31.tar.gz scilab2c-89ce1d449dde70966962946e197c576cf350dc31.tar.bz2 scilab2c-89ce1d449dde70966962946e197c576cf350dc31.zip | |
Moving source code
Diffstat (limited to 'src/matrixOperations/fill/testDoubleFill.c')
| -rw-r--r-- | src/matrixOperations/fill/testDoubleFill.c | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/src/matrixOperations/fill/testDoubleFill.c b/src/matrixOperations/fill/testDoubleFill.c deleted file mode 100644 index 0b5a88c2..00000000 --- a/src/matrixOperations/fill/testDoubleFill.c +++ /dev/null @@ -1,49 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 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 <stdio.h> -#include <assert.h> -#include "fill.h" - -static void dfillaTest(){ - double in[6]; - double constant=7; - int i; - dfilla(in, 2,3,constant); - for (i=0;i<6;i++) - printf("indice : %d -- valeur : %f\n",i,in[i]); - -} - -static void zfillaTest(){ - doubleComplex in[9]; - doubleComplex constant=DoubleComplex(1,1); - int i; - - zfilla(in, 3, 3, constant); - for (i=0;i<9;i++) - printf("indice : %d -- valeur : %f+%f *i\n",i,zreals(in[i]),zimags(in[i])); -} - - -static int fillTest(){ - dfillaTest(); - zfillaTest(); - return 0; -} - -int main(void){ - assert(fillTest()==0); - return 0; -} - - |