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