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

#include "ngspice/ngspice.h"
#include "ngspice/cktdefs.h"
#include "isrcdefs.h"
#include "ngspice/sperror.h"
#include "ngspice/suffix.h"


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

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

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

            m = here->ISRCmValue;

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

    return(OK);
}