int
OUTPparam(int param, IFvalue *value, void *inCard)
{
OUTPcard *card = (OUTPcard *)inCard;
switch (param) {
case OUTP_ALL_DEBUG:
card->OUTPdcDebug = value->iValue;
card->OUTPdcDebugGiven = TRUE;
card->OUTPtranDebug = value->iValue;
card->OUTPtranDebugGiven = TRUE;
card->OUTPacDebug = value->iValue;
card->OUTPacDebugGiven = TRUE;
break;
case OUTP_DC_DEBUG:
card->OUTPdcDebug = value->iValue;
card->OUTPdcDebugGiven = TRUE;
break;
case OUTP_TRAN_DEBUG:
card->OUTPtranDebug = value->iValue;
card->OUTPtranDebugGiven = TRUE;
break;
case OUTP_AC_DEBUG:
card->OUTPacDebug = value->iValue;
card->OUTPacDebugGiven = TRUE;
break;
case OUTP_GEOM:
card->OUTPgeom = value->iValue;
card->OUTPgeomGiven = TRUE;
break;
case OUTP_MESH:
card->OUTPmesh = value->iValue;
card->OUTPmeshGiven = TRUE;
break;
case OUTP_MATERIAL:
card->OUTPmaterial = value->iValue;
card->OUTPmaterialGiven = TRUE;
break;
case OUTP_GLOBALS:
card->OUTPglobals = value->iValue;
card->OUTPglobalsGiven = TRUE;
break;
case OUTP_STATS:
card->OUTPstats = value->iValue;
card->OUTPstatsGiven = TRUE;
break;
case OUTP_ROOTFILE:
card->OUTProotFile = tildexpand(value->sValue); /*xxx*/
card->OUTProotFileGiven = TRUE;
break;
case OUTP_RAWFILE:
card->OUTPfileType = RAWFILE;
card->OUTPfileTypeGiven = TRUE;
break;
case OUTP_HDF:
return(E_UNSUPP);
break;
case OUTP_DOPING:
card->OUTPdoping = value->iValue;
card->OUTPdopingGiven = TRUE;
break;
case OUTP_PSI:
card->OUTPpsi = value->iValue;
card->OUTPpsiGiven = TRUE;
break;
case OUTP_EQU_PSI:
card->OUTPequPsi = value->iValue;
card->OUTPequPsiGiven = TRUE;
break;
case OUTP_VAC_PSI:
card->OUTPvacPsi = value->iValue;
card->OUTPvacPsiGiven = TRUE;
break;
case OUTP_N_CONC:
card->OUTPnConc = value->iValue;
card->OUTPnConcGiven = TRUE;
break;
case OUTP_P_CONC:
card->OUTPpConc = value->iValue;
card->OUTPpConcGiven = TRUE;
break;
case OUTP_PHIN:
card->OUTPphin = value->iValue;
card->OUTPphinGiven = TRUE;
break;
case OUTP_PHIP:
card->OUTPphip = value->iValue;
card->OUTPphipGiven = TRUE;
break;
case OUTP_PHIC:
card->OUTPphic = value->iValue;
card->OUTPphicGiven = TRUE;
break;
case OUTP_PHIV:
card->OUTPphiv = value->iValue;
card->OUTPphivGiven = TRUE;
break;
case OUTP_J_C:
card->OUTPjc = value->iValue;
card->OUTPjcGiven = TRUE;
break;
case OUTP_J_D:
card->OUTPjd = value->iValue;
card->OUTPjdGiven = TRUE;
break;
case OUTP_J_N:
card->OUTPjn = value->iValue;
card->OUTPjnGiven = TRUE;
break;
case OUTP_J_P:
card->OUTPjp = value->iValue;
card->OUTPjpGiven = TRUE;
break;
case OUTP_J_T:
card->OUTPjt = value->iValue;
card->OUTPjtGiven = TRUE;
break;
case OUTP_U_NET:
card->OUTPuNet = value->iValue;
card->OUTPuNetGiven = TRUE;
break;
case OUTP_MUN:
card->OUTPmun = value->iValue;
card->OUTPmunGiven = TRUE;
break;
case OUTP_MUP:
card->OUTPmup = value->iValue;
card->OUTPmupGiven = TRUE;
break;
default:
return(E_BADPARM);
break;
}
return(OK);
}
char *
cp_tildexpand(char *s)
{
return tildexpand(s);
}