CQRQC(3)

SYNOPSIS
SUBROUTINE CQRQC (LUN, KPRINT, NERR)

NAME
cqrqc - Quick check for CQRDC and CQRSL.

LIBRARY
SLATEC

KEYWORDS
QUICK CHECK

AUTHOR
Voorhees, E. A., (LANL)

DESCRIPTION
THE RETURNED FLOATING POINT VALUES FROM CQRDC AND CQRSL FOR FACTORED X, QRAUX, QY, QTY, B, RSD, AND XB ARE COMPARED TO THEIR CORRESPONDING STORED PRE-COMPUTED VALUES (ENTERED WITH DATA STATEMENTS). FAILURE OF THE TEST OCCURS WHEN AGREEMENT TO 3 SIGNIFICANT DIGITS IS NOT ACHIEVED AND AN ERROR MESSAGE IS THEN PRINTED. THE RETURNED INTEGER VALUES OF JPVT AND INFO ARE ALSO CHECKED. LACK OF AGREEMENT RESULTS IN AN ERROR MESSAGE. A SUMMARY LINE IS ALWAYS PRINTED. NO INPUT ARGUMENTS ARE REQUIRED. ON RETURN, NERR (INTEGER TYPE) CONTAINS THE TOTAL COUNT OF ALL FAILURES DETECTED.

ROUTINES CALLED
CQRDC, CQRSL

REVISION HISTORY (YYMMDD)
801029 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)