ast/ast_tester/teststc_com


1
2
3
4
5
6
7
8
9
10
11
12
13

*
*  Common block declaration used by teststc.f for storing internal
*  files and associated info.
*
      integer mxline
      parameter ( mxline = 500 )

      integer linelen
      parameter ( linelen = 3000 )

      character files( 3, mxline )*(linelen)
      integer ifile,iline,filelen( 3 ),warns
      common /files/ files, ifile, iline, filelen, warns