Subrutina INDI

Con esta subrutina preparamos los datos de entrada. Sirve para leer las cargas eléctricas y magnéticas, así como los valores iniciales de coordenadas y momentos. A través de ciertos indicadores especifica también el programa si queremos obtener ciertas gráficas, cuántas líneas por gráfica, etc.

        SUBROUTINE INDI (X)
        DIMESNION  X(6)
        COMMON     T,DT,H,ALFA,IPR,IPO,G1,G2,Z1,Z2,GPL,GMI,EPP,EPM,XK,M0
        COMMON     IC,IT,IG,IP
    200 FORMAT  (F5.0,7I3)
    204 FORMAT  (4F5.0)
    205 FORMAT  (6F10.0)
        READ    (2,200) DT,IPO,IPR,IC,IT,IG,IP
        IF (IPO) 2,3,4
      2 MO=2
        RETURN
      3 CALL EXIT
      4 READ (2,204) G1,G2,Z1,Z2
        READ (2,205) X
        RETURN
        END

Los datos que especifican los diferentes casos se leen en bloques de tres tarjetas; ya hemos explicado el papel de los diferentes parámetros. Con la variable IPO empleamos un truco que consiste en hacer cero el valor de dicha variable cuando queremos que el programa deje de trabajar; si la tarjeta en que debe aparecer perforada dicha variable, está en blanco, entonces el programa termina. Como puede observarse, el programa general no tiene opción de salida; es por medio de INDI como salimos siempre que lo deseamos. El valor negativo de IPO ya no se usa; originalmente servía para tener la facilidad de leer datos por medio del teletipo además de hacerlo con la lectora de tarjetas.