1      subroutine  yscal(n,da,dx,incx)
2*
3* $Id$
4*
5c
6      implicit none
7#include "y64.fh"
8      double precision da,dx(*)
9      integer n,incx
10c
11      INTGR4 n4,incx4
12c
13      n4=n
14      incx4=incx
15c
16      call dscal(n4,da,dx,incx4)
17      return
18      end
19