[001a9d]: itpp / base / zdotusub.f  Maximize  Restore  History

Download this file

17 lines (16 with data), 403 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
c zdotusub.f
c
c The program is a fortran wrapper for zdotu.
c Witten by Keita Teranishi. 2/11/1998
c Interface modified by Adam Piatyszek to match ACML zdotusub_()
c
subroutine zdotusub(dotu,n,x,incx,y,incy)
c
external zdotu
double complex zdotu,dotu
integer n,incx,incy
double complex x(*),y(*)
c
dotu=zdotu(n,x,incx,y,incy)
return
end