00001 #define EXTERN
00002 #include "pglobalt.h"
00003 #include "seqfilest.h"
00004 #include "psolvert.h"
00005 #include "ptrfelinit.h"
00006
00007 #include <stdio.h>
00008 #include <string.h>
00009 #include <time.h>
00010 #include "mpi.h"
00011
00012 int main (int argc,char *argv[])
00013 {
00014 time_t bt,et;
00015 stochdrivert *stochd;
00016 stochd = new stochdrivert;
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 MPI_Get_processor_name(proc_namet,&nameLengtht);
00025
00026
00027 ptrfel_init (argc,(const char **)(argv),stochd);
00028
00029
00030 par_solve_trfel_problem ();
00031
00032 et = time (NULL);
00033
00034 fprintf (Outt,"\n\n\n Udaje o dobach vypoctu \n");
00035 fprintf (Outt,"\n\n celkova doba vypoctu %ld",et-bt);
00036 if (Myrank==0){
00037 fprintf (stdout,"\n\n\n Udaje o dobach vypoctu \n");
00038 fprintf (stdout,"\n\n celkova doba vypoctu %ld",et-bt);
00039 }
00040
00041 fprintf (Outt,"\n");
00042 fclose (Outt);
00043
00044 fprintf (stdout,"\n"); fprintf (stderr,"\n");
00045
00046 MPI_Finalize ();
00047
00048 delete Tp;
00049 delete Ptp;
00050 delete Psolt;
00051 delete Gtt;
00052 delete Tt;
00053 delete Tm;
00054 delete Tc;
00055 delete Tb;
00056
00057 }