00001 #include <stdio.h>
00002 #include <stdlib.h>
00003 #include <time.h>
00004 #include <string.h>
00005
00006 #define EXTERN
00007 #include "globalt.h"
00008
00009 #include "stochdrivert.h"
00010 #include "trfelinit.h"
00011 #include "solvert.h"
00012
00013 int main (int argc, const char *argv[])
00014 {
00015 time_t bt,et;
00016 long hod,min;
00017 double sec = clock();
00018 stochdrivert stochd;
00019
00020 Stt = NULL;
00021 Kmat = NULL;
00022 Cmat = NULL;
00023 Jmat = NULL;
00024 Bmat = NULL;
00025 Lbt = NULL;
00026 Lbat = NULL;
00027 Qbt = NULL;
00028 Qbat = NULL;
00029 Ltt = NULL;
00030 Ltat = NULL;
00031 Lqt = NULL;
00032 Qqt = NULL;
00033 Qqat = NULL;
00034 Lqat = NULL;
00035 Ltett = NULL;
00036 Lht = NULL;
00037 Qht = NULL;
00038 G2d = NULL;
00039
00040 setvbuf(stdout, NULL, _IONBF, 0);
00041 setvbuf(stderr, NULL, _IONBF, 0);
00042
00043 bt = time (NULL);
00044
00045
00046 trfel_init (argc,argv,&stochd);
00047
00048
00049
00050
00051 solve_trfel_problem (&stochd);
00052
00053
00054 et = time (NULL);
00055 fprintf (Outt,"\n\n\n Udaje o dobach vypoctu \n");
00056 fprintf (Outt,"\n\n celkova doba vypoctu %ld",et-bt);
00057
00058 sec = (clock() - sec) / (double)CLOCKS_PER_SEC;
00059 hod = (long)sec/3600; sec -= hod*3600;
00060 min = (long)sec/60; sec -= min*60;
00061 fprintf (stdout,"\n ----------------------------------");
00062 fprintf (stdout,"\n Consumed time by TRFEL %2ld:%02ld:%05.2f",hod,min,sec);
00063 fprintf (stdout,"\n ----------------------------------\n");
00064
00065
00066
00067 delete Kmat;
00068 delete Cmat;
00069 delete Jmat;
00070 delete Bmat;
00071 delete Lbt;
00072 delete Lbat;
00073 delete Qbt;
00074 delete Qbat;
00075 delete Ltt;
00076 delete Ltat;
00077 delete Lqt;
00078 delete Qqt;
00079 delete Qqat;
00080 delete Lqat;
00081 delete Ltett;
00082 delete Lht;
00083 delete Qht;
00084
00085 delete Lsrst;
00086 delete Adat;
00087 delete Outdt;
00088 delete Tb;
00089 delete Tc;
00090 delete Tm;
00091 delete Tt;
00092 delete Gtt;
00093 delete Tp;
00094
00095
00096 fclose (Outt);
00097
00098
00099
00100 }