/[escript]/branches/doubleplusgood/paso/profiling/Test.c
ViewVC logotype

Diff of /branches/doubleplusgood/paso/profiling/Test.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4335 by jfenwick, Wed Feb 27 03:42:40 2013 UTC revision 4336 by jfenwick, Thu Mar 21 08:25:18 2013 UTC
# Line 98  int main (int argc, char *argv[]) { Line 98  int main (int argc, char *argv[]) {
98          break;          break;
99          case 'f':          case 'f':
100              filename = optarg;              filename = optarg;
101              A=MEMALLOC(1,Paso_SystemMatrix);              A=new Paso_SystemMatrix;
102              A=Paso_SystemMatrix_loadMM_toCSR(filename);              A=Paso_SystemMatrix_loadMM_toCSR(filename);
103              n=Paso_SystemMatrix_getTotalNumRows(A);              n=Paso_SystemMatrix_getTotalNumRows(A);
104              b=MEMALLOC(n,double);              b=new double[n];
105              x=MEMALLOC(n,double);              x=new double[n];
106              x_ref=MEMALLOC(n,double);              x_ref=new double[n];
107              error=MEMALLOC(n,double);              error=new double[n];
108              for(i=0;i<n;i++) {              for(i=0;i<n;i++) {
109               x_ref[i]=cos(i*PI/n);               x_ref[i]=cos(i*PI/n);
110              }              }
# Line 222  int main (int argc, char *argv[]) { Line 222  int main (int argc, char *argv[]) {
222      }      }
223    
224     if (A!=NULL) {     if (A!=NULL) {
225      MEMFREE(b);      delete[] b;
226      MEMFREE(x);      delete[] x;
227      MEMFREE(x_ref);      delete[] x_ref;
228      MEMFREE(error);      delete[] error;
229      Paso_SystemMatrix_free(A);      Paso_SystemMatrix_free(A);
230     }     }
231            

Legend:
Removed from v.4335  
changed lines
  Added in v.4336

  ViewVC Help
Powered by ViewVC 1.1.26