Discusión del programa PRYPO

En otra sección se habló ya de la subrutina PRYPO como parte del programa TWOC. Sin embargo, debido a la poca flexibilidad que se tiene al manejarla dentro de un programa con otras opciones, se ha preferido usarla como un programa independiente el cual tiene a su vez diferentes posibilidades. Este programa calcula y grafica las funciones $f_1$, $f_2$, $s_1$ y $s_2$ discutidas en la página 15, en su versión más completa, está escrito en FORTRAN para la computadora PDP-10. Además se obtienen gráficas para la región permitida y la region excluida del movmiento. Otra cosa que se grafica aquí son los niveles de energía potencial constante usando el potencial completo, en tanto que en CNTU se ven los efectos del potencial electrostático y la parte centrífuga del potencial. Entre los parámetros que usa PRYPO están algunos de los usados por TWOC y otros que iremos discutiendo a su tiempo. Una cosa importante de este programa es el hecho de que pueden calcularse los valores de los momentos $p_\xi$ y $p_\eta$ como vienen expresados en las ecuaciones (I-4-15) y (1-4-16). Los valores de los coeficientes de dichos polinomios están determinados por los parámetros que usan. Eso permite obtener valores iniciales para alguna región deseada según los resultados de PRYPO, valores que podrán usarse como datos del programa TWOC. En diferentes partes del programa se hace uso de la subrutina PAG elaborada por Carlos García Jurado [20], la cual simula en cierto modo las instrucciones para usar el disco de la computadora 1130 que ya discutimos con anterioridad. El funcionamiento de PAG es muy simple pero requiere una explicación, las tareas de dicha subrutina son tres: limpiar una página, cargar un punto e imprimir una línea, para ese efecto la manera de llamarla es la siguiente:

                    CALL    PAG    (ARREGLO): para limpiar

                    CALL    GRAFI  (Columna, Renglon, IHSimbolo, Arreglo
                                    para cargar un punto.)

Como para imprimir la página lo hacemos línea por línea, es necesario hacerlo dentro de un ciclo definido por la instrucción DO por ejemplo.

                     DO 775 I=1,52
                     CALL IMPRE  (I,III,JII)
                 775 PRINT 100,JII
                 100 FORMAT (1X,120A1)

III es un arreglo de 600 palabras y corresponde a la imagen completa de una página (60 renglones y 120 columnas); JII es el arreglo donde guardamos la imagen de una línea y tiene 120 palabras (120 columnas). Ambos arreglos se definen en el programa principal. La ventaja de usar la subrutina PAG consiste en que almacena doce caracteres por palabra, lo que permite ahorrar gran cantidad de memoria. Otra ventaja es la de poder imprimir el número de renglones deseado, no necesariamente sesenta. Ahora, de la misma manera que lo hicimos con TWOC discutiremos las diferentes subrutinas auxiliares de PRYPO y hasta el final vamos a discutir el programa principal.