El programa possee un common adicional, ubicado en el archivo:
langue.h
con la estructura siguiente :
COMMON / LANGUE / FRENCH
LOGICAL FRENCH
Para obtener los mensajes en francés, se agrega la instrucción :
FRENCH=.TRUE.
Para obtener los mensajes en inglés, se agrega la instrucción :
FRENCH=.FALSE.
al comienzo del programa principal.
Esteban Saez
2010-12-30