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