00001 #include "isotrmatc.h"
00002 #include "stochdrivert.h"
00003
00004 isotrmatc::isotrmatc (void)
00005 {
00006 k=0.0; c=0.0;
00007 }
00008 isotrmatc::~isotrmatc (void)
00009 {
00010
00011 }
00012
00013 void isotrmatc::read (XFILE *in)
00014 {
00015 xfscanf (in,"%lf %lf %lf %lf %lf",&c,&k,&e,&nu,&alpha);
00016 }
00017
00018
00019
00020
00021
00022
00023
00024
00025 double isotrmatc::get_k()
00026 {
00027 return(k);
00028 }
00029
00030
00031
00032
00033
00034
00035
00036 double isotrmatc::get_c()
00037 {
00038 return(c);
00039 }
00040
00041
00042
00043
00044
00045
00046
00047 double isotrmatc::get_e()
00048 {
00049 return(e);
00050 }
00051
00052
00053
00054
00055
00056
00057
00058 double isotrmatc::get_nu()
00059 {
00060 return(nu);
00061 }
00062
00063
00064
00065
00066
00067
00068
00069 double isotrmatc::get_alpha()
00070 {
00071 return(alpha);
00072 }
00073
00074 void isotrmatc::changeparam (atsel &atm,vector &val)
00075 {
00076 long i;
00077
00078 for (i=0;i<atm.num;i++){
00079 switch (atm.atrib[i]){
00080 case 0:{
00081 c=val[0];
00082 break;
00083 }
00084 case 1:{
00085 k=val[1];
00086 break;
00087 }
00088 case 2:{
00089 alpha=val[2];
00090 break;
00091 }
00092 default:{
00093 fprintf (stderr,"\n\n wrong number of atribute in function changeparam (%s, line %d).\n",__FILE__,__LINE__);
00094 }
00095 }
00096 }
00097 }