LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
subroutine itest1
(
integer
ICOMP
,
integer
ITRUE
)
Definition at line
982
of file
sblat1.f
.
982
* ********************************* ITEST1 *************************
983
*
984
* THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
985
* EQUALITY.
986
* C. L. LAWSON, JPL, 1974 DEC 10
987
*
988
* .. Parameters ..
989
INTEGER
nout
990
parameter (nout=6)
991
* .. Scalar Arguments ..
992
INTEGER
icomp, itrue
993
* .. Scalars in Common ..
994
INTEGER
icase, incx, incy, n
995
LOGICAL
pass
996
* .. Local Scalars ..
997
INTEGER
id
998
* .. Common blocks ..
999
COMMON
/combla/icase, n, incx, incy, pass
1000
* .. Executable Statements ..
1001
*
1002
IF
(icomp.EQ.itrue)
GO TO
40
1003
*
1004
* HERE ICOMP IS NOT EQUAL TO ITRUE.
1005
*
1006
IF
( .NOT. pass)
GO TO
20
1007
* PRINT FAIL MESSAGE AND HEADER.
1008
pass = .false.
1009
WRITE
(nout,99999)
1010
WRITE
(nout,99998)
1011
20 id = icomp - itrue
1012
WRITE
(nout,99997) icase, n, incx, incy, icomp, itrue, id
1013
40
CONTINUE
1014
RETURN
1015
*
1016
99999
FORMAT
(
' FAIL'
)
1017
99998
FORMAT
(/
' CASE N INCX INCY '
,
1018
+
' COMP TRUE DIFFERENCE'
,
1019
+ /1x)
1020
99997
FORMAT
(1x,i4,i3,2i5,2i36,i12)
BLAS
TESTING
sblat1.f
Generated on Fri Dec 23 2016 15:28:50 for LAPACK by
1.8.10