00001 #define EXTERN
00002
00003
00004 #include "pglobal.h"
00005 #include "seqfilesm.h"
00006 #include "stochdriver.h"
00007
00008 #include "hpssolver.h"
00009
00010 #include <stdio.h>
00011 #include <string.h>
00012 #include "mpi.h"
00013 #include <time.h>
00014
00015
00016
00017
00018 int main (int argc,char *argv[])
00019 {
00020 time_t bt,et;
00021 char name[1100];
00022 stochdriver *stochd;
00023 stochd = new stochdriver;
00024 FILE *in;
00025
00026 bt = time (NULL);
00027
00028
00029 MPI_Init(&argc,&argv);
00030 MPI_Comm_rank(MPI_COMM_WORLD,&Myrank);
00031 MPI_Comm_size(MPI_COMM_WORLD,&Nproc);
00032
00033
00034
00035 mefel_init (argv[1],stochd);
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047 hparal_solve_mefel_problem ();
00048
00049
00050 et = time (NULL);
00051
00052 fprintf (Out,"\n\n\n Udaje o dobach vypoctu \n");
00053 fprintf (Out,"\n\n celkova doba vypoctu %ld",et-bt);
00054 if (Myrank==0){
00055 fprintf (stdout,"\n\n\n Udaje o dobach vypoctu \n");
00056 fprintf (stdout,"\n\n celkova doba vypoctu %ld",et-bt);
00057 }
00058
00059
00060 fprintf (Out,"\n");
00061 fclose (in); fclose (Out);
00062
00063 fprintf (stdout,"\n"); fprintf (stderr,"\n");
00064
00065 MPI_Finalize ();
00066
00067 }