00001 #include <stdio.h>
00002 #include <stdlib.h>
00003 #include <string.h>
00004 #include "hangnode.h"
00005
00006
00007
00008
00009
00010
00011
00012
00013 hangnode::hangnode()
00014 {
00015 nmn = 0;
00016 mnodes = NULL;
00017 natcoord = NULL;
00018 masentity = noel;
00019 }
00020
00021
00022
00023
00024
00025
00026
00027
00028 hangnode::~hangnode()
00029 {
00030 delete [] mnodes;
00031 delete [] natcoord;
00032 }
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045 long hangnode::read(XFILE *in)
00046 {
00047 long i;
00048
00049 nmn = 0;
00050 xfscanf(in, "%ld", &nmn);
00051 nmn = -nmn;
00052 if (nmn < 1)
00053 return 1;
00054 mnodes = new long[nmn];
00055 memset(mnodes, 0, sizeof(*mnodes)*nmn);
00056 natcoord = new double[3];
00057 for (i=0; i<nmn; i++)
00058 xfscanf(in, "%ld", mnodes+i);
00059 xfscanf(in, "%le %le %le", natcoord, natcoord+1, natcoord+2);
00060 xfscanf(in, "%m", >ypel_kwdset, &masentity);
00061 return 0;
00062 }
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074 long hangnode::print(FILE *out)
00075 {
00076 long i;
00077
00078 fprintf(out, " %ld", -nmn);
00079 for (i=0; i<nmn; i++)
00080 fprintf(out, " %ld", mnodes[i]);
00081 fprintf(out, " %le %le %le", natcoord[0], natcoord[1], natcoord[2]);
00082 fprintf(out, " %d", masentity);
00083 return 0;
00084 }