/[escript]/trunk/paso/profiling/Test.c
ViewVC logotype

Contents of /trunk/paso/profiling/Test.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2165 - (show annotations)
Tue Dec 16 05:32:43 2008 UTC (12 years, 11 months ago) by artak
File MIME type: text/plain
File size: 1026 byte(s)
testing level as a parameter added
1 #include <stdio.h>
2 #include "paso/Common.h"
3 #include "paso/Solver.h"
4 #include "paso/SystemMatrix.h"
5 #include "Paso_tests.h"
6
7 int main (int argc, char *argv[]) {
8 Paso_SystemMatrix *A = NULL;
9 double *b,*x;
10 dim_t i,n,level=1;
11
12 if (argc<2) {
13 fprintf(stderr,"Please enter the filename\n");
14 return -1;
15 }
16
17 if (argc==3) {
18 level=atoi(argv[2]);
19 }
20
21 A=MEMALLOC(1,Paso_SystemMatrix);
22
23 A=Paso_SystemMatrix_loadMM_toCSR(argv[1]);
24 if (A==NULL) {
25 fprintf(stderr,"CSR Matrix not Loaded\n");
26 return 0;
27 }
28 n=Paso_SystemMatrix_getTotalNumRows(A);
29 b=MEMALLOC(n,double);
30 x=MEMALLOC(n,double);
31 for(i=0;i<n;i++)
32 {
33 b[i]=1;
34 }
35
36 Paso_test_run(A,b,level);
37 MEMFREE(b);
38 MEMFREE(x);
39 Paso_SystemMatrix_free(A);
40 return 1;
41 }

  ViewVC Help
Powered by ViewVC 1.1.26