Browse Source

semicolon after macro was wrong

dwarning 15 years ago
parent
commit
95ed4ef3d7
  1. 28
      src/spicelib/devices/adms/ekv/admsva/ekv.va

28
src/spicelib/devices/adms/ekv/admsva/ekv.va

@ -308,7 +308,7 @@ module ekv (d,g,s,b);
qb0 = gamma_a*sqrt(phi); qb0 = gamma_a*sqrt(phi);
fact = (`EG(TNOM+273.15)/`VT(TNOM+273.15)-`EG(tempk)/vt) * pow(tempk/(TNOM+273.15),XTI); fact = (`EG(TNOM+273.15)/`VT(TNOM+273.15)-`EG(tempk)/vt) * pow(tempk/(TNOM+273.15),XTI);
`expl(fact,tmp);
`expl(fact,tmp)
isat_s = np*ns*(JS*AS+JSW*PS)*tmp; isat_s = np*ns*(JS*AS+JSW*PS)*tmp;
isat_d = np*ns*(JS*AD+JSW*PD)*tmp; isat_d = np*ns*(JS*AD+JSW*PD)*tmp;
@ -392,17 +392,17 @@ module ekv (d,g,s,b);
y = (1.0 + fv + ln(z1)) / (2.0 + z1); y = (1.0 + fv + ln(z1)) / (2.0 + z1);
end end
else if (fv > -15) begin else if (fv > -15) begin
`expl(-fv,tmp);
`expl(-fv,tmp)
z0 = 1.55 + tmp; z0 = 1.55 + tmp;
z1 = (2.0 + z0) / (1.0 + fv + ln(z0)); z1 = (2.0 + z0) / (1.0 + fv + ln(z0));
y = (1.0 + fv + ln(z1)) / (2.0 + z1); y = (1.0 + fv + ln(z1)) / (2.0 + z1);
end end
else if (fv > -23.0) begin else if (fv > -23.0) begin
`expl(-fv,tmp);
`expl(-fv,tmp)
y = 1.0 / (2.0 + tmp); y = 1.0 / (2.0 + tmp);
end end
else begin else begin
`expl(fv,tmp);
`expl(fv,tmp)
y = tmp + 1.0e-64; y = tmp + 1.0e-64;
end end
@ -438,17 +438,17 @@ module ekv (d,g,s,b);
y = (1.0 + fv + ln(z1)) / (2.0 + z1); y = (1.0 + fv + ln(z1)) / (2.0 + z1);
end end
else if (fv > -15) begin else if (fv > -15) begin
`expl(-fv,tmp);
`expl(-fv,tmp)
z0 = 1.55 + tmp; z0 = 1.55 + tmp;
z1 = (2.0 + z0) / (1.0 + fv + ln(z0)); z1 = (2.0 + z0) / (1.0 + fv + ln(z0));
y = (1.0 + fv + ln(z1)) / (2.0 + z1); y = (1.0 + fv + ln(z1)) / (2.0 + z1);
end end
else if (fv > -23.0) begin else if (fv > -23.0) begin
`expl(-fv,tmp);
`expl(-fv,tmp)
y = 1.0 / (2.0 + tmp); y = 1.0 / (2.0 + tmp);
end end
else begin else begin
`expl(fv,tmp);
`expl(fv,tmp)
y = tmp + 1.0e-64; y = tmp + 1.0e-64;
end end
@ -465,17 +465,17 @@ module ekv (d,g,s,b);
y = (1.0 + fv + ln(z1)) / (2.0 + z1); y = (1.0 + fv + ln(z1)) / (2.0 + z1);
end end
else if (fv > -15) begin else if (fv > -15) begin
`expl(-fv,tmp);
`expl(-fv,tmp)
z0 = 1.55 + tmp; z0 = 1.55 + tmp;
z1 = (2.0 + z0) / (1.0 + fv + ln(z0)); z1 = (2.0 + z0) / (1.0 + fv + ln(z0));
y = (1.0 + fv + ln(z1)) / (2.0 + z1); y = (1.0 + fv + ln(z1)) / (2.0 + z1);
end end
else if (fv > -23.0) begin else if (fv > -23.0) begin
`expl(-fv,tmp);
`expl(-fv,tmp)
y = 1.0 / (2.0 + tmp); y = 1.0 / (2.0 + tmp);
end end
else begin else begin
`expl(fv,tmp);
`expl(fv,tmp)
y = tmp + 1.0e-64; y = tmp + 1.0e-64;
end end
@ -538,7 +538,7 @@ module ekv (d,g,s,b);
if (-vs>vexp_s) if (-vs>vexp_s)
ibsj = IMAX+gexp_s*(-vs-vexp_s); ibsj = IMAX+gexp_s*(-vs-vexp_s);
else begin else begin
`expl(-vs/(N*vt),tmp);
`expl(-vs/(N*vt),tmp)
ibsj = isat_s*(tmp-1); ibsj = isat_s*(tmp-1);
end end
end else end else
@ -548,7 +548,7 @@ module ekv (d,g,s,b);
if (-vd>vexp_d) if (-vd>vexp_d)
ibdj = IMAX+gexp_d*(-vd-vexp_d); ibdj = IMAX+gexp_d*(-vd-vexp_d);
else begin else begin
`expl(-vd/(N*vt),tmp);
`expl(-vd/(N*vt),tmp)
ibdj = isat_d*(tmp-1); ibdj = isat_d*(tmp-1);
end end
end else end else
@ -559,7 +559,7 @@ module ekv (d,g,s,b);
if (-vd>vexp_s) if (-vd>vexp_s)
ibsj = IMAX+gexp_s*(-vd-vexp_s); ibsj = IMAX+gexp_s*(-vd-vexp_s);
else begin else begin
`expl(-vd/(N*vt),tmp);
`expl(-vd/(N*vt),tmp)
ibsj = isat_s*(tmp-1); ibsj = isat_s*(tmp-1);
end end
end else end else
@ -569,7 +569,7 @@ module ekv (d,g,s,b);
if (-vs>vexp_d) if (-vs>vexp_d)
ibdj = IMAX+gexp_d*(-vs-vexp_d); ibdj = IMAX+gexp_d*(-vs-vexp_d);
else begin else begin
`expl(-vs/(N*vt),tmp);
`expl(-vs/(N*vt),tmp)
ibdj = isat_d*(tmp-1); ibdj = isat_d*(tmp-1);
end end
end else end else

Loading…
Cancel
Save