dnlaso.h

DTMK软件开发包,此为开源软件,是一款很好的医学图像开发资源.

/*: Finds a few eigenvalues and eigenvectors at either end of the spectrum of a large sparse symmetric matrix.  */
extern int v3p_netlib_dnlaso_(
  void (*op)(v3p_netlib_integer v3p_netlib_const*,
             v3p_netlib_integer v3p_netlib_const*,
             v3p_netlib_doublereal v3p_netlib_const*,
             v3p_netlib_doublereal*),
  void (*iovect)(v3p_netlib_integer v3p_netlib_const*,
                 v3p_netlib_integer v3p_netlib_const*,
                 v3p_netlib_doublereal*,
                 v3p_netlib_integer v3p_netlib_const*,
                 v3p_netlib_integer v3p_netlib_const*),
  v3p_netlib_integer v3p_netlib_const *n,
  v3p_netlib_integer v3p_netlib_const *nval,
  v3p_netlib_integer v3p_netlib_const *nfig,
  v3p_netlib_integer v3p_netlib_const *nperm,
  v3p_netlib_integer v3p_netlib_const *nmval,
  v3p_netlib_doublereal *val,
  v3p_netlib_integer v3p_netlib_const *nmvec,
  v3p_netlib_doublereal *vec,
  v3p_netlib_integer v3p_netlib_const *nblock,
  v3p_netlib_integer v3p_netlib_const *maxop,
  v3p_netlib_integer v3p_netlib_const *maxj,
  v3p_netlib_doublereal *work,
  v3p_netlib_integer *ind,
  v3p_netlib_integer *ierr
  );
extern int v3p_netlib_dnwla_(
  void (*op)(v3p_netlib_integer*,
             v3p_netlib_integer*,
             v3p_netlib_doublereal*,
             v3p_netlib_doublereal*),
  void (*iovect)(v3p_netlib_integer*,
                 v3p_netlib_integer*,
                 v3p_netlib_doublereal*,
                 v3p_netlib_integer*,
                 v3p_netlib_integer*),
  v3p_netlib_integer *n,
  v3p_netlib_integer *nband,
  v3p_netlib_integer *nval,
  v3p_netlib_integer *nfig,
  v3p_netlib_integer *nperm,
  v3p_netlib_doublereal *val,
  v3p_netlib_integer *nmvec,
  v3p_netlib_doublereal *vec,
  v3p_netlib_integer *nblock,
  v3p_netlib_integer *maxop,
  v3p_netlib_integer *maxj,
  v3p_netlib_integer *nop,
  v3p_netlib_doublereal *p1,
  v3p_netlib_doublereal *p0,
  v3p_netlib_doublereal *res,
  v3p_netlib_doublereal *tau,
  v3p_netlib_doublereal *otau,
  v3p_netlib_doublereal *t,
  v3p_netlib_doublereal *alp,
  v3p_netlib_doublereal *bet,
  v3p_netlib_doublereal *s,
  v3p_netlib_doublereal *p2,
  v3p_netlib_doublereal *bound,
  v3p_netlib_doublereal *atemp,
  v3p_netlib_doublereal *vtemp,
  v3p_netlib_doublereal *d__,
  v3p_netlib_integer *ind,
  v3p_netlib_logical *small,
  v3p_netlib_logical *raritz,
  v3p_netlib_doublereal *delta,
  v3p_netlib_doublereal *eps,
  v3p_netlib_integer *ierr
  );