Subrutina ZERV

Esta subrutina tiene sólo un argumento (Z), realiza la operación:

                                      Z = O
                    C
                           SUBROUTINE ZERV (Z)
                           DIMENSION Z(6)
                           DO 10 I=1,6
                        10 Z(I) = 0.0
                           RETURN
                           END

No necesita más comentarios. Aunque los procesos anteriores son muy simples, se ha optado por el uso de subrutinas para realizarlas porque se usan muchas veces en diferentes partes del programa; las demás subrutinas son un poco más complicadas, En primer lugar, tenemos dos que son de entrada respectivamente.