1*bf2c3715SXin Li COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) 2*bf2c3715SXin Li INTEGER INCX,INCY,N 3*bf2c3715SXin Li COMPLEX CX(*),CY(*) 4*bf2c3715SXin Li COMPLEX RES 5*bf2c3715SXin Li EXTERNAL CDOTCW 6*bf2c3715SXin Li 7*bf2c3715SXin Li CALL CDOTCW(N,CX,INCX,CY,INCY,RES) 8*bf2c3715SXin Li CDOTC = RES 9*bf2c3715SXin Li RETURN 10*bf2c3715SXin Li END 11*bf2c3715SXin Li 12*bf2c3715SXin Li COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) 13*bf2c3715SXin Li INTEGER INCX,INCY,N 14*bf2c3715SXin Li COMPLEX CX(*),CY(*) 15*bf2c3715SXin Li COMPLEX RES 16*bf2c3715SXin Li EXTERNAL CDOTUW 17*bf2c3715SXin Li 18*bf2c3715SXin Li CALL CDOTUW(N,CX,INCX,CY,INCY,RES) 19*bf2c3715SXin Li CDOTU = RES 20*bf2c3715SXin Li RETURN 21*bf2c3715SXin Li END 22*bf2c3715SXin Li 23*bf2c3715SXin Li DOUBLE COMPLEX FUNCTION ZDOTC(N,CX,INCX,CY,INCY) 24*bf2c3715SXin Li INTEGER INCX,INCY,N 25*bf2c3715SXin Li DOUBLE COMPLEX CX(*),CY(*) 26*bf2c3715SXin Li DOUBLE COMPLEX RES 27*bf2c3715SXin Li EXTERNAL ZDOTCW 28*bf2c3715SXin Li 29*bf2c3715SXin Li CALL ZDOTCW(N,CX,INCX,CY,INCY,RES) 30*bf2c3715SXin Li ZDOTC = RES 31*bf2c3715SXin Li RETURN 32*bf2c3715SXin Li END 33*bf2c3715SXin Li 34*bf2c3715SXin Li DOUBLE COMPLEX FUNCTION ZDOTU(N,CX,INCX,CY,INCY) 35*bf2c3715SXin Li INTEGER INCX,INCY,N 36*bf2c3715SXin Li DOUBLE COMPLEX CX(*),CY(*) 37*bf2c3715SXin Li DOUBLE COMPLEX RES 38*bf2c3715SXin Li EXTERNAL ZDOTUW 39*bf2c3715SXin Li 40*bf2c3715SXin Li CALL ZDOTUW(N,CX,INCX,CY,INCY,RES) 41*bf2c3715SXin Li ZDOTU = RES 42*bf2c3715SXin Li RETURN 43*bf2c3715SXin Li END 44