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 }