dloadfns.c

spice中支持多层次元件模型仿真的可单独运行的插件源码

						p->r2h11x,p->i2h11x,
	p->r2h11x,p->i2h11x,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2x,p->ih2f1f2x);
	temp +=
	      S2v2F12(p->cyy,p->r1h1y,p->i1h1y,
	p->r1h1y,p->i1h1y,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,
						p->r2h11y,p->i2h11y,
	p->r2h11y,p->i2h11y,
						p->h2f1f2y,p->ih2f1f2y,
	p->h2f1f2y,p->ih2f1f2y);
	temp +=
	      S2v2F12(p->czz,p->r1h1z,p->i1h1z,
	p->r1h1z,p->i1h1z,
						p->r1h2z,p->i1h2z,
	p->r1h2z,p->i1h2z,
						p->r2h11z,p->i2h11z,
	p->r2h11z,p->i2h11z,
						p->h2f1f2z,p->ih2f1f2z,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
              S2v2F12(p->cxy,p->r1h1x,p->i1h1x,
	p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,
						p->r2h11x,p->i2h11x,
	p->r2h11y,p->i2h11y,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2y,p->ih2f1f2y);
	      temp +=
	      S2v2F12(p->cyz,p->r1h1y,p->i1h1y,
	p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2z,p->i1h2z,
						p->r2h11y,p->i2h11y,
	p->r2h11z,p->i2h11z,
						p->h2f1f2y,p->ih2f1f2y,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
	      S2v2F12(p->cxz,p->r1h1x,p->i1h1x,
	p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2z,p->i1h2z,
						p->r2h11x,p->i2h11x,
	p->r2h11z,p->i2h11z,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
	      S3v2F12(p->cxxx,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1x,p->i1h1x,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2x,p->i1h2x)
	      +S3v2F12(p->cyyy,p->r1h1y,
	p->i1h1y,p->r1h1y,p->i1h1y,p->r1h1y,p->i1h1y,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,p->r1h2y,p->i1h2y);
	      temp +=
	      S3v2F12(p->czzz,p->r1h1z,
	p->i1h1z,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2z,p->i1h2z,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z)
	      +S3v2F12(p->cxxy,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2y,p->i1h2y);
	temp +=
	      S3v2F12(p->cxxz,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2z,p->i1h2z)
	      +S3v2F12(p->cxyy,p->r1h1x,
	p->i1h1x,p->r1h1y,p->i1h1y,p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,p->r1h2y,p->i1h2y);
	      temp +=
	      S3v2F12(p->cyyz,p->r1h1y,
	p->i1h1y,p->r1h1y,p->i1h1y,p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,p->r1h2z,p->i1h2z)
	      +S3v2F12(p->cxzz,p->r1h1x,
	p->i1h1x,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z);
	temp +=
	      S3v2F12(p->cyzz,p->r1h1y,
	p->i1h1y,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z)
	      +S3v2F12(p->cxyz,p->r1h1x,
	p->i1h1x,p->r1h1y,p->i1h1y,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,p->r1h2z,p->i1h2z);
						
	return(temp/3.); /* divided by 3 to get kernel (otherwise we get 3*kernel) */
}

double
DFi2F12(p)
DpassStr* p;
				/* 40 vars - 16 + 6 + 6 + 6 + 6 */
{
double temp;

	temp = S2i2F12(p->cxx,p->r1h1x,p->i1h1x,
	p->r1h1x,p->i1h1x,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,
						p->r2h11x,p->i2h11x,
	p->r2h11x,p->i2h11x,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2x,p->ih2f1f2x);
	temp +=
	      S2i2F12(p->cyy,p->r1h1y,p->i1h1y,
	p->r1h1y,p->i1h1y,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,
						p->r2h11y,p->i2h11y,
	p->r2h11y,p->i2h11y,
						p->h2f1f2y,p->ih2f1f2y,
	p->h2f1f2y,p->ih2f1f2y);
	temp +=
	      S2i2F12(p->czz,p->r1h1z,p->i1h1z,
	p->r1h1z,p->i1h1z,
						p->r1h2z,p->i1h2z,
	p->r1h2z,p->i1h2z,
						p->r2h11z,p->i2h11z,
	p->r2h11z,p->i2h11z,
						p->h2f1f2z,p->ih2f1f2z,
	p->h2f1f2z,p->ih2f1f2z);
	      temp +=
              S2i2F12(p->cxy,p->r1h1x,p->i1h1x,
	p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,
						p->r2h11x,p->i2h11x,
	p->r2h11y,p->i2h11y,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2y,p->ih2f1f2y);
	temp +=
	      S2i2F12(p->cyz,p->r1h1y,p->i1h1y,
	p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2z,p->i1h2z,
						p->r2h11y,p->i2h11y,
	p->r2h11z,p->i2h11z,
						p->h2f1f2y,p->ih2f1f2y,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
	      S2i2F12(p->cxz,p->r1h1x,p->i1h1x,
	p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2z,p->i1h2z,
						p->r2h11x,p->i2h11x,
	p->r2h11z,p->i2h11z,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
	      S3i2F12(p->cxxx,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1x,p->i1h1x,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2x,p->i1h2x);
	      temp +=
	      S3i2F12(p->cyyy,p->r1h1y,
	p->i1h1y,p->r1h1y,p->i1h1y,p->r1h1y,p->i1h1y,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,p->r1h2y,p->i1h2y)
	      +S3i2F12(p->czzz,p->r1h1z,
	p->i1h1z,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2z,p->i1h2z,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z);
	temp +=
	      S3i2F12(p->cxxy,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2y,p->i1h2y)
	      +S3i2F12(p->cxxz,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2z,p->i1h2z);
	temp +=
	      S3i2F12(p->cxyy,p->r1h1x,
	p->i1h1x,p->r1h1y,p->i1h1y,p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,p->r1h2y,p->i1h2y)
	      +S3i2F12(p->cyyz,p->r1h1y,
	p->i1h1y,p->r1h1y,p->i1h1y,p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,p->r1h2z,p->i1h2z);
	      temp +=
	      S3i2F12(p->cxzz,p->r1h1x,
	p->i1h1x,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z);
	      temp += S3i2F12(p->cyzz,p->r1h1y,
	p->i1h1y,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z)
	      +S3i2F12(p->cxyz,p->r1h1x,
	p->i1h1x,p->r1h1y,p->i1h1y,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,p->r1h2z,p->i1h2z);
						
	return(temp/3.); /* divided by 3 to get kernel (otherwise we get 3*kernel) */
}

double
D1n2F1(cxx,
			r1h1x,i1h1x)

			/* 12 variables */
double cxx;
double r1h1x,i1h1x;
{
double temp;
	
	temp = S2v2F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x);

	       return(temp);
}

double
D1n3F1(cxx,cxxx,
			r1h1x,i1h1x,
			r2h11x,i2h11x)
double cxx,cxxx;
double r1h1x,i1h1x;
double r2h11x,i2h11x;
{
double temp;

	temp = S2v3F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r2h11x,i2h11x,r2h11x,i2h11x)
	      +S3v3F1(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x);

	      return(temp);
}


double
D1nF12(cxx,
			r1h1x,i1h1x,
			r1h2x,i1h2x)

			/* 18 args - 6 + 6 + 6	*/
double cxx;
double r1h1x,i1h1x;
double r1h2x,i1h2x;
{
double temp;

	temp = S2vF12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x);

	      return(0.5*temp);
}


double
D1n2F12(cxx,cxxx,
				r1h1x,i1h1x,
				r1h2x,i1h2x,
				r2h11x,i2h11x,
				h2f1f2x,ih2f1f2x)

				/* 40 vars - 16 + 6 + 6 + 6 + 6 */
double cxx,cxxx;
double r1h1x,i1h1x;
double r1h2x,i1h2x;
double r2h11x,i2h11x;
double h2f1f2x,ih2f1f2x;
{
double temp;

	temp = S2v2F12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,
						r1h2x,i1h2x,r1h2x,i1h2x,
						r2h11x,i2h11x,r2h11x,i2h11x,
						h2f1f2x,ih2f1f2x,h2f1f2x,ih2f1f2x)
	      +S3v2F12(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x,
						r1h2x,i1h2x,r1h2x,i1h2x,r1h2x,i1h2x);
						
	return(temp/3.); /* divided by 3 to get kernel (otherwise we get 3*kernel) */
}


