zgeinv1 Subroutine

numerical-tools, KKRhost
17 statements
Source File

public subroutine zgeinv1(a, u, aux, ipiv, dim)

Uses

- mod_datatypes
- mod_constants
- mod_cinit

Inverts a general complex(kind=dp) matrix A

The result is return in U
Input matrix A is returned unchanged
AUX is a auxiliary matrix
A,U and AUX are of dimension (DIM,DIM)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp)				::	a(dim,*)
complex(kind=dp)				::	u(dim,*)
complex(kind=dp)				::	aux(dim,*)
integer				::	ipiv(*)
integer				::	dim