/**********Copyright 1990 Regents of the University of California.  All rights reserved.Author: 1985 Hong J. Park, Thomas L. Quarles**********//* */#include "spice.h"#include <stdio.h>#include "cktdefs.h"#include "bsim1def.h"#include "sperror.h"#include "suffix.h"intB1getic(inModel,ckt)    GENmodel *inModel;    CKTcircuit *ckt;{    B1model *model = (B1model*)inModel;    B1instance *here;    /*     * grab initial conditions out of rhs array.   User specified, so use     * external nodes to get values     */    for( ; model ; model = model->B1nextModel) {        for(here = model->B1instances; here ; here = here->B1nextInstance) {            if(!here->B1icVBSGiven) {                here->B1icVBS =                         *(ckt->CKTrhs + here->B1bNode) -                         *(ckt->CKTrhs + here->B1sNode);            }            if(!here->B1icVDSGiven) {                here->B1icVDS =                         *(ckt->CKTrhs + here->B1dNode) -                         *(ckt->CKTrhs + here->B1sNode);            }            if(!here->B1icVGSGiven) {                here->B1icVGS =                         *(ckt->CKTrhs + here->B1gNode) -                         *(ckt->CKTrhs + here->B1sNode);            }        }    }    return(OK);}