/**********Copyright 1991 Regents of the University of California.  All rights reserved.Author:	1991 David A. Gates, U. C. Berkeley CAD GroupModified: 2001 Paolo Nenzi**********/#include "ngspice.h"#include "numcards.h"#include "numgen.h"#include "numenum.h"#include "mobdefs.h"#include "sperror.h"#include "devdefs.h"#include "suffix.h"extern int MOBnewCard(void**,void*);extern int MOBparam(int,IFvalue*,void*);IFparm MOBpTable[] = {  IP("material",MOB_MATERIAL,	IF_INTEGER, "Material index"),  IP("electron",MOB_ELEC,	IF_FLAG,    "Electron mobility flag"),  IP("hole",    MOB_HOLE,	IF_FLAG,    "Hole mobility flag"),  IP("majority",MOB_MAJOR,	IF_FLAG,    "Majority carrier flag"),  IP("minority",MOB_MINOR,	IF_FLAG,    "Minority carrier flag"),  IP("mumax",	MOB_MUMAX,	IF_REAL,    "Maximum bulk mobility"),  IP("mumin",	MOB_MUMIN,	IF_REAL,    "Minimum bulk mobility"),  IP("ntref",   MOB_NTREF,	IF_REAL,    "Ionized impurity ref. conc."),  IP("ntexp",   MOB_NTEXP,	IF_REAL,    "Ionized impurity exponent"),  IP("vsat",	MOB_VSAT,	IF_REAL,    "Saturation velocity"),  IP("vwarm",   MOB_VWARM,	IF_REAL,    "Warm carrier ref. velocity"),  IP("mus",	MOB_MUS,	IF_REAL,    "Initial surface mobility"),  IP("ec.a",	MOB_EC_A,	IF_REAL,    "Surf. mobility critical field"),  IP("ec.b",	MOB_EC_B,	IF_REAL,    "Surf. mobility critical field #2"),  IP("concmodel",MOB_CONC_MOD,	IF_STRING,  "Concentration dep. model"),  IP("fieldmodel",MOB_FIELD_MOD,IF_STRING,  "Driving field dep. model"),  IP("init",    MOB_INIT,	IF_FLAG,    "Initialize with defaults")};IFcardInfo MOBinfo = {  "mobility",  "Specify parameters and types of mobility models",  NUMELEMS(MOBpTable),  MOBpTable,  MOBnewCard,  MOBparam,  NULL};intMOBnewCard(void **inCard, void *inModel){    MOBcard *tmpCard, *newCard;    GENnumModel *model = (GENnumModel *)inModel;    newCard = NEW( MOBcard );    if (!newCard) {        *inCard = (void *)NULL;        return(E_NOMEM);    }    newCard->MOBnextCard = (MOBcard *)NULL;    *inCard = (void *)newCard;    tmpCard = model->GENmobility;    if (!tmpCard) { /* First in list */        model->GENmobility = newCard;    } else {	/* Go to end of list */        while (tmpCard->MOBnextCard) tmpCard = tmpCard->MOBnextCard;	/* And add new card */	tmpCard->MOBnextCard = newCard;    }    return(OK);}intMOBparam(int param, IFvalue *value, void *inCard){    MOBcard *card = (MOBcard *)inCard;    switch (param) {	case MOB_MATERIAL:	    card->MOBmaterial = value->iValue;	    card->MOBmaterialGiven = TRUE;	    break;	case MOB_ELEC:	    if ( value->iValue ) {	        card->MOBcarrier = ELEC;	        card->MOBcarrierGiven = TRUE;	    } else {		if ( card->MOBcarrier == ELEC ) {		    card->MOBcarrier = -1;		    card->MOBcarrierGiven = FALSE;		}	    }	    break;	case MOB_HOLE:	    if ( value->iValue ) {	        card->MOBcarrier = HOLE;	        card->MOBcarrierGiven = TRUE;	    } else {		if ( card->MOBcarrier == HOLE ) {		    card->MOBcarrier = -1;		    card->MOBcarrierGiven = FALSE;		}	    }	    break;	case MOB_MAJOR:	    if ( value->iValue ) {	        card->MOBcarrType = MAJOR;	        card->MOBcarrTypeGiven = TRUE;	    } else {		if ( card->MOBcarrType == MAJOR ) {		    card->MOBcarrType = -1;		    card->MOBcarrTypeGiven = FALSE;		}	    }	    break;	case MOB_MINOR:	    if ( value->iValue ) {	        card->MOBcarrType = MINOR;	        card->MOBcarrTypeGiven = TRUE;	    } else {		if ( card->MOBcarrType == MINOR ) {		    card->MOBcarrType = -1;		    card->MOBcarrTypeGiven = FALSE;		}	    }	    break;	case MOB_MUMAX:	    card->MOBmuMax = value->rValue;	    card->MOBmuMaxGiven = TRUE;	    break;	case MOB_MUMIN:	    card->MOBmuMin = value->rValue;	    card->MOBmuMinGiven = TRUE;	    break;	case MOB_NTREF:	    card->MOBntRef = value->rValue;	    card->MOBntRefGiven = TRUE;	    break;	case MOB_NTEXP:	    card->MOBntExp = value->rValue;	    card->MOBntExpGiven = TRUE;	    break;	case MOB_VSAT:	    card->MOBvSat = value->rValue;	    card->MOBvSatGiven = TRUE;	    break;	case MOB_VWARM:	    card->MOBvWarm = value->rValue;	    card->MOBvWarmGiven = TRUE;	    break;	case MOB_MUS:	    card->MOBmus = value->rValue;	    card->MOBmusGiven = TRUE;	    break;	case MOB_EC_A:	    card->MOBecA = value->rValue;	    card->MOBecAGiven = TRUE;	    break;	case MOB_EC_B:	    card->MOBecB = value->rValue;	    card->MOBecBGiven = TRUE;	    break;	case MOB_CONC_MOD:	    if ( cinprefix( value->sValue, "ct", 1 ) ) {		card->MOBconcModel = CT;	        card->MOBconcModelGiven = TRUE;	    } else if ( cinprefix( value->sValue, "ar", 1 ) ) {		card->MOBconcModel = AR;	        card->MOBconcModelGiven = TRUE;	    } else if ( cinprefix( value->sValue, "uf", 1 ) ) {		card->MOBconcModel = UF;	        card->MOBconcModelGiven = TRUE;	    } else if ( cinprefix( value->sValue, "sg", 1 ) ) {		card->MOBconcModel = SG;	        card->MOBconcModelGiven = TRUE;	    } else if ( cinprefix( value->sValue, "ga", 1 ) ) {		card->MOBconcModel = GA;	        card->MOBconcModelGiven = TRUE;	    }	    break;	case MOB_FIELD_MOD:	    if ( cinprefix( value->sValue, "ct", 1 ) ) {		card->MOBfieldModel = CT;	        card->MOBfieldModelGiven = TRUE;	    } else if ( cinprefix( value->sValue, "ar", 1 ) ) {		card->MOBfieldModel = AR;	        card->MOBfieldModelGiven = TRUE;	    } else if ( cinprefix( value->sValue, "sg", 1 ) ) {		card->MOBfieldModel = SG;	        card->MOBfieldModelGiven = TRUE;	    } else if ( cinprefix( value->sValue, "ga", 1 ) ) {		card->MOBfieldModel = GA;	        card->MOBfieldModelGiven = TRUE;	    }	    break;	case MOB_INIT:	    card->MOBinit = value->iValue;	    card->MOBinitGiven = TRUE;	    break;	default:	    return(E_BADPARM);	    break;    }    return(OK);}