double
D1i2F1(cxx,
			r1h1x,i1h1x)

			/* 12 variables */
double cxx;
double r1h1x,i1h1x;
{
double temp;
	
	temp = S2i2F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x);

	       return(temp);
}


double
D1i3F1(cxx,cxxx,
			r1h1x,i1h1x,
			r2h11x,i2h11x)
double cxx,cxxx;
double r1h1x,i1h1x;
double r2h11x,i2h11x;
{
double temp;

	temp = S2i3F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r2h11x,i2h11x,r2h11x,i2h11x)
	      +S3i3F1(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x);

	      return(temp);
}


double
D1iF12(cxx,
			r1h1x,i1h1x,
			r1h2x,i1h2x)

			/* 18 args - 6 + 6 + 6	*/
double cxx;
double r1h1x,i1h1x;
double r1h2x,i1h2x;
{
double temp;

	temp = S2iF12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x);

	      return(0.5*temp);
}


double
D1i2F12(cxx,cxxx,
				r1h1x,i1h1x,
				r1h2x,i1h2x,
				r2h11x,i2h11x,
				h2f1f2x,ih2f1f2x)

				/* 40 vars - 16 + 6 + 6 + 6 + 6 */
double cxx,cxxx;
double r1h1x,i1h1x;
double r1h2x,i1h2x;
double r2h11x,i2h11x;
double h2f1f2x,ih2f1f2x;
{
double temp;

	temp = S2i2F12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,
						r1h2x,i1h2x,r1h2x,i1h2x,
						r2h11x,i2h11x,r2h11x,i2h11x,
						h2f1f2x,ih2f1f2x,h2f1f2x,ih2f1f2x)
	      +S3i2F12(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x,
						r1h2x,i1h2x,r1h2x,i1h2x,r1h2x,i1h2x);
						
	return(temp/3.); /* divided by 3 to get kernel (otherwise we get 3*kernel) */
}