LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
subroutine itest1
(
integer
ICOMP
,
integer
ITRUE
)
Definition at line
1026
of file
dblat1.f
.
1026
* ********************************* ITEST1 *************************
1027
*
1028
* THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
1029
* EQUALITY.
1030
* C. L. LAWSON, JPL, 1974 DEC 10
1031
*
1032
* .. Parameters ..
1033
INTEGER
nout
1034
parameter (nout=6)
1035
* .. Scalar Arguments ..
1036
INTEGER
icomp, itrue
1037
* .. Scalars in Common ..
1038
INTEGER
icase, incx, incy, n
1039
LOGICAL
pass
1040
* .. Local Scalars ..
1041
INTEGER
id
1042
* .. Common blocks ..
1043
COMMON
/combla/icase, n, incx, incy, pass
1044
* .. Executable Statements ..
1045
*
1046
IF
(icomp.EQ.itrue)
GO TO
40
1047
*
1048
* HERE ICOMP IS NOT EQUAL TO ITRUE.
1049
*
1050
IF
( .NOT. pass)
GO TO
20
1051
* PRINT FAIL MESSAGE AND HEADER.
1052
pass = .false.
1053
WRITE
(nout,99999)
1054
WRITE
(nout,99998)
1055
20 id = icomp - itrue
1056
WRITE
(nout,99997) icase, n, incx, incy, icomp, itrue, id
1057
40
CONTINUE
1058
RETURN
1059
*
1060
99999
FORMAT
(
' FAIL'
)
1061
99998
FORMAT
(/
' CASE N INCX INCY '
,
1062
+
' COMP TRUE DIFFERENCE'
,
1063
+ /1x)
1064
99997
FORMAT
(1x,i4,i3,2i5,2i36,i12)
BLAS
TESTING
dblat1.f
Generated on Fri Dec 23 2016 15:28:50 for LAPACK by
1.8.10