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