/**********
Copyright 1990 Regents of the University of California.  All rights reserved.
Author: 1987 Gary W. Ng
**********/

#include "spice.h"
#include <stdio.h>
#include "cktdefs.h"
#include "ifsim.h"
#include "iferrmsg.h"
#include "noisedef.h"
#include "misc.h"
#include "suffix.h"

int 
NsetParm(ckt,anal,which,value)
    CKTcircuit *ckt;
    GENERIC *anal;
    int which;
    IFvalue *value;
{
    switch(which) {

    case N_OUTPUT:
	((NOISEAN*)anal)->output = value->nValue;
	break;

    case N_OUTREF:
	((NOISEAN*)anal)->outputRef = value->nValue;
	break;

    case N_INPUT:
	((NOISEAN*)anal)->input = value->uValue;
	break;

    case N_DEC:
        ((NOISEAN*)anal)->NstpType = DECADE;
        break;

    case N_OCT:
        ((NOISEAN*)anal)->NstpType = OCTAVE;
        break;

    case N_LIN:
        ((NOISEAN*)anal)->NstpType = LINEAR;
        break;

    case N_STEPS:
        ((NOISEAN*)anal)->NnumSteps = value->iValue;
        break;

    case N_START:
	if (value->rValue <= 0.0) {
	    errMsg = copy("Frequency of 0 is invalid");
            ((NOISEAN*)anal)->NstartFreq = 1.0;
	    return(E_PARMVAL);
	}

        ((NOISEAN*)anal)->NstartFreq = value->rValue;
        break;

    case N_STOP:
	if (value->rValue <= 0.0) {
	    errMsg = copy("Frequency of 0 is invalid");
            ((NOISEAN*)anal)->NstartFreq = 1.0;
	    return(E_PARMVAL);
	}

        ((NOISEAN*)anal)->NstopFreq = value->rValue;
        break;

    case N_PTSPERSUM:
        ((NOISEAN*)anal)->NStpsSm = value->iValue;
        break;

    default:
        return(E_BADPARM);
    }
    return(OK);
}


static IFparm Nparms[] = {
    { "output",     N_OUTPUT,       IF_SET|IF_STRING,  "output noise summation node" },
    { "outputref",  N_OUTREF,   IF_SET|IF_STRING,  "output noise reference node" },
    { "input",      N_INPUT,        IF_SET|IF_STRING,  "input noise source" },
    { "dec",        N_DEC,          IF_SET|IF_FLAG,    "step by decades" },
    { "oct",        N_OCT,          IF_SET|IF_FLAG,    "step by octaves" },
    { "lin",        N_LIN,          IF_SET|IF_FLAG,    "step linearly" },
    { "numsteps",   N_STEPS,        IF_SET|IF_INTEGER, "number of frequencies" },
    { "start",      N_START,        IF_SET|IF_REAL,    "starting frequency" },
    { "stop",       N_STOP,         IF_SET|IF_REAL,    "ending frequency" },
    { "ptspersum",  N_PTSPERSUM,    IF_SET|IF_INTEGER, "frequency points per summary report" }
};

SPICEanalysis NOISEinfo  = {
    { 
        "NOISE",
        "Noise analysis",

        sizeof(Nparms)/sizeof(IFparm),
        Nparms
    },
    sizeof(NOISEAN),
    FREQUENCYDOMAIN,
    1,
    NsetParm,
    NaskQuest,
    NULL,
    NOISEan
};
