00001 #include "descript.h"
00002 #include <stdio.h>
00003
00004
00005 descript::descript()
00006 {
00007 topf[0] = matf[0] = crf[0] = icf[0] = '\0';
00008
00009 meshfmt = sifel;
00010 paral = 0;
00011 redgn = 0;
00012 matsec = crssec = no;
00013 matstr = crsstr = no;
00014 matkwd = crskwd = no;
00015 inicdf = no;
00016 }
00017
00018
00019
00020 descript::~descript()
00021 {
00022 }
00023
00024
00025
00026 long descript::print(FILE *out)
00027 {
00028 fprintf(out, "%s\n", topf);
00029 if (matsec == no)
00030 fprintf(out, "%s\n", matf);
00031 if (crssec == no)
00032 fprintf(out, "%s\n", crf);
00033
00034 fprintf(out, "mesh_format %d # mesh format indicator\n", int(meshfmt));
00035 fprintf(out, "edge_numbering %ld # edge/surface property on elements indicator\n", redgn);
00036
00037 if (inicdf == yes)
00038 {
00039 fprintf(out, "inicd_file %d\n", inicdf);
00040 fprintf(out, "%s\n", icf);
00041 }
00042
00043 if ((matstr == no) || (matkwd == yes))
00044 {
00045 fprintf(out, "read_mat_strings %d\n", matstr);
00046 fprintf(out, "read_mat_kwd %d\n", matkwd);
00047 }
00048
00049 if ((crsstr == no) || (crskwd == yes))
00050 {
00051 fprintf(out, "read_crs_strings %d\n", crsstr);
00052 fprintf(out, "read_crs_kwd %d\n", crskwd);
00053 }
00054
00055 return 0;
00056 }
