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