NAG FL Interface
f01kcf (complex_gen_matrix_cond_usd)
1
Purpose
f01kcf computes an estimate of the absolute condition number of a matrix function of a complex by matrix in the -norm, using analytical derivatives of you have supplied.
2
Specification
Fortran Interface
Subroutine f01kcf ( |
n, a, lda, f, iuser, ruser, iflag, conda, norma, normfa, ifail) |
Integer, Intent (In) |
:: |
n, lda |
Integer, Intent (Inout) |
:: |
iuser(*), ifail |
Integer, Intent (Out) |
:: |
iflag |
Real (Kind=nag_wp), Intent (Inout) |
:: |
ruser(*) |
Real (Kind=nag_wp), Intent (Out) |
:: |
conda, norma, normfa |
Complex (Kind=nag_wp), Intent (Inout) |
:: |
a(lda,*) |
External |
:: |
f |
|
C Header Interface
#include <nag.h>
void |
f01kcf_ (const Integer *n, Complex a[], const Integer *lda, void (NAG_CALL *f)(const Integer *m, Integer *iflag, const Integer *nz, const Complex z[], Complex fz[], Integer iuser[], double ruser[]), Integer iuser[], double ruser[], Integer *iflag, double *conda, double *norma, double *normfa, Integer *ifail) |
|
C++ Header Interface
#include <nag.h> extern "C" {
void |
f01kcf_ (const Integer &n, Complex a[], const Integer &lda, void (NAG_CALL *f)(const Integer &m, Integer &iflag, const Integer &nz, const Complex z[], Complex fz[], Integer iuser[], double ruser[]), Integer iuser[], double ruser[], Integer &iflag, double &conda, double &norma, double &normfa, Integer &ifail) |
}
|
The routine may be called by the names f01kcf or nagf_matop_complex_gen_matrix_cond_usd.
3
Description
The absolute condition number of
at
,
is given by the norm of the Fréchet derivative of
,
, which is defined by
where
is the Fréchet derivative in the direction
.
is linear in
and can therefore be written as
where the
operator stacks the columns of a matrix into one vector, so that
is
.
f01kcf computes an estimate
such that
, where
. The relative condition number can then be computed via
The algorithm used to find
is detailed in Section 3.4 of
Higham (2008).
4
References
Higham N J (2008) Functions of Matrices: Theory and Computation SIAM, Philadelphia, PA, USA
5
Arguments
-
1:
– Integer
Input
-
On entry: , the order of the matrix .
Constraint:
.
-
2:
– Complex (Kind=nag_wp) array
Input/Output
-
Note: the second dimension of the array
a
must be at least
.
On entry: the by matrix .
On exit: the by matrix, .
-
3:
– Integer
Input
-
On entry: the first dimension of the array
a as declared in the (sub)program from which
f01kcf is called.
Constraint:
.
-
4:
– Subroutine, supplied by the user.
External Procedure
-
Given an integer
, the subroutine
f evaluates
at a number of points
.
The specification of
f is:
Fortran Interface
Integer, Intent (In) |
:: |
m, nz |
Integer, Intent (Inout) |
:: |
iflag, iuser(*) |
Real (Kind=nag_wp), Intent (Inout) |
:: |
ruser(*) |
Complex (Kind=nag_wp), Intent (In) |
:: |
z(nz) |
Complex (Kind=nag_wp), Intent (Out) |
:: |
fz(nz) |
|
C Header Interface
void |
f_ (const Integer *m, Integer *iflag, const Integer *nz, const Complex z[], Complex fz[], Integer iuser[], double ruser[]) |
|
C++ Header Interface
#include <nag.h> extern "C" {
void |
f_ (const Integer &m, Integer &iflag, const Integer &nz, const Complex z[], Complex fz[], Integer iuser[], double ruser[]) |
}
|
-
1:
– Integer
Input
-
On entry: the order,
, of the derivative required.
If , should be returned. For , should be returned.
-
2:
– Integer
Input/Output
-
On entry:
iflag will be zero.
On exit:
iflag should either be unchanged from its entry value of zero, or may be set nonzero to indicate that there is a problem in evaluating the function
; for instance
may not be defined. If
iflag is returned as nonzero then
f01kcf will terminate the computation, with
.
-
3:
– Integer
Input
-
On entry: , the number of function or derivative values required.
-
4:
– Complex (Kind=nag_wp) array
Input
-
On entry: the points at which the function is to be evaluated.
-
5:
– Complex (Kind=nag_wp) array
Output
-
On exit: the function or derivative values.
should return the value , for .
-
6:
– Integer array
User Workspace
-
7:
– Real (Kind=nag_wp) array
User Workspace
-
f is called with the arguments
iuser and
ruser as supplied to
f01kcf. You should use the arrays
iuser and
ruser to supply information to
f.
f must either be a module subprogram USEd by, or declared as EXTERNAL in, the (sub)program from which
f01kcf is called. Arguments denoted as
Input must
not be changed by this procedure.
Note: f should not return floating-point NaN (Not a Number) or infinity values, since these are not handled by
f01kcf. If your code inadvertently
does return any NaNs or infinities,
f01kcf is likely to produce unexpected results.
-
5:
– Integer array
User Workspace
-
6:
– Real (Kind=nag_wp) array
User Workspace
-
iuser and
ruser are not used by
f01kcf, but are passed directly to
f and may be used to pass information to this routine.
-
7:
– Integer
Output
-
On exit:
, unless
iflag has been set nonzero inside
f, in which case
iflag will be the value set and
ifail will be set to
.
-
8:
– Real (Kind=nag_wp)
Output
-
On exit: an estimate of the absolute condition number of at .
-
9:
– Real (Kind=nag_wp)
Output
-
On exit: the -norm of .
-
10:
– Real (Kind=nag_wp)
Output
-
On exit: the -norm of .
-
11:
– Integer
Input/Output
-
On entry:
ifail must be set to
,
. If you are unfamiliar with this argument you should refer to
Section 4 in the Introduction to the NAG Library FL Interface for details.
For environments where it might be inappropriate to halt program execution when an error is detected, the value
is recommended. If the output of error messages is undesirable, then the value
is recommended. Otherwise, if you are not familiar with this argument, the recommended value is
.
When the value is used it is essential to test the value of ifail on exit.
On exit:
unless the routine detects an error or a warning has been flagged (see
Section 6).
6
Error Indicators and Warnings
If on entry
or
, explanatory error messages are output on the current error message unit (as defined by
x04aaf).
Errors or warnings detected by the routine:
-
An internal error occurred when estimating the norm of the Fréchet derivative of
at
. Please contact
NAG.
-
An internal error occurred when evaluating the matrix function
. You can investigate further by calling
f01fmf with the matrix
and the function
.
-
iflag has been set nonzero by the user-supplied subroutine.
-
On entry, .
-
On entry, argument
lda is invalid.
Constraint:
.
An unexpected error has been triggered by this routine. Please
contact
NAG.
See
Section 7 in the Introduction to the NAG Library FL Interface for further information.
Your licence key may have expired or may not have been installed correctly.
See
Section 8 in the Introduction to the NAG Library FL Interface for further information.
Dynamic memory allocation failed.
See
Section 9 in the Introduction to the NAG Library FL Interface for further information.
7
Accuracy
f01kcf uses the norm estimation routine
f04zdf to estimate a quantity
, where
and
. For further details on the accuracy of norm estimation, see the documentation for
f04zdf.
8
Parallelism and Performance
f01kcf is threaded by NAG for parallel execution in multithreaded implementations of the NAG Library. In these implementations, this routine may make calls to the user-supplied functions from within an OpenMP parallel region. Thus OpenMP directives within the user functions can only be used if you are compiling the user-supplied function and linking the executable in accordance with the instructions in the
Users' Note for your implementation. The user workspace arrays
iuser and
ruser are classified as OpenMP shared memory and use of
iuser and
ruser has to take account of this in order to preserve thread safety whenever information is written back to either of these arrays. If at all possible, it is recommended that these arrays are only used to supply read-only data to the user functions when a multithreaded implementation is being used.
f01kcf makes calls to BLAS and/or LAPACK routines, which may be threaded within the vendor library used by this implementation. Consult the documentation for the vendor library for further information.
Please consult the
X06 Chapter Introduction for information on how to control and interrogate the OpenMP environment used within this routine. Please also consult the
Users' Note for your implementation for any additional implementation-specific information.
Approximately
of complex allocatable memory is required by the routine, in addition to the memory used by the underlying matrix function routine
f01fmf.
f01kcf returns the matrix function
. This is computed using
f01fmf. If only
is required, without an estimate of the condition number, then it is far more efficient to use
f01fmf directly.
The real analogue of this routine is
f01jcf.
10
Example
This example estimates the absolute and relative condition numbers of the matrix function
where
10.1
Program Text
10.2
Program Data
10.3
Program Results