subroutine header

(

)

Definition at line 91 of file zblat1.f.

*     .. Parameters ..
      INTEGER          nout
      parameter            (nout=6)
*     .. Scalars in Common ..
      INTEGER          icase, incx, incy, mode, n
      LOGICAL          pass
*     .. Local Arrays ..
      CHARACTER*6      l(10)
*     .. Common blocks ..
      COMMON           /combla/icase, n, incx, incy, mode, pass
*     .. Data statements ..
      DATA             l(1)/'ZDOTC '/
      DATA             l(2)/'ZDOTU '/
      DATA             l(3)/'ZAXPY '/
      DATA             l(4)/'ZCOPY '/
      DATA             l(5)/'ZSWAP '/
      DATA             l(6)/'DZNRM2'/
      DATA             l(7)/'DZASUM'/
      DATA             l(8)/'ZSCAL '/
      DATA             l(9)/'ZDSCAL'/
      DATA             l(10)/'IZAMAX'/
*     .. Executable Statements ..
      WRITE (nout,99999) icase, l(icase)
      RETURN
*
99999 FORMAT (/' Test of subprogram number',i3,12x,a6)