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