01: c     plasma_zdotusub.f
02: c
03:       subroutine plasma_zdotusub(n,x,incx,y,incy,plasma_dotu)
04: c
05:       external plasma_zdotu
06:       double complex plasma_zdotu,plasma_dotu
07:       integer n,incx,incy
08:       double complex x(*),y(*)
09: c
10:       plasma_dotu=plasma_zdotu(n,x,incx,y,incy)
11:       return
12:       end
13: