isrcacld.c

来自「linux平台下类似著名的电路板作图软件 Spice的源代码」· C语言 代码 · 共 40 行

/**********
Copyright 1990 Regents of the University of California.  All rights reserved.
Author: 1985 Thomas L. Quarles
**********/

#include "spice.h"
#include <stdio.h>
#include "cktdefs.h"
#include "isrcdefs.h"
#include "sperror.h"
#include "suffix.h"

int
ISRCacLoad(inModel,ckt)
    GENmodel *inModel;
    register CKTcircuit *ckt;
{
    register ISRCmodel *model = (ISRCmodel*)inModel;
    register ISRCinstance *here;

    for( ; model != NULL; model = model->ISRCnextModel ) {

        /* loop through all the instances of the model */
        for (here = model->ISRCinstances; here != NULL ;
                here=here->ISRCnextInstance) {

            *(ckt->CKTrhs + (here->ISRCposNode)) += 
                here->ISRCacReal;
            *(ckt->CKTrhs + (here->ISRCnegNode)) -= 
                here->ISRCacReal;
            *(ckt->CKTirhs + (here->ISRCposNode)) += 
                here->ISRCacImag;
            *(ckt->CKTirhs + (here->ISRCnegNode)) -= 
                here->ISRCacImag;
        }
    }
    return(OK);

}