Subrutina AUGV

Esta subrutina tiene los argumentos (Z, X, F, Y) y su función consiste en realizar la operación:

Z = X + F * Y

donde X, Y y Z son vectores de dimensión seis y F es un número en punto flotante.

                               SUBROUTINE  AUGV (Z,X,F,Y)
                               DIMENSION    Z(6), X(6), Y(6)
                               DO 10 I=1,6
                            10 Z(I)=X(I)+F*Y(I)
                               RETURN
                               END

Veremos la utilidad de este subprograma cuando discutamos la subrutina RUKU.