CBLAS/src/sdotsub.f

   1 c     sdotsub.f
   2 c
   3 c     The program is a fortran wrapper for sdot.
   4 c     Witten by Keita Teranishi.  2/11/1998
   5 c
   6       subroutine sdotsub(n,x,incx,y,incy,dot)
   7 c
   8       external sdot
   9       real sdot
  10       integer n,incx,incy
  11       real x(*),y(*),dot
  12 c
  13       dot=sdot(n,x,incx,y,incy)
  14       return
  15       end