Go to main content
Oracle Developer Studio 12.5 Man Pages

Exit Print View

Updated: June 2017
 
 

cdotui (3p)

Name

cdotui - Compute the complex unconjugated indexed dot product.

Synopsis

COMPLEX FUNCTION CDOTUI(NZ, X, INDX, Y)

COMPLEX X(*), Y(*)
INTEGER NZ
INTEGER INDX(*)

COMPLEX FUNCTION CDOTUI_64(NZ, X, INDX, Y)

COMPLEX X(*), Y(*)
INTEGER*8 NZ
INTEGER*8 INDX(*)


F95 INTERFACE
COMPLEX FUNCTION DOTUI(NZ, X, INDX, Y)

COMPLEX, DIMENSION(:) :: X, Y
INTEGER :: NZ
INTEGER, DIMENSION(:) :: INDX

COMPLEX FUNCTION DOTUI_64(NZ, X, INDX, Y)

COMPLEX, DIMENSION(:) :: X, Y
INTEGER(8) :: NZ
INTEGER(8), DIMENSION(:) :: INDX





C INTERFACE
#include <sunperf.h>

floatcomplex cdotui (const int nz, const floatcomplex* x, const int*
indx, const floatcomplex* y);

floatcomplex cdotui_64 (const long nz, const floatcomplex* x, const
long* indx, const floatcomplex* y);

Description

Oracle Solaris Studio Performance Library                           cdotui(3P)



NAME
       cdotui - Compute the complex unconjugated indexed dot product.

SYNOPSIS
        COMPLEX FUNCTION CDOTUI(NZ, X, INDX, Y)

        COMPLEX X(*), Y(*)
        INTEGER NZ
        INTEGER INDX(*)

        COMPLEX FUNCTION CDOTUI_64(NZ, X, INDX, Y)

        COMPLEX X(*), Y(*)
        INTEGER*8 NZ
        INTEGER*8 INDX(*)


   F95 INTERFACE
        COMPLEX FUNCTION DOTUI(NZ, X, INDX, Y)

        COMPLEX, DIMENSION(:) :: X, Y
        INTEGER :: NZ
        INTEGER, DIMENSION(:) :: INDX

        COMPLEX FUNCTION DOTUI_64(NZ, X, INDX, Y)

        COMPLEX, DIMENSION(:) :: X, Y
        INTEGER(8) :: NZ
        INTEGER(8), DIMENSION(:) :: INDX





   C INTERFACE
       #include <sunperf.h>

       floatcomplex cdotui (const int nz, const floatcomplex* x, const int*
                 indx, const floatcomplex* y);

       floatcomplex cdotui_64 (const long nz, const floatcomplex* x, const
                 long* indx, const floatcomplex* y);




PURPOSE
       CDOTUI Compute the complex unconjugated indexed dot product of a com-
       plex sparse vector x stored in compressed form with a complex vector y
       in full storage form.

        dot = 0
        do i = 1, n
          dot = dot + x(i) * y(indx(i))
        enddo


ARGUMENTS
       NZ (input)
               Number of elements in the compressed form.  Unchanged on exit.

       X (input)
               Vector in compressed form.  Unchanged on exit.

       INDX (input)
               Vector containing the indices of the compressed form.  It is
               assumed that the elements in INDX are distinct and greater than
               zero.  Unchanged on exit.

       Y (input)
               Vector in full storage form.  Only the elements corresponding
               to the indices in INDX will be accessed.



3rd Berkeley Distribution         7 Nov 2015                        cdotui(3P)