superlu_stub.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	c_fortran_dgssv (iopt, n, nnz, nrhs, value_op, rowind, colptr, b, ldb, factors, prsp, influ)
subroutine	c_freemem (factors)

Function/Subroutine Documentation

c_fortran_dgssv()

subroutine c_fortran_dgssv	(	integer	iopt,
		integer	n,
		integer	nnz,
		integer	nrhs,
		integer, dimension(*)	value_op,
		integer, dimension(*)	rowind,
		integer, dimension(*)	colptr,
		integer	b,
		integer	ldb,
		integer(kind=8), dimension(8)	factors,
		integer	prsp,
		integer	influ )

Definition at line 28 of file superlu_stub.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
 
            INTEGER :: IOPT,   N,      NNZ, NRHS, VALUE_OP(*),
     .                     ROWIND(*), COLPTR(*) , B,   LDB,
     .                     PRSP,   INFLU 
            INTEGER(KIND=8) FACTORS(8)
C-----------------------------------------------
            WRITE(6,*) "ERROR: SuperLU is no longer supported"
            CALL flush(6)
            CALL arret(5)

c_freemem()

subroutine c_freemem

(

integer(kind=8), dimension(8)

factors

)

Definition at line 53 of file superlu_stub.F.

            INTEGER(KIND=8) FACTORS(8)
C-----------------------------------------------
            WRITE(6,*) "ERROR: SuperLU is no longer supported"
            CALL flush(6)
            CALL arret(5)