00001
00002
00003
00004
00005
00006
00007 #include <stdio.h>
00008 #include <stdlib.h>
00009 #include <math.h>
00010 #include "aliast.h"
00011 #include "twomediac.h"
00012 #include "coupmatu.h"
00013 #include "coupmatl.h"
00014 #include "globalc.h"
00015 #include "multiphasec.h"
00016 #include "consol_awf2.h"
00017
00018 medc2::medc2()
00019 {}
00020 medc2::~medc2()
00021 {}
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033 void medc2::matcond_u (matrix &d,long ri,long ci,long ipp)
00034 {
00035 long i;
00036
00037 i = Cmu->ip[ipp].idm;
00038
00039 switch (Cp->mednam){
00040 case mech_moisture:{
00041
00042 switch (Cmu->ip[ipp].tm){
00043 case consolawf2c:{
00044 Cmu->consol_awf2c[i].matcond_u(d,ri,ci,ipp);
00045 break;
00046 }
00047 default:{
00048 fprintf (stderr,"\n\n unknown material type is required in function (%s, line %d).\n",__FILE__,__LINE__);
00049 }
00050 }
00051 break;
00052 }
00053 default:{
00054 fprintf (stderr,"\n\n unknown media name is required in function (%s, line %d).\n",__FILE__,__LINE__);
00055 }
00056 }
00057 }
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069 void medc2::matcap_u (matrix &d,long ri,long ci,long ipp)
00070 {
00071 long i;
00072
00073 i = Cmu->ip[ipp].idm;
00074
00075 switch (Cp->mednam){
00076 case mech_moisture:{
00077
00078 switch (Cmu->ip[ipp].tm){
00079 case consolawf2c:{
00080 Cmu->consol_awf2c[i].matcap_u(d,ri,ci,ipp);
00081 break;
00082 }
00083 default:{
00084 fprintf (stderr,"\n\n unknown material type is required in function (%s, line %d).\n",__FILE__,__LINE__);
00085 }
00086 }
00087 break;
00088 }
00089 default:{
00090 fprintf (stderr,"\n\n unknown media name is required in function (%s, line %d).\n",__FILE__,__LINE__);
00091 }
00092 }
00093 }
00094
00095
00096
00097
00098
00099
00100
00101
00102
00103
00104
00105
00106 void medc2::matcond_l (matrix &d,long ri,long ci,long ipp)
00107 {
00108 long i;
00109
00110 i = Cml->ip[ipp].idm;
00111
00112 switch (Cp->mednam){
00113 case mech_moisture:{
00114
00115 switch (Cml->ip[ipp].tm){
00116 case consolawf2c:{
00117 Cml->consol_awf2c[i].matcond_l(d,ri,ci,ipp);
00118 break;
00119 }
00120 default:{
00121 fprintf (stderr,"\n\n unknown material type is required in function (%s, line %d).\n",__FILE__,__LINE__);
00122 }
00123 }
00124 break;
00125 }
00126 default:{
00127 fprintf (stderr,"\n\n unknown media name is required in function (%s, line %d).\n",__FILE__,__LINE__);
00128 }
00129 }
00130 }
00131
00132
00133
00134
00135
00136
00137
00138
00139
00140
00141
00142 void medc2::matcap_l (matrix &d,long ri,long ci,long ipp)
00143 {
00144 long i;
00145
00146 i = Cml->ip[ipp].idm;
00147
00148 switch (Cp->mednam){
00149 case mech_moisture:{
00150
00151 switch (Cml->ip[ipp].tm){
00152 case consolawf2c:{
00153 Cml->consol_awf2c[i].matcap_l(d,ri,ci,ipp);
00154 break;
00155 }
00156 default:{
00157 fprintf (stderr,"\n\n unknown material type is required in function (%s, line %d).\n",__FILE__,__LINE__);
00158 }
00159 }
00160 break;
00161 }
00162 default:{
00163 fprintf (stderr,"\n\n unknown media name is required in function (%s, line %d).\n",__FILE__,__LINE__);
00164 }
00165 }
00166 }
00167
00168
00169
00170
00171
00172
00173
00174
00175
00176
00177 void medc2::rhs_u1 (matrix &d,long ri,long ci,long ipp)
00178 {
00179 long i;
00180
00181 i = Cmu->ip[ipp].idm;
00182
00183 switch (Cp->mednam){
00184 case mech_moisture:{
00185
00186 switch (Cmu->ip[ipp].tm){
00187 case consolawf2c:{
00188 Cmu->consol_awf2c[i].rhs_volume(d,ri,ci,ipp);
00189 break;
00190 }
00191 default:{
00192 fprintf (stderr,"\n\n unknown material type is required in function (%s, line %d).\n",__FILE__,__LINE__);
00193 }
00194 }
00195 break;
00196 }
00197 default:{
00198 fprintf (stderr,"\n\n unknown media name is required in function (%s, line %d).\n",__FILE__,__LINE__);
00199 }
00200 }
00201 }