ilupack.h

数学算法的实现库。可以实现常见的线性计算。

void       SGNLilut(integer *,real *,integer *,integer *,integer *,
		    real *,
		    real *,integer *,integer *,integer *, 
		    real *,integer *, integer *);
void       SGNLilutp(integer *,real *,integer *,integer *,integer *,
		     real *,real *,integer *,
		     real *,integer *,integer *,integer *, 
		     real *,integer *,integer *,integer *);
void       SGNLlusol (integer *,real *,real *,real *,integer *,integer *);
void       SGNLlutsol(integer *,real *,real *,real *,integer *,integer *);
void       SGNLlulsol (integer *,real *,real *,real *,integer *,integer *);
void       SGNLlutlsol(integer *,real *,real *,real *,integer *,integer *);
void       SGNLluusol (integer *,real *,real *,real *,integer *,integer *);
void       SGNLlutusol(integer *,real *,real *,real *,integer *,integer *);
void       SGNLludlsol (integer *,real *,real *,real *,integer *,integer *);
void       SGNLlutdlsol(integer *,real *,real *,real *,integer *,integer *);
void       SGNLludusol (integer *,real *,real *,real *,integer *,integer *);
void       SGNLlutdusol(integer *,real *,real *,real *,integer *,integer *);

void       ZGNLilut (integer *,doublecomplex *,integer *,integer *,integer *,
		     doubleprecision *,
		     doublecomplex *,integer *,integer *,integer *, 
		     doublecomplex *,integer *,integer *);
void       ZGNLilutp(integer *,doublecomplex *,integer *,integer *,integer *,
		     doubleprecision *,doubleprecision *,integer *,
		     doublecomplex *,integer *,integer *,integer *, 
		     doublecomplex *,integer *,integer *,integer *);
void       ZGNLlusol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);
void       ZGNLlutsol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);
void       ZGNLlulsol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);
void       ZGNLlutlsol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);
void       ZGNLluusol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);
void       ZGNLlutusol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);
void       ZGNLludlsol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);
void       ZGNLlutdlsol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);
void       ZGNLludusol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);
void       ZGNLlutdusol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,integer *);

void       CGNLilut (integer *,complex *,integer *,integer *,integer *,
		     real *,
		     complex *,integer *,integer *,integer *, 
		     complex *,integer *,integer *);
void       CGNLilutp(integer *,complex *,integer *,integer *,integer *,
		     real *,real *,integer *,
		     complex *,integer *,integer *,integer *, 
		     complex *,integer *,integer *,integer *);
void       CGNLlusol (integer *,complex *,complex *,complex *,integer *,integer *);
void       CGNLlutsol(integer *,complex *,complex *,complex *,integer *,integer *);
void       CGNLlulsol (integer *,complex *,complex *,complex *,integer *,integer *);
void       CGNLlutlsol(integer *,complex *,complex *,complex *,integer *,integer *);
void       CGNLluusol (integer *,complex *,complex *,complex *,integer *,integer *);
void       CGNLlutusol(integer *,complex *,complex *,complex *,integer *,integer *);
void       CGNLludlsol (integer *,complex *,complex *,complex *,integer *,integer *);
void       CGNLlutdlsol(integer *,complex *,complex *,complex *,integer *,integer *);
void       CGNLludusol (integer *,complex *,complex *,complex *,integer *,integer *);
void       CGNLlutdusol(integer *,complex *,complex *,complex *,integer *,integer *);


void DGNLiluc(integer *,doubleprecision *,integer *,integer *,integer *,
	      doubleprecision *,integer *,doubleprecision *,integer *,integer *,
	      integer *,doubleprecision *,integer *,integer *);
void DGNLilucsol (integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);
void DGNLiluctsol(integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);
void DGNLilucdlsol (integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);
void DGNLiluctdlsol(integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);
void DGNLilucdusol (integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);
void DGNLiluctdusol(integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);
void DGNLiluclsol (integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);
void DGNLiluctlsol(integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);
void DGNLilucusol (integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);
void DGNLiluctusol(integer *,doubleprecision *,doubleprecision *,doubleprecision *,integer *,
		  integer *);

void DGNLpiluclsol  (integer *,integer *, doubleprecision *,doubleprecision *,
		     doubleprecision *,integer *,integer *);
void DGNLpilucdlsol (integer *,integer *, doubleprecision *,doubleprecision *,
		     doubleprecision *,integer *,integer *);
void DGNLpilucusol  (integer *,integer *, doubleprecision *,doubleprecision *,
		     doubleprecision *,integer *,integer *);
void DGNLpilucdusol (integer *,integer *, doubleprecision *,doubleprecision *,
		     doubleprecision *,integer *,integer *);
void DGNLpiluctlsol (integer *,integer *, doubleprecision *,doubleprecision *,
		     doubleprecision *,integer *,integer *);
