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