34 "DC analysis not possible with Josephson junctions",
NULL);
58 converged =
CKTop(ckt,
76 CKTop(ckt,firstmode, continuemode, iterlim)
87 if (!ckt->CKTnoOpIter) {
88 converged =
NIiter(ckt,iterlim);
99 if (ckt->CKTnumGminSteps >1) {
100 ckt->CKTmode = firstmode;
103 ckt->CKTdiagGmin = ckt->CKTgmin;
104 for (i = 0; i < ckt->CKTnumGminSteps; i++) {
105 ckt->CKTdiagGmin *= 10;
107 for (i = 0; i <= ckt->CKTnumGminSteps; i++) {
109 converged =
NIiter(ckt,iterlim);
110 if (converged != 0) {
111 ckt->CKTdiagGmin = 0;
113 "Gmin step failed",(
IFuid *)NULL);
116 ckt->CKTdiagGmin /= 10;
117 ckt->CKTmode=continuemode;
119 "One sucessful Gmin step",(
IFuid *)NULL);
121 ckt->CKTdiagGmin = 0;
122 converged =
NIiter(ckt,iterlim);
123 if (converged == 0) {
125 "Gmin stepping completed",(
IFuid *)NULL);
129 "Gmin stepping failed",(
IFuid *)NULL);
139 if (ckt->CKTnumSrcSteps > 1) {
140 ckt->CKTmode = firstmode;
142 "starting source stepping",(
IFuid *)
NULL);
143 for (i = 0; i <= ckt->CKTnumSrcSteps; i++) {
144 ckt->CKTsrcFact = ((double)i)/((double)ckt->CKTnumSrcSteps);
145 converged =
NIiter(ckt,iterlim);
146 ckt->CKTmode = continuemode;
147 if (converged != 0) {
151 "source stepping failed",(
IFuid *)NULL);
155 "One successful source step",(
IFuid *)NULL);
158 "Source stepping completed",(
IFuid *)NULL);
186 for (mh = ckt->CKTheadList; mh !=
NULL; mh = mh->
next) {
188 error = (*func)(mh->
head,ckt);
189 if (error)
return (error);
191 if (ckt->CKTnoncon) {
struct sCKTmodHead * next
int CKTconvTest(CKTcircuit *ckt)
int CKTop(CKTcircuit *ckt, long firstmode, long continuemode, int iterlim)
int DCOan(GENERIC *cktp, int restart)