void DGNLpiluctdlsol(integer *,integer *, doubleprecision *,doubleprecision *,
		     doubleprecision *,integer *,integer *);
void DGNLpiluctusol (integer *,integer *, doubleprecision *,doubleprecision *,
		     doubleprecision *,integer *,integer *);
void DGNLpiluctdusol(integer *,integer *, doubleprecision *,doubleprecision *,
		     doubleprecision *,integer *,integer *);

void DSYMildlc(integer *,doubleprecision *,integer *,integer *,integer *,
	       doubleprecision *,integer *,doubleprecision *,integer *,integer *,
	       doubleprecision *,integer *,integer *);
void DSYMildlcsol(integer *,doubleprecision *,doubleprecision *,doubleprecision *,
		 integer *);
void DSYMpilucsol(integer *,doubleprecision *,doubleprecision *,doubleprecision *,
		 integer *);
void DSSMildlc(integer *,doubleprecision *,integer *,integer *,integer *,
	       doubleprecision *,integer *,doubleprecision *,integer *,integer *,
	       doubleprecision *,integer *,integer *);
void DSSMildlcsol(integer *,doubleprecision *,doubleprecision *,doubleprecision *,
		 integer *);
void DGNLpiluc(integer *,doubleprecision *,integer *,integer *,integer *,doubleprecision *,
	       doubleprecision *,integer *,integer *,integer *,integer *,
	       doubleprecision *,integer *,integer *,integer *,doubleprecision *,integer *,
	       integer *, doubleprecision *, integer*);
void DGNLmpiluc(integer *,doubleprecision *,integer *,integer *,integer *,doubleprecision *,
		doubleprecision *,doubleprecision *,integer *,integer *,integer *,integer *,
		doubleprecision *,integer *,integer *,integer *,doubleprecision *,integer *,
		integer *, doubleprecision *, integer *);
void DSPDpiluc(integer *,doubleprecision *,integer *,integer *,integer *,doubleprecision *,
	       doubleprecision *,integer *,integer *,integer *,integer *,
	       doubleprecision *,integer *,integer *,doubleprecision *,integer *,
	       integer *, doubleprecision *, integer *);
void DSPDmpiluc(integer *,doubleprecision *,integer *,integer *,integer *,doubleprecision *,
		doubleprecision *,doubleprecision *,integer *,integer *,integer *,integer *,
		doubleprecision *,integer *,integer *,doubleprecision *,integer *,
		integer *, doubleprecision *, integer *);
void DSYMpiluc(integer *,doubleprecision *,integer *,integer *,integer *,doubleprecision *,
	       doubleprecision *,integer *,integer *,integer *,integer *,
	       doubleprecision *,integer *,integer *,doubleprecision *,integer *,
	       integer *, doubleprecision *, integer *);
void DSYMmpiluc(integer *,doubleprecision *,integer *,integer *,integer *,doubleprecision *,
		doubleprecision *,doubleprecision *,integer *,integer *,integer *,integer *,
		doubleprecision *,integer *,integer *,doubleprecision *,integer *,
		integer *, doubleprecision *, integer *);

void DSYMiluc(integer *,doubleprecision *,integer *,integer *,integer *,doubleprecision *,
	       integer *,integer *,integer *,
	       doubleprecision *,integer *,integer *,doubleprecision *,integer *,
	       integer *);
void SGNLiluc(integer *,real *,integer *,integer *,integer *,
	      real *,integer *,real *,integer *,integer *,
	      integer *,real *,integer *,integer *);
void SGNLilucsol (integer *,real *,real *,real *,integer *,
		  integer *);
void SGNLiluctsol(integer *,real *,real *,real *,integer *,
		  integer *);
void SGNLilucdlsol (integer *,real *,real *,real *,integer *,
		  integer *);
void SGNLiluctdlsol(integer *,real *,real *,real *,integer *,
		  integer *);
void SGNLilucdusol (integer *,real *,real *,real *,integer *,
		  integer *);
void SGNLiluctdusol(integer *,real *,real *,real *,integer *,
		  integer *);
void SGNLiluclsol (integer *,real *,real *,real *,integer *,
		  integer *);
void SGNLiluctlsol(integer *,real *,real *,real *,integer *,
		  integer *);
void SGNLilucusol (integer *,real *,real *,real *,integer *,
		  integer *);
void SGNLiluctusol(integer *,real *,real *,real *,integer *,
		  integer *);

void SGNLpiluclsol  (integer *,integer *, real *,real *,
		     real *,integer *,integer *);
void SGNLpilucdlsol (integer *,integer *, real *,real *,
		     real *,integer *,integer *);
void SGNLpilucusol  (integer *,integer *, real *,real *,
		     real *,integer *,integer *);
void SGNLpilucdusol (integer *,integer *, real *,real *,
		     real *,integer *,integer *);
void SGNLpiluctlsol (integer *,integer *, real *,real *,
		     real *,integer *,integer *);
