IRResultType
HydratingIsoHeatMaterial :: initializeFrom(InputRecord *ir)
{
IRResultType result; // Required by IR_GIVE_FIELD macro
int value;
double dvalue;
// set k, c - necessary; rc beton Hellmich 2428 kJ/m3
result = IsotropicHeatTransferMaterial :: initializeFrom(ir);
if ( result != IRRT_OK ) return result;
// setup hydration model
result = HydrationModelInterface :: initializeFrom(ir);
if ( result != IRRT_OK ) return result;
dvalue = -2.;
IR_GIVE_OPTIONAL_FIELD(ir, dvalue, _IFT_HydratingIsoHeatMaterial_hydration);
if ( dvalue >= 0. ) {
hydration = 1;
} else {
hydration = 0;
}
if ( hydration ) {
// mixture type: 1 - mtLafarge, 2 - mtHuber, 3 - mtC60
value = 0;
IR_GIVE_OPTIONAL_FIELD(ir, value, _IFT_HydratingIsoHeatMaterial_mix);
if ( !value ) {
value = mtLafarge;
}
setMixture( ( MixtureType ) value );
printf("\nHydratingHeatMat %d: using mixture %d.\n", giveNumber(), value);
if ( ir->hasField(_IFT_HydratingIsoHeatMaterial_noHeat) ) {
hydrationHeat = 0;
printf( "HydratingHeatMat %d: hydration heat neglected.\n", giveNumber() );
} else {
hydrationHeat = 1;
}
if ( hydrationHeat ) {
// include hydration internal source in LHS?
if ( ir->hasField(_IFT_HydratingIsoHeatMaterial_noLHS) ) {
hydrationLHS = 0;
printf( "HydratingHeatMat %d: hydration heat not included in LHS.\n", giveNumber() );
} else {
hydrationLHS = 1;
}
}
}
return IRRT_OK;
}
void
FEMComponent :: error(const char *file, int line, const char *format, ...) const
{
char buffer [ MAX_ERROR_MSG_LENGTH ];
va_list args;
va_start(args, format);
vsprintf(buffer, format, args);
va_end(args);
__OOFEM_ERROR4(file, line, "Class: %s, number: %d\n%s", giveClassName(), giveNumber(), buffer);
}
