sparspak.h

http://www.math.tu-berlin.de/~bolle/SPARSPAK/index-e.html

#ifndef _SPARSPAK_H
#define _SPARSPAK_H

/************ namessparspack.h einbinden, falls noch nicht geschehen *********/
#ifndef _NAMES_H
#include <namessparspak.h>
#endif 


/* Common Block Declarations */
extern struct 
{
    double ops;
}
spkops;


void      bshufl(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *),
          copysi(integer *, integer *, integer *),
          degree(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *),
          elslv(integer *, integer *, doublereal *, doublereal *, 
		doublereal *),
          esfct(integer *, integer *, doublereal *, doublereal *, integer *),
          euslv(integer *, integer *, doublereal *, doublereal *, 
		doublereal *),
          fnbenv(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *, integer *, 
		 integer *),
          fndsep(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *),
          fnenv(integer *, integer *, integer *, integer *, integer *, 
		integer *, integer *, integer *),
          fnlvls(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *),
          fnofnz(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *),
          fnroot(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *),
          fnspan(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *),
          fntadj(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *),
          fntenv(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *),
          fn1wd(integer *, integer *, integer *, integer *, integer *, 
		integer *, integer *, integer *, integer *),
          gennd(integer *, integer *, integer *, integer *, integer *, 
		integer *, integer *),
          genqmd(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *),
          genrcm(integer *, integer *, integer *, integer *, integer *, 
		 integer *),
          genrqt(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *),
          gen1wd(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *),
          gsfct(integer *, integer *, doublereal *, integer *, integer *, 
		doublereal *, integer *, integer *, doublereal *, integer *),
          gsslv(integer *, integer *, doublereal *, integer *, integer *, 
		doublereal *, doublereal *),
          guslv(integer *, integer *, doublereal *, integer *, integer *, 
		doublereal *, doublereal *),
          glslv(integer *, integer *, doublereal *, integer *, integer *, 
		doublereal *, doublereal *),
          qmdmrg(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *, integer *,
		 integer *),
          qmdqt(integer *, integer *, integer *, integer *, integer *, 
		integer *, integer *),
          qmdrch(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *),
          qmdupd(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *, integer *),
          rcm(integer *, integer *, integer *, integer *, integer *, 
	      integer *, integer *),
          reach(integer *, integer *, integer *, integer *, integer *, 
		integer *, integer *, integer *, integer *),
          rootls(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *),
          rqtree(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *),
          smbfct(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *, integer *, integer *, integer *,
		 integer *, integer *, integer *, integer *),
          sorts1(integer *, integer *),
          subrcm(integer *, integer *, integer *, integer *, integer *, 
		 integer *, integer *),
          tsfct(integer *, integer *, integer *, doublereal *, integer *, 
		doublereal *, integer *, doublereal *, integer *, 
		doublereal *, integer *, integer *),
          tsslv(integer *, integer *, doublereal *, integer *, doublereal *, 
		integer *, doublereal *, integer *, doublereal *, 
		doublereal *),
          invrse(integer *, integer *, integer *),
          revrse(integer *, integer *),
          permrv(integer *, doublereal *, integer *),
          chlsetup(integer *, integer *, doublereal *, integer *, integer *,
		   doublereal *, integer *, integer *, doublereal *, 
		   integer *, integer *, integer *, integer *),
          suslv(integer *,integer *,doublereal *,integer *,integer *,
		doublereal *,integer *,doublereal *,integer *, doublereal *),
          slslv(integer *,integer *,doublereal *,integer *,integer *, 
		doublereal *,integer *,doublereal *,integer *,doublereal *),
          fuslv(integer *,integer *,doublereal *,integer *,integer *,
		doublereal *,integer *,doublereal *),
          flslv(integer *,integer *,doublereal *,integer *,integer *,
		doublereal *,integer *,doublereal *);

#endif /* _SPARSPAK_H */