90 here->
URClumps=
MAX(3.0,log(wnorm*(((p-1)/p)*((p-1)/p)))/log(p));
94 r1 = (r0*(p-1))/((2*(pow(p,(
double)here->
URClumps)))-2);
95 c1 = (c0 * (p-1))/((pow(p,(
double)(here->
URClumps-1)))*(p+1)-2);
96 i1 = (i0 * (p-1))/((pow(p,(
double)(here->
URClumps-1)))*(p+1)-2);
103 if(error)
return(error);
107 if(error)
return(error);
109 error=
CKTpModName(
"cjo",&ptemp,ckt,dtype,dioUid,&modfast);
110 if(error)
return(error);
112 error =
CKTpModName(
"rs",&ptemp,ckt,dtype,dioUid,&modfast);
113 if(error)
return(error);
115 error =
CKTpModName(
"is",&ptemp,ckt,dtype,dioUid,&modfast);
116 if(error)
return(error);
120 if(error)
return(error);
124 if(error)
return(error);
128 if(error)
return(error);
131 if(error)
return(error);
135 namehi = (
char *)
MALLOC(10*
sizeof(
char));
136 (void)sprintf(namehi,
"hi%d",i);
138 if(error)
return(error);
143 namelo = (
char *)
MALLOC(10*
sizeof(
char));
144 (void)sprintf(namelo,
"lo%d",i);
147 if(error)
return(error);
153 nameelt = (
char *)
MALLOC(10*
sizeof(
char));
154 (void)sprintf(nameelt,
"rlo%d",i);
157 if(error)
return(error);
160 if(error)
return(error);
162 if(error)
return(error);
164 if(error)
return(error);
166 error =
CKTpName(
"resistance",&ptemp,ckt,rtype,nameelt,&fast);
167 if(error)
return(error);
169 nameelt = (
char *)
MALLOC(10*
sizeof(
char));
170 (void)sprintf(nameelt,
"rhi%d",i);
173 if(error)
return(error);
176 if(error)
return(error);
178 if(error)
return(error);
180 if(error)
return(error);
182 error =
CKTpName(
"resistance",&ptemp,ckt,rtype,nameelt,&fast);
183 if(error)
return(error);
187 nameelt = (
char *)
MALLOC(10*
sizeof(
char));
188 (void)sprintf(nameelt,
"dlo%d",i);
189 error = (*(
SPfrontEnd->IFnewUid))(ckt,&eltUid,
192 if(error)
return(error);
195 if(error)
return(error);
197 if(error)
return(error);
200 if(error)
return(error);
202 error =
CKTpName(
"area",&ptemp,ckt,dtype,nameelt,&fast);
203 if(error)
return(error);
206 nameelt = (
char *)
MALLOC(10*
sizeof(
char));
207 (void)sprintf(nameelt,
"clo%d",i);
210 if(error)
return(error);
213 if(error)
return(error);
215 if(error)
return(error);
218 if(error)
return(error);
220 error =
CKTpName(
"capacitance",&ptemp,ckt,ctype,nameelt,
222 if(error)
return(error);
228 nameelt = (
char *)
MALLOC(10*
sizeof(
char));
229 (void)sprintf(nameelt,
"dhi%d",i);
230 error = (*(
SPfrontEnd->IFnewUid))(ckt,&eltUid,
233 if(error)
return(error);
236 if(error)
return(error);
238 if(error)
return(error);
241 if(error)
return(error);
243 error=
CKTpName(
"area",&ptemp,ckt,dtype,nameelt,&fast);
244 if(error)
return(error);
247 nameelt = (
char *)
MALLOC(10*
sizeof(
char));
248 (void)sprintf(nameelt,
"chi%d",i);
249 error = (*(
SPfrontEnd->IFnewUid))(ckt,&eltUid,
252 if(error)
return(error);
255 if(error)
return(error);
257 if(error)
return(error);
260 if(error)
return(error);
262 error =
CKTpName(
"capacitance",&ptemp,ckt,ctype,nameelt,
264 if(error)
return(error);
URCinstance * URCinstances
struct sURCinstance * URCnextInstance
struct sURCmodel * URCnextModel