resask.c File Reference

#include "spice.h"
#include <stdio.h>
#include <math.h>
#include "resdefs.h"
#include "tskdefs.h"
#include "const.h"
#include "sperror.h"
#include "util.h"

Include dependency graph for resask.c:

Go to the source code of this file.

Functions
int	RESask (CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value, IFvalue *select)

Function Documentation

int RESask	(	CKTcircuit *	ckt,
		GENinstance *	inst,
		int	which,
		IFvalue *	value,
		IFvalue *	select
	)

Definition at line 20 of file resask.c.

{
    RESinstance *fast = (RESinstance *)inst;
    static char *msg = "Current and power not available for ac analysis";

    switch (which) {
        case RES_TEMP:
            value->rValue = fast->REStemp-CONSTCtoK;
            break;
        case RES_CONDUCT:
            value->rValue = fast->RESconduct;
            break;
        case RES_RESIST:
            value->rValue = fast->RESresist;
            break;
        case RES_LENGTH:
            value->rValue = fast->RESlength;
            break;
        case RES_WIDTH :
            value->rValue = fast->RESwidth;
            break;
        case RES_CURRENT:
            if (ckt->CKTcurrentAnalysis & DOING_AC) {
                errMsg = MALLOC(strlen(msg)+1);
                errRtn = "RESask";
                strcpy(errMsg,msg);
                return (E_ASKCURRENT);
            }
            if (ckt->CKTrhsOld) {
                value->rValue = (*(ckt->CKTrhsOld + fast->RESposNode) -  
                    *(ckt->CKTrhsOld + fast->RESnegNode))
                    *fast->RESconduct;    
            }
            break;
        case RES_POWER:
            if (ckt->CKTcurrentAnalysis & DOING_AC) {
                errMsg = MALLOC(strlen(msg)+1);
                errRtn = "RESask";
                strcpy(errMsg,msg);
                return (E_ASKPOWER);
            }
            if (ckt->CKTrhsOld) {
                value->rValue = (*(ckt->CKTrhsOld + fast->RESposNode) -  
                    *(ckt->CKTrhsOld + fast->RESnegNode)) * 
                    fast->RESconduct *  
                    (*(ckt->CKTrhsOld + fast->RESposNode) - 
                    *(ckt->CKTrhsOld + fast->RESnegNode));
            }
            break;
        default:
            return (E_BADPARM);
    }
    return (OK);
}