/**********
Copyright 1990 Regents of the University of California.  All rights reserved.
Author: 1985 Gordon Jacobs
Modified: 2001 Jon Englebert
**********/
/*
 */

#include "ngspice/ngspice.h"
#include "ngspice/ifsim.h"
#include "cswdefs.h"
#include "ngspice/sperror.h"
#include "ngspice/suffix.h"


int
CSWmParam(int param, IFvalue *value, GENmodel *inModel)
{
    CSWmodel *model = (CSWmodel*)inModel;
    switch(param) {
        case CSW_CSW:
            /* just says that this is a switch */
            break;
        case CSW_RON:
            model->CSWonResistance = value->rValue;
            model->CSWonConduct = 1.0/(value->rValue);
            model->CSWonGiven = TRUE;
            break;
        case CSW_ROFF:
            model->CSWoffResistance = value->rValue;
            model->CSWoffConduct = 1.0/(value->rValue);
            model->CSWoffGiven = TRUE;
            break;
        case CSW_ITH:
            model->CSWiThreshold = value->rValue;
            model->CSWthreshGiven = TRUE;
            break;
        case CSW_IHYS:
            /* take absolute value of hysteresis voltage */
            /* model->CSWiHysteresis = fabs(value->rValue); */
            model->CSWiHysteresis = value->rValue;
            model->CSWhystGiven = TRUE;
            break;
        default:
            return(E_BADPARM);
    }
    return(OK);
}