00001 #include <stdio.h>
00002 #include <stdlib.h>
00003 #include <time.h>
00004 #include <string.h>
00005
00006 #define EXTERN
00007 #define EXTENDED_GLOBINC
00008 #include "global.h"
00009
00010 #include "stochdriver.h"
00011 #include "mefelinit.h"
00012 #include "solverm.h"
00013
00014 int main (int argc,const char *argv[])
00015 {
00016 time_t bt,et;
00017 long hod,min;
00018 double sec = clock();
00019 stochdriver *stochd;
00020 stochd = new stochdriver;
00021
00022 St = NULL ;
00023
00024 bt = time (NULL);
00025
00026 mefel_init (argc, argv, stochd);
00027
00028
00029
00030
00031 solve_mefel_problem (stochd);
00032
00033
00034 et = time (NULL);
00035 fprintf (Out,"\n\n\n Data about computation time \n");
00036 fprintf (Out,"\n\n Total time of computation %ld",et-bt);
00037
00038 sec = (clock() - sec) / (double)CLOCKS_PER_SEC;
00039 hod = (long)sec/3600; sec -= hod*3600;
00040 min = (long)sec/60; sec -= min*60;
00041 fprintf (stdout,"\n ----------------------------------");
00042 fprintf (stdout,"\n Consumed time by MEFEL %ld:%ld:%5f",hod,min,sec);
00043 fprintf (stdout,"\n ----------------------------------\n");
00044
00045 fprintf (stdout,"\n ----------------------------------");
00046 fprintf (stdout,"\n Consumed time by MEFEL %ld",et-bt);
00047 fprintf (stdout,"\n ----------------------------------\n");
00048
00049 fprintf (Out,"\n ----------------------------------");
00050 fprintf (Out,"\n Consumed time by MEFEL %ld:%ld:%5f",hod,min,sec);
00051 fprintf (Out,"\n ----------------------------------\n");
00052
00053 fprintf (stdout,"\n\n"); fprintf (stderr,"\n\n"); fprintf (Out,"\n");
00054 fclose (Out);
00055
00056
00057 delete stochd;
00058
00059 delete Mp;
00060 delete Gtm;
00061 delete Mt;
00062 delete Mm;
00063 delete Mc;
00064 delete Mb;
00065
00066 delete Lsrs;
00067 delete Ada;
00068
00069 delete Outdm;
00070 delete Fsd;
00071
00072 delete Smat;
00073 delete Mmat;
00074 delete Dmat;
00075 delete Ismat;
00076 delete Amat;
00077
00078 delete Bar2d;
00079 delete Bar3d;
00080 delete Beam2d;
00081 delete Beam3d;
00082 delete Spring;
00083 delete Pelt;
00084 delete Peqt;
00085 delete Perlt;
00086 delete Pelq;
00087 delete Peqq;
00088 delete Perlq;
00089 delete Pesqt;
00090 delete Cct;
00091 delete Dkt;
00092 delete Dst;
00093 delete Q4pl;
00094 delete Asymlq;
00095 delete Asymqq;
00096 delete Asymlt;
00097 delete Shtr;
00098 delete Shq;
00099 delete Ltet;
00100 delete Lhex;
00101 delete Qhex;
00102 delete Spltr;
00103 delete Splq;
00104
00105 return 0;
00106 }