Museum

Home

Lab Overview

Retrotechnology Articles

Online Manuals

⇒ vec_add_mult_constant_i(A) — Apollo

Media Vault

Software Library

Restoration Projects

Artifacts Sought

Related Articles

vec_$mult_add_constant

vec_$sub_mult_constant

vec_$rsub_mult_constant

vec_$add_mult_constant

vec_$dadd_mult_constant

vec_$dadd_mult_constant_i

vec_$iadd_mult_constant

vec_$iadd_mult_constant_i

vec_$iadd_mult_constant16

vec_$iadd_mult_constant16_i

VEC_$ADD_MULT_CONSTANT_I          Domain/OS           VEC_$ADD_MULT_CONSTANT_I


NAME
     vec_$add_mult_constant_i - add two single-precision vectors, multiply by
     a scalar

SYNOPSIS (C)
     #include <apollo/base.h>
     #include <apollo/vec.h>

     void vec_$add_mult_constant_i(
          float *start_vec,
          long int &start_inc,
          float *add_vec,
          long int &add_inc,
          long int &length,
          float &constant,
          float *result_vec,
          long int &result_inc)

SYNOPSIS (Pascal)
     %include '/sys/ins/base.ins.pas';
     %include '/sys/ins/vec.ins.pas';

     procedure vec_$add_mult_constant_i(
          in start_vec: univ vec_$real_vector;
          in start_inc: integer32;
          in add_vec: univ vec_$real_vector;
          in add_inc: integer32;
          in length: integer32;
          in constant: real;
          out result_vec: univ vec_$real_vector;
          in result_inc: integer32);

SYNOPSIS (FORTRAN)
     %include '/sys/ins/base.ins.ftn'
     %include '/sys/ins/vec.ins.ftn'

           parameter (nvec = 10)

           real start_vec(nvec), add_vec(nvec), result_vec(nvec), constant
           integer*4 length, start_inc, add_inc, result_inc

           call vec_$add_mult_constant_i(start_vec, start_inc, add_vec, add_inc,
          & length, constant, result_vec, result_inc)

DESCRIPTION
     Vec_$add_mult_constant_i adds its two argument vectors, start_vec and
     add_vec, then multiplies the result by the scalar constant, and stores
     the final result in result_vec.  This routine allows you to specify pro-
     cessing increments for each argument vector: thus, you can add the first,
     third, and fifth elements of start_vec to the second, fourth, and sixth
     elements of add_vec and place the results into the third, sixth, and
     ninth elements of result_vec.

     The calculation performed is as follows:  Initialize the counter vari-
     ables J, K, and L to the low indices of the arrays start_vec, add_vec,
     and result_vec.  In Fortran, the low index will be 1;  in C, it will be
     0; in Pascal, it varies depending on the declaration.
     Execute the following equations length times:
     result_vec(L) = (start_vec(J) + add_vec(K)) x constant
     J=J+start_inc
     K=K+add_inc
     L=L+result_inc


     start_vec
          An addend vector.

     start_inc
          The increment to be used when stepping through start_vec.

     add_vec
          An addend vector.

     add_inc
          The increment to be used when stepping through add_vec.

     length
          The number of elements to be summed;  normally the same as the
          number of elements in the vectors.

     constant
          The scalar constant by which the result of the addition is multi-
          plied.

     result_vec
          The vector created by adding start_vec and add_vec and multiplying
          the resulting vector by constant.

     result_inc
          The increment to be used when stepping through result_vec.

NOTES
     When vec_$add_mult_constant_i is used to operate on matrixes in C and
     Pascal, mult_vec and result_vec are row vectors; in FORTRAN, they are
     column vectors.

     As in all the vec_$ calls, the result array must not overlap any of the
     input arrays; the result array may be identical to an input, but must not
     contain any subset of it.   Because of pipelining, using overlapping
     input and output arrays may cause incorrect results.


SEE ALSO
     vec_$mult_add_constant, vec_$sub_mult_constant, vec_$rsub_mult_constant,
     vec_$add_mult_constant, vec_$dadd_mult_constant,
     vec_$dadd_mult_constant_i, vec_$iadd_mult_constant,
     vec_$iadd_mult_constant_i, vec_$iadd_mult_constant16,
     vec_$iadd_mult_constant16_i.

Typewritten Software • bear@typewritten.org • Edmonds, WA 98026