48 "Transfer function not possible with Josephson junctions",
NULL);
60 "Transfer function source %s not in circuit",
78 "Transfer function source %s not in circuit",
84 "Transfer function source %s not a voltage source",
101 "DCtrCurv: source %s not in circuit",
125 char *name = (
char *)
129 (void)sprintf(name,
"Zo%s",s);
131 (
void)sprintf(name,
"Zo(%s)",job->
TFoutName);
208 for (i = 0; i <= size; i++) {
214 ckt->CKTrhs[
ptr->SRCposNode] -= 1;
215 ckt->CKTrhs[
ptr->SRCnegNode] += 1;
218 ckt->CKTrhs[
ptr->SRCbranch] += 1;
232 outputs[0] = ckt->CKTrhs[
ptr->SRCbranch];
239 ckt->CKTrhs[
ptr->SRCnegNode] - ckt->CKTrhs[
ptr->SRCposNode];
242 A = ckt->CKTrhs[
ptr->SRCbranch];
250 outputs[2] = outputs[1];
257 for (i = 0; i <= size; i++) {
266 ckt->CKTrhs[
ptr->SRCbranch] += 1;
268 spSolve(ckt->CKTmatrix,ckt->CKTrhs,ckt->CKTrhs,
269 ckt->CKTirhs,ckt->CKTirhs);
278 A = ckt->CKTrhs[
ptr->SRCbranch];
286 outdata.v.numValue = 3;
287 outdata.v.vec.rVec = outputs;
288 refval.rValue = ckt->CKTomega/(2*
M_PI);
323 for (i = 0; i <= size; i++) {
337 spSolve(ckt->CKTmatrix,ckt->CKTrhs,ckt->CKTrhs,
338 ckt->CKTirhs,ckt->CKTirhs);
371 coutputs[1].
real = -A/MAG;
372 coutputs[1].
imag = B/MAG;
376 coutputs[2].
real = coutputs[1].
real;
377 coutputs[2].
imag = coutputs[1].
imag;
384 for (i = 0; i <= size; i++) {
396 spSolve(ckt->CKTmatrix,ckt->CKTrhs,ckt->CKTrhs,
397 ckt->CKTirhs,ckt->CKTirhs);
415 coutputs[2].
real = A/MAG;
416 coutputs[2].
imag = -B/MAG;
421 outdata.
v.
vec.cVec = coutputs;
union uIFvalue::@13::@14 vec
int ACloop(int(*func)(), CKTcircuit *ckt, int restart, struct sACprms *ac, struct sOUTdata *outd)
int DCTloop(int(*func)(), CKTcircuit *ckt, int restart, struct sDCTprms *dc, struct sOUTdata *outd)
static int tf_dcoperation()
IFuid eltName[DCTNESTLEVEL]
static int tf_acoperation()
double vsave[DCTNESTLEVEL]
int TFan(GENERIC *cktp, int restart)
GENinstance * elt[DCTNESTLEVEL]