b4pzld.c

ngspice又一个电子CAD仿真软件代码.功能更全

                  *(here->BSIM4GPgePtr) -= m * geltd;
                  *(here->BSIM4GEgpPtr) -= m * geltd;

                  *(here->BSIM4GPgpPtr ) += m * xcggb * s->real;
                  *(here->BSIM4GPgpPtr +1) += m * xcggb * s->imag;
                  *(here->BSIM4GPgpPtr) += m * (geltd - xgtg + gIgtotg);
                  *(here->BSIM4GPdpPtr ) += m * xcgdb * s->real;
                  *(here->BSIM4GPdpPtr +1) += m * xcgdb * s->imag;
		  *(here->BSIM4GPdpPtr) -= m * (xgtd - gIgtotd);
                  *(here->BSIM4GPspPtr ) += m * xcgsb * s->real;
                  *(here->BSIM4GPspPtr +1) += m * xcgsb * s->imag;
                  *(here->BSIM4GPspPtr) -= m * (xgts - gIgtots);
                  *(here->BSIM4GPbpPtr ) += m * xcgbb * s->real;
                  *(here->BSIM4GPbpPtr +1) += m * xcgbb * s->imag;
		  *(here->BSIM4GPbpPtr) -= m * (xgtb - gIgtotb);
              }
              else if (here->BSIM4rgateMod == 2)
              {   *(here->BSIM4GEgePtr) += m * gcrg;
                  *(here->BSIM4GEgpPtr) += m * gcrgg;
                  *(here->BSIM4GEdpPtr) += m * gcrgd;
                  *(here->BSIM4GEspPtr) += m * gcrgs;
                  *(here->BSIM4GEbpPtr) += m * gcrgb;

                  *(here->BSIM4GPgePtr) -= m * gcrg;
                  *(here->BSIM4GPgpPtr ) += m * xcggb * s->real;
                  *(here->BSIM4GPgpPtr +1) += m * xcggb * s->imag;
                  *(here->BSIM4GPgpPtr) -= m * (gcrgg + xgtg - gIgtotg);
                  *(here->BSIM4GPdpPtr ) += m * xcgdb * s->real;
                  *(here->BSIM4GPdpPtr +1) += m * xcgdb * s->imag;
                  *(here->BSIM4GPdpPtr) -= m * (gcrgd + xgtd - gIgtotd);
                  *(here->BSIM4GPspPtr ) += m * xcgsb * s->real;
                  *(here->BSIM4GPspPtr +1) += m * xcgsb * s->imag;
                  *(here->BSIM4GPspPtr) -= m * (gcrgs + xgts - gIgtots);
                  *(here->BSIM4GPbpPtr ) += m * xcgbb * s->real;
                  *(here->BSIM4GPbpPtr +1) += m * xcgbb * s->imag;
                  *(here->BSIM4GPbpPtr) -= m * (gcrgb + xgtb - gIgtotb);
              }
              else if (here->BSIM4rgateMod == 3)
              {   *(here->BSIM4GEgePtr) += m * geltd;
                  *(here->BSIM4GEgmPtr) -= m * geltd;
                  *(here->BSIM4GMgePtr) -= m * geltd;
                  *(here->BSIM4GMgmPtr) += m * (geltd + gcrg);
                  *(here->BSIM4GMgmPtr ) += m * xcgmgmb * s->real;
                  *(here->BSIM4GMgmPtr +1) += m * xcgmgmb * s->imag;
  
                  *(here->BSIM4GMdpPtr) += m * gcrgd;
                  *(here->BSIM4GMdpPtr ) += m * xcgmdb * s->real;
                  *(here->BSIM4GMdpPtr +1) += m * xcgmdb * s->imag;
                  *(here->BSIM4GMgpPtr) += m * gcrgg;
                  *(here->BSIM4GMspPtr) += m * gcrgs;
                  *(here->BSIM4GMspPtr ) += m * xcgmsb * s->real;
                  *(here->BSIM4GMspPtr +1) += m * xcgmsb * s->imag;
                  *(here->BSIM4GMbpPtr) += m * gcrgb;
                  *(here->BSIM4GMbpPtr ) += m * xcgmbb * s->real;
                  *(here->BSIM4GMbpPtr +1) += m * xcgmbb * s->imag;
  
                  *(here->BSIM4DPgmPtr ) += m * xcdgmb * s->real;
                  *(here->BSIM4DPgmPtr +1) += m * xcdgmb * s->imag;
                  *(here->BSIM4GPgmPtr) -= m * gcrg;
                  *(here->BSIM4SPgmPtr ) += m * xcsgmb * s->real;
                  *(here->BSIM4SPgmPtr +1) += m * xcsgmb * s->imag;
                  *(here->BSIM4BPgmPtr ) += m * xcbgmb * s->real;
                  *(here->BSIM4BPgmPtr +1) += m * xcbgmb * s->imag;
  
                  *(here->BSIM4GPgpPtr) -= m * (gcrgg + xgtg - gIgtotg);
                  *(here->BSIM4GPgpPtr ) += m * xcggb * s->real;
                  *(here->BSIM4GPgpPtr +1) += m * xcggb * s->imag;
                  *(here->BSIM4GPdpPtr) -= m * (gcrgd + xgtd - gIgtotd);
                  *(here->BSIM4GPdpPtr ) += m * xcgdb * s->real;
                  *(here->BSIM4GPdpPtr +1) += m * xcgdb * s->imag;
                  *(here->BSIM4GPspPtr) -= m * (gcrgs + xgts - gIgtots);
                  *(here->BSIM4GPspPtr ) += m * xcgsb * s->real;
                  *(here->BSIM4GPspPtr +1) += m * xcgsb * s->imag;
                  *(here->BSIM4GPbpPtr) -= m * (gcrgb + xgtb - gIgtotb);
                  *(here->BSIM4GPbpPtr ) += m * xcgbb * s->real;
                  *(here->BSIM4GPbpPtr +1) += m * xcgbb * s->imag;
              }
              else
              {   *(here->BSIM4GPdpPtr ) += m * xcgdb * s->real;
                  *(here->BSIM4GPdpPtr +1) += m * xcgdb * s->imag;
		  *(here->BSIM4GPdpPtr) -= m * (xgtd - gIgtotd);
                  *(here->BSIM4GPgpPtr ) += m * xcggb * s->real;
                  *(here->BSIM4GPgpPtr +1) += m * xcggb * s->imag;
		  *(here->BSIM4GPgpPtr) -= m * (xgtg - gIgtotg);
                  *(here->BSIM4GPspPtr ) += m * xcgsb * s->real;
                  *(here->BSIM4GPspPtr +1) += m * xcgsb * s->imag;
                  *(here->BSIM4GPspPtr) -= m * (xgts - gIgtots);
                  *(here->BSIM4GPbpPtr ) += m * xcgbb * s->real;
                  *(here->BSIM4GPbpPtr +1) += m * xcgbb * s->imag;
		  *(here->BSIM4GPbpPtr) -= m * (xgtb - gIgtotb);
              }

              if (model->BSIM4rdsMod)
              {   (*(here->BSIM4DgpPtr) += m * gdtotg);
                  (*(here->BSIM4DspPtr) += m * gdtots);
                  (*(here->BSIM4DbpPtr) += m * gdtotb);
                  (*(here->BSIM4SdpPtr) += m * gstotd);
                  (*(here->BSIM4SgpPtr) += m * gstotg);
                  (*(here->BSIM4SbpPtr) += m * gstotb);
              }

              *(here->BSIM4DPdpPtr ) += m * xcddb * s->real;
              *(here->BSIM4DPdpPtr +1) += m * xcddb * s->imag;
              *(here->BSIM4DPdpPtr) += m * (gdpr + gds + here->BSIM4gbd
				     - gdtotd + RevSum + gbdpdp - gIdtotd
				     + dxpart * xgtd + T1 * ddxpart_dVd);
              *(here->BSIM4DPdPtr) -= m * (gdpr + gdtot);
              *(here->BSIM4DPgpPtr ) += m * xcdgb * s->real;
              *(here->BSIM4DPgpPtr +1) += m * xcdgb * s->imag;
              *(here->BSIM4DPgpPtr) += m * (Gm - gdtotg + gbdpg - gIdtotg
				     + T1 * ddxpart_dVg + dxpart * xgtg);
              *(here->BSIM4DPspPtr ) += m * xcdsb * s->real;
              *(here->BSIM4DPspPtr +1) += m * xcdsb * s->imag;
              *(here->BSIM4DPspPtr) -= m * (gds + FwdSum + gdtots - gbdpsp + gIdtots
				     - T1 * ddxpart_dVs - dxpart * xgts);
              *(here->BSIM4DPbpPtr ) += m * xcdbb * s->real;
              *(here->BSIM4DPbpPtr +1) += m * xcdbb * s->imag;
              *(here->BSIM4DPbpPtr) -= m * (gjbd + gdtotb - Gmbs - gbdpb + gIdtotb
				     - T1 * ddxpart_dVb - dxpart * xgtb);

              *(here->BSIM4DdpPtr) -= m * (gdpr - gdtotd);
              *(here->BSIM4DdPtr) += m * (gdpr + gdtot);

              *(here->BSIM4SPdpPtr ) += m * xcsdb * s->real;
              *(here->BSIM4SPdpPtr +1) += m * xcsdb * s->imag;
              *(here->BSIM4SPdpPtr) -= m * (gds + gstotd + RevSum - gbspdp + gIstotd
				     - T1 * dsxpart_dVd - sxpart * xgtd);
              *(here->BSIM4SPgpPtr ) += m * xcsgb * s->real;
              *(here->BSIM4SPgpPtr +1) += m * xcsgb * s->imag;
              *(here->BSIM4SPgpPtr) -= m * (Gm + gstotg - gbspg + gIstotg
				     - T1 * dsxpart_dVg - sxpart * xgtg);
              *(here->BSIM4SPspPtr ) += m * xcssb * s->real;
              *(here->BSIM4SPspPtr +1) += m * xcssb * s->imag;
              *(here->BSIM4SPspPtr) += m * (gspr + gds + here->BSIM4gbs - gIstots
				     - gstots + FwdSum + gbspsp
				     + sxpart * xgts + T1 * dsxpart_dVs);
              *(here->BSIM4SPsPtr) -= m * (gspr + gstot);
              *(here->BSIM4SPbpPtr ) += m * xcsbb * s->real;
              *(here->BSIM4SPbpPtr +1) += m * xcsbb * s->imag;
              *(here->BSIM4SPbpPtr) -= m * (gjbs + gstotb + Gmbs - gbspb + gIstotb
				     - T1 * dsxpart_dVb - sxpart * xgtb);

              *(here->BSIM4SspPtr) -= m * (gspr - gstots);
              *(here->BSIM4SsPtr) += m * (gspr + gstot);

              *(here->BSIM4BPdpPtr ) += m * xcbdb * s->real;
              *(here->BSIM4BPdpPtr +1) += m * xcbdb * s->imag;
              *(here->BSIM4BPdpPtr) -= m * (gjbd - gbbdp + gIbtotd);
              *(here->BSIM4BPgpPtr ) += m * xcbgb * s->real;
              *(here->BSIM4BPgpPtr +1) += m * xcbgb * s->imag;
              *(here->BSIM4BPgpPtr) -= m * (here->BSIM4gbgs + gIbtotg);
              *(here->BSIM4BPspPtr ) += m * xcbsb * s->real;
              *(here->BSIM4BPspPtr +1) += m * xcbsb * s->imag;
              *(here->BSIM4BPspPtr) -= m * (gjbs - gbbsp + gIbtots);
              *(here->BSIM4BPbpPtr ) += m * xcbbb * s->real;
              *(here->BSIM4BPbpPtr +1) += m * xcbbb * s->imag;
              *(here->BSIM4BPbpPtr) += m * (gjbd + gjbs - here->BSIM4gbbs
				     - gIbtotb);
           ggidld = here->BSIM4ggidld;
           ggidlg = here->BSIM4ggidlg;
           ggidlb = here->BSIM4ggidlb;
           ggislg = here->BSIM4ggislg;
           ggisls = here->BSIM4ggisls;
           ggislb = here->BSIM4ggislb;

           /* stamp gidl */
           (*(here->BSIM4DPdpPtr) += m * ggidld);
           (*(here->BSIM4DPgpPtr) += m * ggidlg);
           (*(here->BSIM4DPspPtr) -= m * ((ggidlg + ggidld) + ggidlb));
           (*(here->BSIM4DPbpPtr) += m * ggidlb);
           (*(here->BSIM4BPdpPtr) -= m * ggidld);
           (*(here->BSIM4BPgpPtr) -= m * ggidlg);
           (*(here->BSIM4BPspPtr) += m * ((ggidlg + ggidld) + ggidlb));
           (*(here->BSIM4BPbpPtr) -= m * ggidlb);
            /* stamp gisl */
           (*(here->BSIM4SPdpPtr) -= m * ((ggisls + ggislg) + ggislb));
           (*(here->BSIM4SPgpPtr) += m * ggislg);
           (*(here->BSIM4SPspPtr) += m * ggisls);
           (*(here->BSIM4SPbpPtr) += m * ggislb);
           (*(here->BSIM4BPdpPtr) += m * ((ggislg + ggisls) + ggislb));
           (*(here->BSIM4BPgpPtr) -= m * ggislg);
           (*(here->BSIM4BPspPtr) -= m * ggisls);
           (*(here->BSIM4BPbpPtr) -= m * ggislb);

              if (here->BSIM4rbodyMod)
              {   (*(here->BSIM4DPdbPtr ) += m * xcdbdb * s->real);
                  (*(here->BSIM4DPdbPtr +1) += m * xcdbdb * s->imag);
                  (*(here->BSIM4DPdbPtr) -= m * here->BSIM4gbd);
                  (*(here->BSIM4SPsbPtr ) += m * xcsbsb * s->real);
                  (*(here->BSIM4SPsbPtr +1) += m * xcsbsb * s->imag);
                  (*(here->BSIM4SPsbPtr) -= m * here->BSIM4gbs);

                  (*(here->BSIM4DBdpPtr ) += m * xcdbdb * s->real);
                  (*(here->BSIM4DBdpPtr +1) += m * xcdbdb * s->imag);
                  (*(here->BSIM4DBdpPtr) -= m * here->BSIM4gbd);
                  (*(here->BSIM4DBdbPtr ) -= m * xcdbdb * s->real);
                  (*(here->BSIM4DBdbPtr +1) -= m * xcdbdb * s->imag);
                  (*(here->BSIM4DBdbPtr) += m * (here->BSIM4gbd + here->BSIM4grbpd
                                          + here->BSIM4grbdb));
                  (*(here->BSIM4DBbpPtr) -= m * here->BSIM4grbpd);
                  (*(here->BSIM4DBbPtr) -= m * here->BSIM4grbdb);

                  (*(here->BSIM4BPdbPtr) -= m * here->BSIM4grbpd);
                  (*(here->BSIM4BPbPtr) -= m * here->BSIM4grbpb);
                  (*(here->BSIM4BPsbPtr) -= m * here->BSIM4grbps);
                  (*(here->BSIM4BPbpPtr) += m * (here->BSIM4grbpd + here->BSIM4grbps
					  + here->BSIM4grbpb));
                  /* WDL: (-here->BSIM4gbbs) already added to BPbpPtr */

                  (*(here->BSIM4SBspPtr ) += m * xcsbsb * s->real);
                  (*(here->BSIM4SBspPtr +1) += m * xcsbsb * s->imag);
                  (*(here->BSIM4SBspPtr) -= m * here->BSIM4gbs);
                  (*(here->BSIM4SBbpPtr) -= m * here->BSIM4grbps);
                  (*(here->BSIM4SBbPtr) -= m * here->BSIM4grbsb);
                  (*(here->BSIM4SBsbPtr ) -= m * xcsbsb * s->real);
                  (*(here->BSIM4SBsbPtr +1) -= m * xcsbsb * s->imag);
                  (*(here->BSIM4SBsbPtr) += m * (here->BSIM4gbs
					  + here->BSIM4grbps + here->BSIM4grbsb));

                  (*(here->BSIM4BdbPtr) -= m * here->BSIM4grbdb);
                  (*(here->BSIM4BbpPtr) -= m * here->BSIM4grbpb);
                  (*(here->BSIM4BsbPtr) -= m * here->BSIM4grbsb);
                  (*(here->BSIM4BbPtr) += m * (here->BSIM4grbsb + here->BSIM4grbdb
                                        + here->BSIM4grbpb));
              }

              if (here->BSIM4acnqsMod)
              {   *(here->BSIM4QqPtr ) += m * s->real * ScalingFactor;
                  *(here->BSIM4QqPtr +1) += m * s->imag * ScalingFactor;
                  *(here->BSIM4QgpPtr ) -= m * xcqgb * s->real;
                  *(here->BSIM4QgpPtr +1) -= m * xcqgb * s->imag;
                  *(here->BSIM4QdpPtr ) -= m * xcqdb * s->real;
                  *(here->BSIM4QdpPtr +1) -= m * xcqdb * s->imag;
                  *(here->BSIM4QbpPtr ) -= m * xcqbb * s->real;
                  *(here->BSIM4QbpPtr +1) -= m * xcqbb * s->imag;
                  *(here->BSIM4QspPtr ) -= m * xcqsb * s->real;
                  *(here->BSIM4QspPtr +1) -= m * xcqsb * s->imag;

                  *(here->BSIM4GPqPtr) -= m * here->BSIM4gtau;
                  *(here->BSIM4DPqPtr) += m * dxpart * here->BSIM4gtau;
                  *(here->BSIM4SPqPtr) += m * sxpart * here->BSIM4gtau;

                  *(here->BSIM4QqPtr) += m * here->BSIM4gtau;
                  *(here->BSIM4QgpPtr) += m * xgtg;
                  *(here->BSIM4QdpPtr) += m * xgtd;
                  *(here->BSIM4QbpPtr) += m * xgtb;
                  *(here->BSIM4QspPtr) += m * xgts;
              }
         }
    }
    return(OK);
}