00001 #ifndef GLASGOWDAM_H
00002 #define GLASGOWDAM_H
00003
00004 #include "iotools.h"
00005 #include "alias.h"
00006 struct matrix;
00007 struct vector;
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023 class glasgowdam
00024 {
00025 public:
00026 glasgowdam ();
00027 ~glasgowdam ();
00028 void read (XFILE *in);
00029 void damfuncpar(long ipp, vector &eps, vector &kappa);
00030 double damfunction(long ipp,double tempr,double chi,vector &kappa);
00031 void compute_thermdilat (double t,double dt,matrix &eps);
00032 double thermdamfunction (long ipp,double tempr,vector &kappa);
00033 void matstiff (matrix &d,long ipp,long ido);
00034 void nlstresses (long ipp,long im,long ido);
00035 void updateval (long ipp,long im,long ido);
00036
00037
00038 paramf_type ft;
00039
00040
00041 double st;
00042
00043 double gf0;
00044
00045 double k;
00046
00047 double lc;
00048
00049 double reftemp;
00050 };
00051
00052 #endif