Subrutina INDO

Para escribir los datos iniciales usamos la subrutina INDO; es la subrutina que prepara los encabezados de las gráficas (vea los ejemplos). Su funcionamiento es muy simple y no requiere mayor discusión.

        SUBROUTINE  INDO (X)
        DIMENSION   X(6)
        COMMON      T,DT,H,ALFA,IPR,IPO,G1,G2,Z1,Z2,GPL,GMI,EPP,EPM,XK,MO
        COMMON      IC,IT,IG,IP
    300 FORMAT ('  XI (+) =',F8.3,', ETA (*) =',F8.3,',PHI (,) =',F8.3,
       *        ', PXI =',F8.3,', PETA =',F8.3,', PPHI =',F8.3)
    301 FORMAT ('  H=',F10.3,',ALPHA =',F10.3)
    302 FORMAT ('  LOS VALORES INICIALES SON  ')
    303 FORMAT ('  INCREMENTO =',F5.2,', NUMERO DE PUNTOS = ',
       *        I3,', IMPRIME INTERVALO =' ,I3)
    304 FORMAT ('  CARGA MAGNETICA 1= ',F5.2,' 2= ',F5.2,/
       *        '  CARGA ELECTRICA 1= ',F5.2,' 2= ',F5.2)
        WRITE (3,303) DT,IPO,IPR
        WRITE (3,304) G1,G2,Z1,Z2
        WRITE (3,302)
        WRITE (3,300) X
        WRITE (3,301) H,ALFA
        RETURN
        END

Las subrutinas restantes constituyen la parte central del programa y las discutiremos con cierto detalle, recuérdese que estamos usando la notación de la computadora 1130.