HP 3000 Manuals

Compiler Library/XL Reference Manual

CINVERT 

CINVERT inverts a square matrix containing complex elements represented
as an ordered pair of real elements:  one for the real part a and one for
the imaginary part b.  The resulting inverse is stored over the input
matrix.

Declaration 

     TYPE complex=RECORD
                   realpart:REAL;
                   imagpart:REAL;
                  END;
          complex_matx=ARRAY[1..N, 1..N] OF complex;

     PROCEDURE CINVERT (VAR N:SHORTINT; ANYVAR A:complex_matx;
                        VAR D:SHORTINT); EXTERNAL;

Attributes 

Parameters:               N is an integer for the order of the matrix; A
                          is a real identifier of the matrix for D, an
                          integer identifier.

Result:                   CINVERT replaces the original matrix, and D
                          equals 1 if the matrix is non-singular or 0 if
                          the matrix is singular and no inverse exists.

HP FORTRAN 77/XL:         Callable as a system intrinsic:

                                    CALL CINVERT(N, A, D)

                          or as a system intrinsic statement.

Error:                    None.

MPE/iX 5.0 Documentation