00001 #define EXTERN
00002 #include "pglobal.h"
00003 #include "seqfilesm.h"
00004 #include "psolverm.h"
00005 #include "pmefelinit.h"
00006 #include "mpi.h"
00007 #include <stdio.h>
00008 #include <string.h>
00009 #include <time.h>
00010
00011 int main (int argc, char *argv[])
00012 {
00013 time_t bt,et;
00014 stochdriver *stochd;
00015 stochd = new stochdriver;
00016
00017 St = NULL ;
00018
00019 bt = time (NULL);
00020
00021
00022 MPI_Init(&argc,&argv);
00023 MPI_Comm_rank(MPI_COMM_WORLD,&Myrank);
00024 MPI_Comm_size(MPI_COMM_WORLD,&Nproc);
00025 MPI_Get_processor_name(proc_name,&nameLength);
00026
00027 fprintf (stdout,"\n MYRANK je %d on %s",Myrank,proc_name);
00028
00029
00030 pmefel_init (argc,(const char **)(argv),stochd);
00031
00032
00033 par_solve_mefel_problem ();
00034
00035
00036 et = time (NULL);
00037
00038
00039
00040 if (Myrank==0){
00041 fprintf (stdout,"\n\n\n Udaje o dobach vypoctu \n");
00042 fprintf (stdout,"\n\n celkova doba vypoctu %ld",et-bt);
00043 }
00044
00045
00046
00047
00048
00049 fprintf (stdout,"\n"); fprintf (stderr,"\n");
00050
00051 MPI_Finalize ();
00052
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081
00082
00083
00084
00085
00086
00087
00088
00089
00090
00091
00092
00093
00094
00095
00096
00097
00098
00099
00100
00101
00102
00103
00104 return 0;
00105 }