00001 #include <string.h>
00002 #include <math.h>
00003 #include <stdio.h>
00004 #include "outdriverc.h"
00005 #include "couptop.h"
00006 #include "probdescc.h"
00007 #include "intools.h"
00008 #include "globalc.h"
00009
00010
00011
00012
00013 outdriverc::outdriverc()
00014 {
00015 outfn[0] = 0x0;
00016 }
00017
00018
00019
00020
00021
00022
00023 outdriverc::~outdriverc()
00024 {
00025 }
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042 long outdriverc::read(XFILE *in)
00043 {
00044
00045
00046
00047
00048
00049
00050
00051
00052
00053 return 0;
00054 }
00055
00056
00057
00058
00059
00060
00061
00062 void outdriverc::print(FILE *out)
00063 {
00064 fprintf(out, "\n%s\n", outfn);
00065 }
00066
00067
00068
00069
00070
00071
00072
00073 void outdriverc::print_header(FILE *out)
00074 {
00075 fprintf(out, "%15s **** * **** **** *\n", " ");
00076 fprintf(out, "%15s * * * * *\n", " ");
00077 fprintf(out, "%15s * * *** *** *\n", " ");
00078 fprintf(out, "%15s * * * * *\n", " ");
00079 fprintf(out, "%15s**** * * **** **** METR OUTPUT\n", " ");
00080
00081 fprintf(out, "\n%s\n", Cp->name);
00082 fprintf(out, "\n\n\n\n\n");
00083 }
00084
00085
00086
00087
00088
00089
00090
00091
00092
00093
00094 void outdriverc::print_newstep(FILE *out, long step, double time)
00095 {
00096 long i;
00097 for (i=0; i<53; i++)
00098 fprintf(out, "*");
00099 fprintf(out, "\n%10sStep number=% ld, time/load step=% g\n", " ", step, time);
00100 for (i=0; i<53; i++)
00101 fprintf(out, "*");
00102 fprintf(out, "\n\n\n\n");
00103 }
00104
00105
00106
00107
00108
00109
00110
00111
00112
00113
00114 void outdriverc::print_out(FILE *out, long lcid, long istep, double time)
00115 {
00116 }
00117
00118
00119
00120
00121
00122
00123
00124
00125
00126
00127
00128
00129 void outdriverc::print_diags(long lcid, double lambda, long istep, double *fi)
00130 {
00131 }
00132
00133
00134
00135
00136
00137
00138
00139
00140
00141
00142
00143
00144
00145 void outdriverc::print_graphics(FILE *out, long lcid, double lambda, long istep, double *fi)
00146 {
00147 }