cktsendctran.c

支持数字元件仿真的SPICE插件

/*
 * Copyright (c) 1985 Thomas L. Quarles
 */

/* 
 * This routine performs the DC and Transient sensitivity
 * calculations
 */

#include "prefix.h"
#include <stdio.h>
#include "SMPdefs.h"
#include "CKTdefs.h"
#include "DEVdefs.h"
#include "SPerror.h"
#include "TRANdefs.h"
#include "suffix.h"

RCSID("CKTsenDCtran.c $Revision: 1.1 $ on $Date: 91/04/02 12:08:12 $")

int
CKTsenDCtran(ckt)
register CKTcircuit *ckt;
{
    int error;

#ifdef SENSDEBUG
    printf("time = %.7e\n",ckt->CKTtime);
    printf("CKTsenDCtran\n");
#endif /* SENSDEBUG */

    if(ckt->CKTsenInfo && (ckt->CKTsenInfo->SENmode & TRANSEN) && 
            (ckt->CKTmode & MODEINITTRAN)){

        error = CKTsenLoad(ckt);
        if(error) return(error);
#ifdef SENSDEBUG
        printf("after inittran senload\n");
#endif /* SENSDEBUG */
        error = CKTsenUpdate(ckt);
        if(error) return(error);
#ifdef SENSDEBUG
        printf("after inittran senupdate\n");
#endif /* SENSDEBUG */
    }
    if(ckt->CKTsenInfo && (ckt->CKTsenInfo->SENmode & TRANSEN)&& 
            !(ckt->CKTmode&MODETRANOP))
        ckt->CKTmode = (ckt->CKTmode&(~INITF))|MODEINITFLOAT;

    error = CKTsenLoad(ckt);
    if(error) return(error);

#ifdef SENSDEBUG
    printf("after CKTsenLoad\n");
#endif /* SENSDEBUG */

    error = CKTsenComp(ckt);
    if(error) return(error);

#ifdef SENSDEBUG
    printf("after CKTsenComp\n");
#endif /* SENSDEBUG */

    if(ckt->CKTsenInfo && (ckt->CKTsenInfo->SENmode&TRANSEN) ){
        error = CKTsenUpdate(ckt);
        if(error) return(error);

#ifdef SENSDEBUG
        printf("after CKTsenUpdate\n");
#endif /* SENSDEBUG */

    }


    return(OK);
}