dsdotsub.f File Reference

Go to the source code of this file.


subroutine dsdotsub (n, x, incx, y, incy, dot)

Function/Subroutine Documentation

◆ dsdotsub()

subroutine dsdotsub ( integer  n,
real, dimension(*)  x,
integer  incx,
real, dimension(*)  y,
integer  incy,
double precision  dot 

Definition at line 7 of file dsdotsub.f.

7 c
8  external dsdot
9  double precision dsdot,dot
10  integer n,incx,incy
11  real x(*),y(*)
12 c
13  dot=dsdot(n,x,incx,y,incy)
14  return