@* imsl.
%\RCSID $Id: imsl.w,v 1.3 1996/09/29 18:02:46 tjchol01 Exp tjchol01 $

@ imsl.h
@(../include/imsl.h@>=
#ifndef _IMSL_INCLUDED
#define _IMSL_INCLUDED

#include <tjc.h>

#ifndef USE_FLOAT
#define gdata dgdata_
#define acf dacf_
#define pacf dpacf_
#define diff ddiff_
#define armme darmme_
#define mamme dmamme_
#define nspe dnspe_
#define nslse dnslse_
#define nsbjf dnsbjf_
#define lofcf dlofcf_
#define rnarm drnarm_
#else
#define gdata gdata_
#define acf acf_
#define pacf pacf_
#define diff diff_
#define armme armme_
#define mamme mamme_
#define nspe nspe_
#define nslse nslse_
#define nsbjf nsbjf_
#define lofcf lofcf_
#define rnarm rnarm_
#endif

#define n1rty n1rty_
#define rnset rnset_

#ifdef __cplusplus
extern "C" {
#endif

typedef const int *pcint;
typedef const real *pcreal;

void gdata (pcint idata, pcint iprint, int *nobs, int *nvar, real *x,
            pcint ldx, pcint ndx);

void acf (pcint nobs, pcreal x, pcint iprint, pcint iseopt,
           pcint imean, real *xmean, pcint maxlag,
           real *acv, real *ac, real *seac);

void pacf (pcint maxlag, pcreal ac, real *pac);

void diff (pcint nobsz, pcreal z, pcint ndiff, pcint iper, pcint iord,
            pcint iprint, pcint imiss,
            int *nlost, int *nobsx, real *x);

void armme (pcint maxlag, pcreal acv, pcint iprint,
             pcint npma, pcint npar, real *par);

void mamme (pcint maxlag, pcreal acv, pcint iprint,
             pcint npar, pcreal par, pcreal relerr, pcint maxit,
             pcint npma, real *pma);

void nspe (pcint nobs, pcreal w, pcint iprint, pcint imean, real *wmean,
           pcint npar, pcint npma, pcreal relerr, pcint maxit,
           real *constant, real *par, real *pma, real *avar);

void nslse (pcint nobs, pcreal w, pcint iprint, pcint imean, real *wmean,
            pcint npar, real *par, pcint lagar,
            pcint npma, real *pma, pcint lagma,
            pcint maxbc, pcreal tolbc, pcreal tolss,
            real *constant, real *cov, pcint ldcov,
            int *na, real *a, real *avar);

void nsbjf (pcint nobs, pcreal w, pcint iprint,
             pcint npar, pcreal par, pcint lagar,
             pcint npma, pcreal pma, pcint lagma,
             pcint iconst, pcreal constant, pcreal avar,
             pcreal alpha, pcint mxbkor, pcint mxlead,
             real *fcst, pcint ldfcst);

void lofcf (pcint nobs, pcint lagmin, pcint lagmax, pcreal cf,
            pcint npfree, real *Q, real *pvalue);

void rnarm (pcint nw, pcreal constant,
             pcint npar, pcreal par, pcint lagar,
             pcint npma, pcreal pma, pcint lagma,
             pcint iadist, pcreal avar, real *a,
             pcreal wi, real *w);

void rnset (pcint iseed);

typedef int imsls_error;
typedef const imsls_error *pcerr;

void erset (pcerr iersvr, pcint ipact, pcint isact);
int iercd (void);
imsls_error n1rty (pcint one);
void umach (pcint n, int *nunit);

static const imsls_error IMSLS_ALL = 0;
static const imsls_error IMSLS_NOTE = 1;
static const imsls_error IMSLS_ALERT = 2;
static const imsls_error IMSLS_WARNING = 3;
static const imsls_error IMSLS_FATAL = 4;
static const imsls_error IMSLS_TERMINAL = 5;

static const int IMSLS_ONE = 1;
#define IMSL_ERROR (n1rty (&IMSLS_ONE))

#ifdef __cplusplus
}
#endif

#endif

@
\begin{rcslog}
$Log: imsl.w,v $
\Revision 1.3  1996/09/29 18:02:46  tjchol01
Double functions are called without the 'd' prefix.

\Revision 1.2  1996/09/29 16:53:27  tjchol01
Attempt at defining both fp versions.

\Revision 1.1  1996/09/29 16:02:23  tjchol01
Initial revision
\end{rcslog}
@