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 }