/**********
Copyright 1990 Regents of the University of California.  All rights reserved.
Author: 1985 Thomas L. Quarles
Modified: 2000 AlansFixes
VDMOS: 2018 Holger Vogt, 2020 Dietmar Warning
**********/

/* load the VDMOS device structure with those pointers needed later
 * for fast matrix loading
 */

#include "ngspice/ngspice.h"
#include "ngspice/smpdefs.h"
#include "ngspice/cktdefs.h"
#include "vdmosdefs.h"
#include "ngspice/sperror.h"
#include "ngspice/suffix.h"

int
VDMOSsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt,
    int *states)
{
    VDMOSmodel *model = (VDMOSmodel *)inModel;
    VDMOSinstance *here;
    int error;
    CKTnode *tmp;

    /*  loop through all the VDMOS device models */
    for (; model != NULL; model = VDMOSnextModel(model)) {

        if (!model->VDMOStypeGiven)
            model->VDMOStype = NMOS;

        if (!model->VDMOStransconductanceGiven)
            model->VDMOStransconductance = 1;

        if (!model->VDMOSvth0Given)
            model->VDMOSvth0 = 0;

        if (!model->VDIOjctSatCurGiven)
            model->VDIOjctSatCur = 1e-14;

        if (!model->VDIOjunctionPotGiven)
            model->VDIOjunctionPot = .8;

        if (!model->VDIOjunctionCapGiven)
            model->VDIOjunctionCap = 0.;

        if (!model->VDIOgradCoeffGiven)
            model->VDIOgradCoeff = .5;

        if (!model->VDIOdepletionCapCoeffGiven)
            model->VDIOdepletionCapCoeff = .5;

        if (!model->VDMOSphiGiven)
            model->VDMOSphi = .6;

        if (!model->VDMOSlambdaGiven)
            model->VDMOSlambda = 0;

        if (!model->VDMOSthetaGiven)
            model->VDMOStheta = 0;

        if (!model->VDMOSfNcoefGiven)
            model->VDMOSfNcoef = 0;

        if (!model->VDMOSfNexpGiven)
            model->VDMOSfNexp = 1;

        if (!model->VDMOScgdminGiven)
            model->VDMOScgdmin = 0;

        if (!model->VDMOScgdmaxGiven)
            model->VDMOScgdmax = 0;

        if (!model->VDMOScgsGiven)
            model->VDMOScgs = 0;

        if (!model->VDMOSaGiven)
            model->VDMOSa = 1.;

        if (!model->VDMOSsubshiftGiven)
            model->VDMOSsubshift = 0;

        if (!model->VDMOSksubthresGiven)
            model->VDMOSksubthres = 0.1;

        if (!model->VDMOSmtrGiven)
            model->VDMOSmtr = 1.;

        if (!model->VDIObvGiven)
            model->VDIObv = 1e99;

        if (!model->VDIOibvGiven)
            model->VDIOibv = 1.0e-10;

        if (!model->VDIObrkdEmissionCoeffGiven)
            model->VDIObrkdEmissionCoeff = 1.;

        if (!model->VDMOSdrainResistanceGiven)
            model->VDMOSdrainResistance = 0.0;

        if (!model->VDMOSsourceResistanceGiven)
            model->VDMOSsourceResistance = 0.0;

        if (!model->VDMOSgateResistanceGiven)
            model->VDMOSgateResistance = 0.0;

        if (!model->VDMOSrdsGiven)
            model->VDMOSrds = 1.0e+15;

        if (!model->VDIOresistanceGiven)
            model->VDIOresistance = 0.0;

        if (!model->VDIOnGiven)
            model->VDIOn = 1.;

        if (!model->VDIOtransitTimeGiven)
            model->VDIOtransitTime = 0.;

        if (!model->VDIOegGiven)
            model->VDIOeg = 1.11;

        if (!model->VDIOxtiGiven)
            model->VDIOxti = 3.0;

        if (!model->VDMOSrthjcGiven)
            model->VDMOSrthjc = 1.0;

        if (!model->VDMOSrthcaGiven)
            model->VDMOSrthca = 1000;

        if (!model->VDMOScthjGiven)
            model->VDMOScthj = 10e-06;

        if (!model->VDMOSmuGiven)
            model->VDMOSmu = -1.5;

        if (!model->VDMOStcvthGiven)
            model->VDMOStcvth = 0.0;

        if (!model->VDMOStexp0Given)
            model->VDMOStexp0 = 1.5;

        if (!model->VDMOStexp1Given)
            model->VDMOStexp1 = 0.3;

        if (!model->VDMOStrd1Given)
            model->VDMOStrd1 = 0.0;

        if (!model->VDMOStrd2Given)
            model->VDMOStrd2 = 0.0;

        if (!model->VDMOStrg1Given)
            model->VDMOStrg1 = 0.0;

        if (!model->VDMOStrg2Given)
            model->VDMOStrg2 = 0.0;

        if (!model->VDMOStrs1Given)
            model->VDMOStrs1 = 0.0;

        if (!model->VDMOStrs2Given)
            model->VDMOStrs2 = 0.0;

        if (!model->VDIOtrb1Given)
            model->VDIOtrb1 = 0.0;

        if (!model->VDIOtrb2Given)
            model->VDIOtrb2 = 0.0;

        if (!model->VDMOStksubthres1Given)
            model->VDMOStksubthres1 = 0.0;

        if (!model->VDMOStksubthres2Given)
            model->VDMOStksubthres2 = 0.0;

        if (!model->VDMOSvgsMaxGiven)
            model->VDMOSvgsMax = 1e99;

        if (!model->VDMOSvgdMaxGiven)
            model->VDMOSvgdMax = 1e99;

        if (!model->VDMOSvdsMaxGiven)
            model->VDMOSvdsMax = 1e99;

        if (!model->VDMOSvgsrMaxGiven)
            model->VDMOSvgsrMax = 1e99;

        if (!model->VDMOSvgdrMaxGiven)
            model->VDMOSvgdrMax = 1e99;

        if (!model->VDMOSqsResistanceGiven)
            model->VDMOSqsResistance = 0.0;

        if (!model->VDMOSqsVoltageGiven)
            model->VDMOSqsVoltage = 0.0;

        if ((model->VDMOSqsResistanceGiven) && (model->VDMOSqsVoltageGiven))
            model->VDMOSqsGiven = 1;
        else
            model->VDMOSqsGiven = 0;

        if(!model->VDMOStnomGiven) {
            model->VDMOStnom = ckt->CKTnomTemp;
        }

        /* now model parameter preprocessing */
        if (model->VDMOSphi <= 0.0) {
            SPfrontEnd->IFerrorf(ERR_FATAL,
                "%s: Phi is not positive.", model->VDMOSmodName);
            return(E_BADPARM);
        }

        model->VDMOSoxideCapFactor = 3.9 * 8.854214871e-12 / 1e-07; /* use default Tox of 100nm */

        /* body diode model */
        /* limit activation energy to min of .1 */
        if (model->VDIOeg<.1) {
            SPfrontEnd->IFerrorf(ERR_WARNING,
                "%s: body diode activation energy too small, limited to 0.1",
                model->VDMOSmodName);
            model->VDIOeg = .1;
        }
        /* limit depletion cap coeff to max of .95 */
        if (model->VDIOdepletionCapCoeff>.95) {
            SPfrontEnd->IFerrorf(ERR_WARNING,
                "%s: coefficient Fc too large, limited to 0.95",
                model->VDMOSmodName);
            model->VDIOdepletionCapCoeff = .95;
        }
        /* set lower limit of saturation current */
        if (model->VDIOjctSatCur < ckt->CKTepsmin)
            model->VDIOjctSatCur = ckt->CKTepsmin;

        /* loop through all the instances of the model */
        for (here = VDMOSinstances(model); here != NULL;
            here = VDMOSnextInstance(here)) {

            /* allocate a chunk of the state vector */
            here->VDMOSstates = *states;
            *states += VDMOSnumStates;

            if (!here->VDMOSicVDSGiven) {
                here->VDMOSicVDS = 0;
            }
            if (!here->VDMOSicVGSGiven) {
                here->VDMOSicVGS = 0;
            }
            if (!here->VDMOSvdsatGiven) {
                here->VDMOSvdsat = 0;
            }
            if (!here->VDMOSvonGiven) {
                here->VDMOSvon = 0;
            }
            if(!here->VDMOSmGiven) {
                here->VDMOSm = 1;
            }
            if (model->VDMOSdrainResistance > 0) {
                here->VDMOSdrainConductance = here->VDMOSm / model->VDMOSdrainResistance;
            } else {
                here->VDMOSdrainConductance = 0.0;
            }
            if (model->VDMOSsourceResistance > 0) {
                here->VDMOSsourceConductance = here->VDMOSm / model->VDMOSsourceResistance;
            } else {
                here->VDMOSsourceConductance = 0.0;
            }
            if (model->VDMOSgateResistance > 0) {
                here->VDMOSgateConductance = here->VDMOSm / model->VDMOSgateResistance;
            } else {
                here->VDMOSgateConductance = 0.0;
            }
            if (model->VDMOSrdsGiven) {
                if (model->VDMOSrds > 0) {
                    here->VDMOSdsConductance = here->VDMOSm / model->VDMOSrds;
                } else {
                    here->VDMOSdsConductance = 1e-15;
                }
            } else {
                here->VDMOSdsConductance = 1e-15;
            }
            if (model->VDIOresistance > 0) {
                here->VDIOconductance = here->VDMOSm / model->VDIOresistance;
            } else {
                here->VDIOconductance = 0.0;
            }

            if (model->VDMOSdrainResistance > 0) {
                if (here->VDMOSdNodePrime == 0) {
                    error = CKTmkVolt(ckt, &tmp, here->VDMOSname, "drain");
                    if (error) return(error);
                    here->VDMOSdNodePrime = tmp->number;

                    if (ckt->CKTcopyNodesets) {
                        CKTnode *tmpNode;
                        IFuid tmpName;

                        if (CKTinst2Node(ckt, here, 1, &tmpNode, &tmpName) == OK) {
                            if (tmpNode->nsGiven) {
                                tmp->nodeset = tmpNode->nodeset;
                                tmp->nsGiven = tmpNode->nsGiven;
                            }
                        }
                    }
                }

            }
            else {
                here->VDMOSdNodePrime = here->VDMOSdNode;
            }

            if (model->VDMOSgateResistance > 0 ) {
                if (here->VDMOSgNodePrime == 0) {
                    error = CKTmkVolt(ckt, &tmp, here->VDMOSname, "gate");
                    if (error) return(error);
                    here->VDMOSgNodePrime = tmp->number;

                    if (ckt->CKTcopyNodesets) {
                        CKTnode *tmpNode;
                        IFuid tmpName;

                        if (CKTinst2Node(ckt, here, 2, &tmpNode, &tmpName) == OK) {
                            if (tmpNode->nsGiven) {
                                tmp->nodeset = tmpNode->nodeset;
                                tmp->nsGiven = tmpNode->nsGiven;
                            }
                        }
                    }
                }
            }
            else {
                here->VDMOSgNodePrime = here->VDMOSgNode;
            }

            if (model->VDMOSsourceResistance > 0) {
                if (here->VDMOSsNodePrime == 0) {
                    error = CKTmkVolt(ckt, &tmp, here->VDMOSname, "source");
                    if (error) return(error);
                    here->VDMOSsNodePrime = tmp->number;

                    if (ckt->CKTcopyNodesets) {
                        CKTnode *tmpNode;
                        IFuid tmpName;

                        if (CKTinst2Node(ckt, here, 3, &tmpNode, &tmpName) == OK) {
                            if (tmpNode->nsGiven) {
                                tmp->nodeset = tmpNode->nodeset;
                                tmp->nsGiven = tmpNode->nsGiven;
                            }
                        }
                    }

                }
            }
            else {
                here->VDMOSsNodePrime = here->VDMOSsNode;
            }

            if (model->VDIOresistance > 0 ) {
                if (here->VDIOposPrimeNode == 0) {
                    error = CKTmkVolt(ckt, &tmp, here->VDMOSname, "body diode");
                    if (error) return(error);
                    here->VDIOposPrimeNode = tmp->number;

                    if (ckt->CKTcopyNodesets) {
                        CKTnode *tmpNode;
                        IFuid tmpName;

                        if (CKTinst2Node(ckt, here, 3, &tmpNode, &tmpName) == OK) {
                            if (tmpNode->nsGiven) {
                                tmp->nodeset = tmpNode->nodeset;
                                tmp->nsGiven = tmpNode->nsGiven;
                            }
                        }
                    }
                }
            }
            else {
                here->VDIOposPrimeNode = here->VDMOSsNode;
            }

            if ((here->VDMOSthermal) && (model->VDMOSrthjcGiven)) {
               if (here->VDMOStempNode == -1) {
                  error = CKTmkVolt(ckt,&tmp,here->VDMOSname,"Tj");
                  if (error) return(error);
                     here->VDMOStempNode = tmp->number;
               }
               if (here->VDMOStcaseNode == -1) {
                  error = CKTmkVolt(ckt,&tmp,here->VDMOSname,"Tc");
                  if (error) return(error);
                     here->VDMOStcaseNode = tmp->number;
               }
               if(here->VDMOSvcktTbranch == 0) {
                    error = CKTmkCur(ckt,&tmp,here->VDMOSname,"VcktTemp");
                    if(error) return(error);
                    here->VDMOSvcktTbranch = tmp->number;
                }
                if (here->VDMOStNodePrime == 0) {
                    error = CKTmkVolt(ckt, &tmp, here->VDMOSname, "cktTemp");
                    if (error) return(error);
                    here->VDMOStNodePrime = tmp->number;
                }
            } else {
                here->VDMOStempNode = 0;
                here->VDMOStcaseNode = 0;
            }

            /* macro to make elements with built in test for out of memory */
#define TSTALLOC(ptr,first,second) \
do { if((here->ptr = SMPmakeElt(matrix, here->first, here->second)) == NULL){\
    return(E_NOMEM);\
} } while(0)

            TSTALLOC(VDMOSDdPtr,   VDMOSdNode,      VDMOSdNode);
            TSTALLOC(VDMOSGgPtr,   VDMOSgNode,      VDMOSgNode);
            TSTALLOC(VDMOSSsPtr,   VDMOSsNode,      VDMOSsNode);
            TSTALLOC(VDMOSDPdpPtr, VDMOSdNodePrime, VDMOSdNodePrime);
            TSTALLOC(VDMOSSPspPtr, VDMOSsNodePrime, VDMOSsNodePrime);
            TSTALLOC(VDMOSGPgpPtr, VDMOSgNodePrime, VDMOSgNodePrime);
            TSTALLOC(VDMOSDdpPtr,  VDMOSdNode,      VDMOSdNodePrime);
            TSTALLOC(VDMOSGPdpPtr, VDMOSgNodePrime, VDMOSdNodePrime);
            TSTALLOC(VDMOSGPspPtr, VDMOSgNodePrime, VDMOSsNodePrime);
            TSTALLOC(VDMOSSspPtr,  VDMOSsNode,      VDMOSsNodePrime);
            TSTALLOC(VDMOSDPspPtr, VDMOSdNodePrime, VDMOSsNodePrime);
            TSTALLOC(VDMOSDPdPtr,  VDMOSdNodePrime, VDMOSdNode);
            TSTALLOC(VDMOSDPgpPtr, VDMOSdNodePrime, VDMOSgNodePrime);
            TSTALLOC(VDMOSSPgpPtr, VDMOSsNodePrime, VDMOSgNodePrime);
            TSTALLOC(VDMOSSPsPtr,  VDMOSsNodePrime, VDMOSsNode);
            TSTALLOC(VDMOSSPdpPtr, VDMOSsNodePrime, VDMOSdNodePrime);

            TSTALLOC(VDMOSGgpPtr, VDMOSgNode,      VDMOSgNodePrime);
            TSTALLOC(VDMOSGPgPtr, VDMOSgNodePrime, VDMOSgNode);

            TSTALLOC(VDMOSDsPtr, VDMOSdNode, VDMOSsNode);
            TSTALLOC(VDMOSSdPtr, VDMOSsNode, VDMOSdNode);

            TSTALLOC(VDIORPdPtr,  VDIOposPrimeNode, VDMOSdNode);
            TSTALLOC(VDIODrpPtr,  VDMOSdNode,       VDIOposPrimeNode);
            TSTALLOC(VDIOSrpPtr,  VDMOSsNode,       VDIOposPrimeNode);
            TSTALLOC(VDIORPsPtr,  VDIOposPrimeNode, VDMOSsNode);
            TSTALLOC(VDIORPrpPtr, VDIOposPrimeNode, VDIOposPrimeNode);

            if ((here->VDMOSthermal) && (model->VDMOSrthjcGiven)) {
                TSTALLOC(VDMOSTemptempPtr, VDMOStempNode,   VDMOStempNode);  /* Transistor thermal contribution */
                TSTALLOC(VDMOSTempdpPtr,   VDMOStempNode,   VDMOSdNodePrime);
                TSTALLOC(VDMOSTempspPtr,   VDMOStempNode,   VDMOSsNodePrime);
                TSTALLOC(VDMOSTempgpPtr,   VDMOStempNode,   VDMOSgNodePrime);
                TSTALLOC(VDMOSGPtempPtr,   VDMOSgNodePrime, VDMOStempNode);
                TSTALLOC(VDMOSDPtempPtr,   VDMOSdNodePrime, VDMOStempNode);
                TSTALLOC(VDMOSSPtempPtr,   VDMOSsNodePrime, VDMOStempNode);

                TSTALLOC(VDIOTempposPrimePtr, VDMOStempNode,    VDIOposPrimeNode);/* Diode thermal contribution */
                TSTALLOC(VDMOSTempdPtr,       VDMOStempNode,    VDMOSdNode);
                TSTALLOC(VDIOPosPrimetempPtr, VDIOposPrimeNode, VDMOStempNode);
                TSTALLOC(VDMOSDtempPtr,       VDMOSdNode,       VDMOStempNode);
                TSTALLOC(VDMOStempSPtr,       VDMOStempNode,    VDMOSsNode);
                TSTALLOC(VDMOSSTempPtr,       VDMOSsNode,       VDMOStempNode);

                TSTALLOC(VDMOSTcasetcasePtr, VDMOStcaseNode,   VDMOStcaseNode);   /* Rthjc between tj and tcase*/
                TSTALLOC(VDMOSTcasetempPtr,  VDMOStcaseNode,   VDMOStempNode);
                TSTALLOC(VDMOSTemptcasePtr,  VDMOStempNode,    VDMOStcaseNode);
                TSTALLOC(VDMOSTptpPtr,       VDMOStNodePrime,  VDMOStNodePrime);  /* Rthca between tcase and Vsrc */
                TSTALLOC(VDMOSTptcasePtr,    VDMOStNodePrime,  VDMOStempNode);
                TSTALLOC(VDMOSTcasetpPtr,    VDMOStempNode,    VDMOStNodePrime);
                TSTALLOC(VDMOSCktTcktTPtr,   VDMOSvcktTbranch, VDMOSvcktTbranch); /* Vsrc=cktTemp to gnd */
                TSTALLOC(VDMOSCktTtpPtr,     VDMOSvcktTbranch, VDMOStNodePrime);
                TSTALLOC(VDMOSTpcktTPtr,     VDMOStNodePrime,  VDMOSvcktTbranch);
            }
        }
    }
    return(OK);
}

