00001 #include "dloadn.h"
00002 #include "global.h"
00003 #include "genfile.h"
00004 #include "gfunct.h"
00005 #include <string.h>
00006
00007
00008
00009
00010
00011
00012
00013
00014 dloadn::dloadn()
00015 {
00016 idn = 0L;
00017 gf = NULL;
00018 }
00019
00020
00021
00022
00023
00024
00025
00026
00027 dloadn::~dloadn()
00028 {
00029 delete [] gf;
00030 }
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047 long dloadn::read(XFILE *in)
00048 {
00049 long i,ndofn;
00050
00051 xfscanf(in, "%ld",&idn);
00052 if ((idn<1) || (idn>Mt->nn))
00053 {
00054 print_err("number of loaded node is out of range <1,%ld>", __FILE__, __LINE__, __func__, Mt->nn);
00055 abort();
00056 }
00057 idn--;
00058 ndofn = Mt->give_ndofn (idn);
00059 gf = new gfunct[ndofn];
00060 memset(gf, 0, sizeof(*gf)*ndofn);
00061
00062 for (i=0; i<ndofn; i++)
00063 gf[i].read(in);
00064
00065 return(0);
00066 }
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081 long dloadn::print(FILE *out)
00082 {
00083 long i,ndofn;
00084
00085 fprintf(out, "\n\n %ld",idn+1);
00086
00087 ndofn = Mt->give_ndofn (idn);
00088
00089 for(i=0; i<ndofn; i++)
00090 gf[i].print(out);
00091
00092 return(0);
00093 }
00094
00095
00096
00097
00098
00099
00100
00101
00102
00103
00104
00105
00106
00107
00108 double dloadn::getval(double t, long id)
00109 {
00110 long ndofn = Mt->give_ndofn(idn);
00111 double ret;
00112
00113 if ((id < 0) || (id >= ndofn))
00114 {
00115 print_err("required load component id=%ld is out of range <0;%ld>",
00116 __FILE__, __LINE__, __func__, id, ndofn);
00117 abort();
00118 }
00119
00120 ret = gf[id].getval(t);
00121
00122 return(ret);
00123 }