C C *** / F I L E S / *** C C IDENTFIERS FOR INPUT AND OUTPUT FILES C COMMON /FILES/ NINT,NOUT,NOUTR,ECHO,CONNI,CONNO,BATCH INTEGER NINT INTEGER NOUT INTEGER NOUTR LOGICAL ECHO,CONNI,CONNO,BATCH Character*208 c128wk,c128rd c c128wk etc MUST be larger than 132 chars since some places assume 132 c places in the arrays... c 208 is the max since argstr is loaded from the array. 208 is an integral c multiple of 8 bytes however. integer*4 nc128,mc128 C c128wk used for AnalytiCalc work as a place to write text to prior to C passing to the write routines. C c128rd is a buffer for text to be read from common /accmd/c128wk,c128rd,nc128,mc128 C C VARIABLE DEFINITIONS: C NINT----INPUT FILE IDENTIFIER C NOUT----OUTPUT FILE IDENTIFIER C NOUTR---OUTPUT FILE IDENTIFIER FOR REPORTS C ECHO----ECHO FLAG FOR INPUT COMMANDS C CONNI---.TRUE. IFF INPUT IS INPUT AND NOT BATCH C CONNO---.TRUE. IFF OUTPUT IS OUTPUT AND NOT BATCH C BATCH---.TRUE. IFF BATCH MODE C