void SGNLpiluctdlsol(integer *,integer *, real *,real *,
		     real *,integer *,integer *);
void SGNLpiluctusol (integer *,integer *, real *,real *,
		     real *,integer *,integer *);
void SGNLpiluctdusol(integer *,integer *, real *,real *,
		     real *,integer *,integer *);

void SSYMildlc(integer *,real *,integer *,integer *,integer *,
	       real *,integer *,real *,integer *,integer *,
	       real *,integer *,integer *);
void SSYMildlcsol(integer *,real *,real *,real *,
		 integer *);
void SSYMpilucsol(integer *,real *,real *,real *,
		 integer *);
void SSSMildlc(integer *,real *,integer *,integer *,integer *,
	       real *,integer *,real *,integer *,integer *,
	       real *,integer *,integer *);
void SSSMildlcsol(integer *,real *,real *,real *,
		 integer *);
void SGNLpiluc(integer *,real *,integer *,integer *,integer *,real *,
	       real *,integer *,integer *,integer *,integer *,
	       real *,integer *,integer *,integer *,real *,integer *,
	       integer *, real *, integer *);
void SGNLmpiluc(integer *,real *,integer *,integer *,integer *,real *,
		real *,real *,integer *,integer *,integer *,integer *,
		real *,integer *,integer *,integer *,real *,integer *,
		integer *, real *, integer *);
void SSPDpiluc(integer *,real *,integer *,integer *,integer *,real *,
	       real *,integer *,integer *,integer *,integer *,
	       real *,integer *,integer *,real *,integer *,
	       integer *, real *, integer *);
void SSPDmpiluc(integer *,real *,integer *,integer *,integer *,real *,
		real *,real *,integer *,integer *,integer *,integer *,
		real *,integer *,integer *,real *,integer *,
		integer *, real *, integer *);
void SSYMpiluc(integer *,real *,integer *,integer *,integer *,real *,
	       real *,integer *,integer *,integer *,integer *,
	       real *,integer *,integer *,real *,integer *,
	       integer *, real *, integer *);
void SSYMmpiluc(integer *,real *,integer *,integer *,integer *,real *,
		real *,real *,integer *,integer *,integer *,integer *,
		real *,integer *,integer *,real *,integer *,
		integer *, real *, integer *);
void SSYMiluc(integer *,real *,integer *,integer *,integer *,real *,
	       integer *,integer *,integer *,
	       real *,integer *,integer *,real *,integer *,
	       integer *);

void ZGNLiluc(integer *,doublecomplex *,integer *,integer *,integer *,
	      doubleprecision *,integer *,doublecomplex *,integer *,integer *,
	      integer *,doublecomplex *,integer *,integer *);
void ZGNLilucsol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);
void ZGNLiluctsol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);
void ZGNLilucdlsol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);
void ZGNLiluctdlsol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);
void ZGNLilucdusol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);
void ZGNLiluctdusol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);
void ZGNLiluclsol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);
void ZGNLiluctlsol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);
void ZGNLilucusol (integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);
void ZGNLiluctusol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,integer *,
		  integer *);

void ZGNLpiluclsol  (integer *,integer *, doublecomplex *,doublecomplex *,
		     doublecomplex *,integer *,integer *);
void ZGNLpilucdlsol (integer *,integer *, doublecomplex *,doublecomplex *,
		     doublecomplex *,integer *,integer *);
void ZGNLpilucusol  (integer *,integer *, doublecomplex *,doublecomplex *,
		     doublecomplex *,integer *,integer *);
void ZGNLpilucdusol (integer *,integer *, doublecomplex *,doublecomplex *,
		     doublecomplex *,integer *,integer *);
void ZGNLpiluctlsol (integer *,integer *, doublecomplex *,doublecomplex *,
		     doublecomplex *,integer *,integer *);
void ZGNLpiluctdlsol(integer *,integer *, doublecomplex *,doublecomplex *,
		     doublecomplex *,integer *,integer *);
void ZGNLpiluctusol (integer *,integer *, doublecomplex *,doublecomplex *,
		     doublecomplex *,integer *,integer *);
void ZGNLpiluctdusol(integer *,integer *, doublecomplex *,doublecomplex *,
		     doublecomplex *,integer *,integer *);

void ZHERildlc(integer *,doublecomplex *,integer *,integer *,integer *,
	       doubleprecision *,integer *,doublecomplex *,integer *,integer *,
	       doublecomplex *,integer *,integer *);
void ZHERildlcsol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,
		 integer *);
void ZHERpilucsol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,
		 integer *);
void ZSYMpilucsol(integer *,doublecomplex *,doublecomplex *,doublecomplex *,
		 integer *);
void ZSYMildlc(integer *,doublecomplex *,integer *,integer *,integer *,
	       doubleprecision *,integer *,doublecomplex *,integer *,integer *,