function declarator to new format

This commit is contained in:
h_vogt 2009-11-29 15:23:51 +00:00
parent 486ff89800
commit 73d241fe69
2 changed files with 42 additions and 25 deletions

View File

@ -2,6 +2,7 @@
* com_hardcopy.c, postsc.c, windisp.c: plotting with black or white background,
postscript to file with hardcopy command or menue entry from plot window
(still buggy with X11)
psmodel.c: changed the declarator to new format
2009-11-27 Dietmar Warning
* a bunch of files, most in device library: changed the declarator to new format to

View File

@ -207,8 +207,21 @@ double *Gds)
/*-----------
| code based on Statz et. al. capacitance model, IEEE Tran ED Feb 87 */
static double
qgg(vgs, vgd, gamma, pb, alpha, vto, vmax, xc, cgso, cgdo, cgs, cgd)
double vgs, vgd, gamma, pb, alpha, vto, vmax, xc, cgso, cgdo, *cgs, *cgd;
qgg(
double vgs,
double vgd,
double gamma,
double pb,
double alpha,
double vto,
double vmax,
double xc,
double cgso,
double cgdo,
double *cgs,
double *cgd
)
/*vgs, vgd, gamma, pb, alpha, vto, vmax, xc, cgso, cgdo, *cgs, *cgd;*/
{
double qrt, ext, Cgso, cpm, cplus, cminus;
double vds = vgs-vgd;
@ -238,14 +251,15 @@ double vgs, vgd, gamma, pb, alpha, vto, vmax, xc, cgso, cgdo, *cgs, *cgd;
/*-----------
| call during ac analysis initialisation or during transient analysis */
void
PScharge(ckt, model, here, vgs, vgd, capgs, capgd)
cref *ckt;
modl *model;
inst *here;
double vgs;
double vgd;
double *capgs;
double *capgd;
PScharge(
cref *ckt,
modl *model,
inst *here,
double vgs,
double vgd,
double *capgs,
double *capgd
)
{
#define QGG(a,b,c,d) qgg(a,b,gac,phib,alpha,vto,vmax,xc,czgs,czgd,c,d)
/* double qgg(); */
@ -282,18 +296,19 @@ double *capgd;
/*-----------
| call for each frequency in ac analysis */
void
PSacload(ckt, model, here, vgs, vgd, ids, omega, Gm, xGm, Gds, xGds)
cref *ckt;
modl *model;
inst *here;
double vgs;
double vgd;
double ids;
double omega;
double *Gm;
double *xGm;
double *Gds;
double *xGds;
PSacload(
/*cref *ckt,*/
modl *model,
inst *here,
double vgs,
double vgd,
double ids,
double omega,
double *Gm,
double *xGm,
double *Gds,
double *xGds
)
{
double arg;
double vds = vgs - vgd;
@ -343,9 +358,10 @@ double *xGds;
void /* call when temperature changes */
PSinstanceinit(model, here)
modl *model;
inst *here;
PSinstanceinit(
modl *model,
inst *here
)
{
#ifndef PARAM_CAST /* allow casting to parameter type */
#define PARAM_CAST /* if not specified then don't cast */