header()

subroutine header

Definition at line 48 of file c_zblat1.f.

*     .. Parameters ..
      INTEGER          NOUT
      parameter(nout=6)
*     .. Scalars in Common ..
      INTEGER          ICASE, INCX, INCY, MODE, N
      LOGICAL          PASS
*     .. Local Arrays ..
      CHARACTER*15      L(10)
*     .. Common blocks ..
      COMMON           /combla/icase, n, incx, incy, mode, pass
*     .. Data statements ..
      DATA             l(1)/'CBLAS_ZDOTC'/
      DATA             l(2)/'CBLAS_ZDOTU'/
      DATA             l(3)/'CBLAS_ZAXPY'/
      DATA             l(4)/'CBLAS_ZCOPY'/
      DATA             l(5)/'CBLAS_ZSWAP'/
      DATA             l(6)/'CBLAS_DZNRM2'/
      DATA             l(7)/'CBLAS_DZASUM'/
      DATA             l(8)/'CBLAS_ZSCAL'/
      DATA             l(9)/'CBLAS_ZDSCAL'/
      DATA             l(10)/'CBLAS_IZAMAX'/
*     .. Executable Statements ..
      WRITE (nout,99999) icase, l(icase)
      RETURN
*
99999 FORMAT (/' Test of subprogram number',i3,9x,a15)