CGTQC(3)

SYNOPSIS
SUBROUTINE CGTQC (LUN, KPRINT, NERR)

NAME
cgtqc - Quick check for CGTSL.

LIBRARY
SLATEC

KEYWORDS
QUICK CHECK

AUTHOR
Voorhees, E. A., (LANL)

DESCRIPTION
LET A*X=B BE A COMPLEX LINEAR SYSTEM WHERE THE MATRIX A IS OF THE PROPER TYPE FOR THE LINPACK SUBROUTINE BEING TESTED. THE VALUES OF A AND B AND THE PRE-COMPUTED VALUES OF CX (THE SOLUTION VECTOR) ARE ENTERED WITH DATA STATEMENTS. THE COMPUTED VALUES OF X ARE COMPARED TO THE STORED PRE-COMPUTED VALUES OF CX. FAILURE OF THE TEST OCCURS WHEN AGREEMENT TO 3 SIGNIFICANT DIGITS IS NOT ACHIEVED AND AN ERROR MESSAGE IS PRINTED. A SUMMARY LINE IS ALWAYS PRINTED. NO INPUT ARGUMENTS ARE REQUIRED. ON RETURN, NERR (INTEGER TYPE) CONTAINS THE TOTAL COUNT OF ALL FAILURES DETECTED BY CGTQC.

ROUTINES CALLED
CGTSL

REVISION HISTORY (YYMMDD)
801024 DATE WRITTEN
890618 REVISION DATE from Version 3.2
891214 Prologue converted to Version 4.0 format. (BAB)
901010 Restructured using IF-THEN-ELSE-ENDIF, moved an ARITHMETIC STATEMENT FUNCTION ahead of the FIRST EXECUTABLE STATEMENT record and cleaned up FORMATs. (RWC)