luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

analysis/cktpname.c, #4/4, cleanup

This commit is contained in:
rlar 2018-02-03 13:07:29 +01:00
parent 30550370fb
commit 668123ae44
1 changed files with 9 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/spicelib/analysis/cktpname.c
View File

@ -2,14 +2,12 @@
Copyright 1990 Regents of the University of California. All rights reserved.
Author: 1985 Thomas L. Quarles
**********/
/*
*/
/*
* CKTpName()
*
* Take a parameter by Name and set it on the specified device
*/
/*
* CKTpName()
*
* Take a parameter by Name and set it on the specified device
*/
#include "ngspice/ngspice.h"
#include "ngspice/ifsim.h"
@ -19,32 +17,19 @@ Author: 1985 Thomas L. Quarles
#include "ngspice/sperror.h"
/* ARGSUSED */
int
CKTpName(char *parm, IFvalue *val, CKTcircuit *ckt, int dev, char *name, GENinstance **fast)
/* the name of the parameter to set */
/* the parameter union containing the value to set */
/* the circuit this device is a member of */
/* the device type code to the device being parsed */
/* the name of the device being parsed */
/* direct pointer to device being parsed */
{
IFdevice *device = &(DEVices[dev]->DEVpublic);
int error; /* int to store evaluate error return codes in */
IFparm *p = device->instanceParms;
IFparm *p_end = p + *(device->numInstanceParms);
NG_IGNORE(name);
for(; p < p_end ; p++) {
if(!strcmp(parm, p->keyword)) {
error = CKTparam(ckt, *fast,
p->id, val,
NULL);
return error;
}
}
for (; p < p_end; p++)
if (!strcmp(parm, p->keyword))
return CKTparam(ckt, *fast, p->id, val, NULL);
return E_BADPARM;
}