int
VDMOSunsetup(GENmodel *inModel, CKTcircuit *ckt)
{
    VDMOSmodel *model;
    VDMOSinstance *here;

    for (model = (VDMOSmodel *)inModel; model != NULL;
        model = VDMOSnextModel(model))
    {
        for (here = VDMOSinstances(model); here != NULL;
            here = VDMOSnextInstance(here))
        {
            if (here->VDMOSsNodePrime > 0
                && here->VDMOSsNodePrime != here->VDMOSsNode)
                CKTdltNNum(ckt, here->VDMOSsNodePrime);
            here->VDMOSsNodePrime = 0;

            if (here->VDMOSdNodePrime > 0
                && here->VDMOSdNodePrime != here->VDMOSdNode)
                CKTdltNNum(ckt, here->VDMOSdNodePrime);
            here->VDMOSdNodePrime = 0;

            if (here->VDMOSgNodePrime > 0
                && here->VDMOSgNodePrime != here->VDMOSgNode)
                CKTdltNNum(ckt, here->VDMOSgNodePrime);
            here->VDMOSgNodePrime = 0;

            if (here->VDIOposPrimeNode > 0
                && here->VDIOposPrimeNode != here->VDMOSsNode)
                CKTdltNNum(ckt, here->VDIOposPrimeNode);
            here->VDIOposPrimeNode = 0;

            if ((here->VDMOSthermal) && (model->VDMOSrthjcGiven)) {
                if (here->VDMOStNodePrime > 0)
                    CKTdltNNum(ckt, here->VDMOStNodePrime);
                here->VDMOStNodePrime = 0;
                if (here->VDMOSvcktTbranch > 0)
                    CKTdltNNum(ckt, here->VDMOSvcktTbranch);
                here->VDMOSvcktTbranch = 0;
            }

        }
    }
    return OK;
}
