header()

subroutine header

Definition at line 95 of file dblat1.f.

*     .. Parameters ..
      INTEGER          NOUT
      parameter(nout=6)
*     .. Scalars in Common ..
      INTEGER          ICASE, INCX, INCY, N
      LOGICAL          PASS
*     .. Local Arrays ..
      CHARACTER*6      L(13)
*     .. Common blocks ..
      COMMON           /combla/icase, n, incx, incy, pass
*     .. Data statements ..
      DATA             l(1)/' DDOT '/
      DATA             l(2)/'DAXPY '/
      DATA             l(3)/'DROTG '/
      DATA             l(4)/' DROT '/
      DATA             l(5)/'DCOPY '/
      DATA             l(6)/'DSWAP '/
      DATA             l(7)/'DNRM2 '/
      DATA             l(8)/'DASUM '/
      DATA             l(9)/'DSCAL '/
      DATA             l(10)/'IDAMAX'/
      DATA             l(11)/'DROTMG'/
      DATA             l(12)/'DROTM '/
      DATA             l(13)/'DSDOT '/
*     .. Executable Statements ..
      WRITE (nout,99999) icase, l(icase)
      RETURN
*
99999 FORMAT (/' Test of subprogram number',i3,12x,a6)
*
*     End of HEADER
*