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