1*DECK HEADER
2      SUBROUTINE HEADER (KPRINT)
3C***BEGIN PROLOGUE  HEADER
4C***PURPOSE  Print header for BLAS quick checks.
5C***LIBRARY   SLATEC
6C***AUTHOR  Lawson, C. L., (JPL)
7C***ROUTINES CALLED  (NONE)
8C***COMMON BLOCKS    COMBLA
9C***REVISION HISTORY  (YYMMDD)
10C   741212  DATE WRITTEN
11C   891214  Prologue converted to Version 4.0 format.  (BAB)
12C   920210  Minor modifications to prologue and code.  (WRB)
13C***END PROLOGUE  HEADER
14      COMMON /COMBLA/ NPRINT, ICASE, N, INCX, INCY, MODE, PASS
15      LOGICAL PASS
16      CHARACTER*6 L(38)
17C
18      DATA L(1)  /'  SDOT'/
19      DATA L(2)  /' DSDOT'/
20      DATA L(3)  /'SDSDOT'/
21      DATA L(4)  /'  DDOT'/
22      DATA L(5)  /'DQDOTI'/
23      DATA L(6)  /'DQDOTA'/
24      DATA L(7)  /' CDOTC'/
25      DATA L(8)  /' CDOTU'/
26      DATA L(9)  /' SAXPY'/
27      DATA L(10) /' DAXPY'/
28      DATA L(11) /' CAXPY'/
29      DATA L(12) /' SROTG'/
30      DATA L(13) /' DROTG'/
31      DATA L(14) /'  SROT'/
32      DATA L(15) /'  DROT'/
33      DATA L(16) /'SROTMG'/
34      DATA L(17) /'DROTMG'/
35      DATA L(18) /' SROTM'/
36      DATA L(19) /' DROTM'/
37      DATA L(20) /' SCOPY'/
38      DATA L(21) /' DCOPY'/
39      DATA L(22) /' CCOPY'/
40      DATA L(23) /' SSWAP'/
41      DATA L(24) /' DSWAP'/
42      DATA L(25) /' CSWAP'/
43      DATA L(26) /' SNRM2'/
44      DATA L(27) /' DNRM2'/
45      DATA L(28) /'SCNRM2'/
46      DATA L(29) /' SASUM'/
47      DATA L(30) /' DASUM'/
48      DATA L(31) /'SCASUM'/
49      DATA L(32) /' SSCAL'/
50      DATA L(33) /' DSCAL'/
51      DATA L(34) /' CSCAL'/
52      DATA L(35) /'CSSCAL'/
53      DATA L(36) /'ISAMAX'/
54      DATA L(37) /'IDAMAX'/
55      DATA L(38) /'ICAMAX'/
56C***FIRST EXECUTABLE STATEMENT  HEADER
57      IF (KPRINT .GE. 2) WRITE (NPRINT,9000) ICASE,L(ICASE)
58      RETURN
59C
60 9000 FORMAT (' Test of subprogram number', I3, 2X, A)
61      END
62