59 lines
1.5 KiB
C
59 lines
1.5 KiB
C
/*** B4SOI 12/16/2010 Released by Tanvir Morshed ***/
|
|
|
|
|
|
/**********
|
|
* Copyright 2010 Regents of the University of California. All rights reserved.
|
|
* Authors: 1998 Samuel Fung, Dennis Sinitsky and Stephen Tang
|
|
* Authors: 1999-2004 Pin Su, Hui Wan, Wei Jin, b3soimdel.c
|
|
* Authors: 2005- Hui Wan, Xuemei Xi, Ali Niknejad, Chenming Hu.
|
|
* Authors: 2009- Wenwei Yang, Chung-Hsun Lin, Ali Niknejad, Chenming Hu.
|
|
* File: b4soimdel.c
|
|
* Modified by Hui Wan, Xuemei Xi 11/30/2005
|
|
* Modified by Wenwei Yang, Chung-Hsun Lin, Darsen Lu 03/06/2009
|
|
* Modified by Tanvir Morshed 09/22/2009
|
|
* Modified by Tanvir Morshed 12/31/2009
|
|
**********/
|
|
|
|
#include "ngspice/ngspice.h"
|
|
|
|
#include "b4soidef.h"
|
|
#include "ngspice/sperror.h"
|
|
#include "ngspice/suffix.h"
|
|
|
|
int
|
|
B4SOImDelete(
|
|
GENmodel **inModel,
|
|
IFuid modname,
|
|
GENmodel *kill)
|
|
{
|
|
B4SOImodel **model = (B4SOImodel**)inModel;
|
|
B4SOImodel *modfast = (B4SOImodel*)kill;
|
|
B4SOIinstance *here;
|
|
B4SOIinstance *prev = NULL;
|
|
B4SOImodel **oldmod;
|
|
|
|
oldmod = model;
|
|
for (; *model ; model = &((*model)->B4SOInextModel))
|
|
{ if ((*model)->B4SOImodName == modname ||
|
|
(modfast && *model == modfast))
|
|
goto delgot;
|
|
oldmod = model;
|
|
}
|
|
return(E_NOMOD);
|
|
|
|
delgot:
|
|
*oldmod = (*model)->B4SOInextModel; /* cut deleted device out of list */
|
|
for (here = (*model)->B4SOIinstances; here; here = here->B4SOInextInstance)
|
|
{
|
|
if (here->B4SOIowner != ARCHme) continue;
|
|
if(prev) FREE(prev);
|
|
prev = here;
|
|
}
|
|
if(prev) FREE(prev);
|
|
FREE(*model);
|
|
return(OK);
|
|
}
|
|
|
|
|
|
|