9.80 DOT_PRODUCT — Функция скалярного произведения

Описание:

DOT_PRODUCT(VECTOR_A, VECTOR_B) вычисляет скалярное произведение двух векторов VECTOR_A и VECTOR_B. Два вектора могут быть либо числовыми, либо логическими и должны быть массивами ранга один и одинакового размера. Если векторы являются INTEGER или REAL, результат является SUM(VECTOR_A*VECTOR_B). Если векторы являются COMPLEX, результат является SUM(CONJG(VECTOR_A)*VECTOR_B). Если векторы являются LOGICAL, результат является ANY(VECTOR_A .AND. VECTOR_B).

Стандарт:

Fortran 95 и более поздние версии

Класс:

Трансформационная функция

Синтаксис:

RESULT = DOT_PRODUCT(VECTOR_A, VECTOR_B)

Аргументы:

VECTOR_A	Тип должен быть числовым или LOGICAL, ранг 1.
VECTOR_B	Тип должен быть числовым, если VECTOR_A имеет числовой тип, или LOGICAL если VECTOR_A имеет тип LOGICAL. VECTOR_B должен быть массивом ранга один.

Возвращаемое значение:

Если аргументы являются числовыми, возвращаемое значение — скаляр числового типа, INTEGER, REAL, или COMPLEX. Если аргументы являются LOGICAL, возвращаемое значение является .TRUE. или .FALSE..

Пример:

program test_dot_prod
    integer, dimension(3) :: a, b
    a = (/ 1, 2, 3 /)
    b = (/ 4, 5, 6 /)
    print '(3i3)', a
    print *
    print '(3i3)', b
    print *
    print *, dot_product(a,b)
end program test_dot_prod