Subrutina CPYV

Los argumentos de esta subrutina son ( X, Z ) y realiza la operación,

X = Z

Debido a que X es un vector, no puede usarse como argumento de una expresión aritmética en FORTRAN, por eso hay que llamar a la subrutina siempre que deseamos realizar una operación de ese tipo. Más adelante veremos la utilidad de dicha subrutina.

                             SUBROUTINE CPYV (Z,X)
                             DIMENSION Z(6), X(6)
                             DO 10 I=1, 6
                          10 Z(I)=X(I)
                             RETURN
                             END