ast/ast_tester/testxmlchan_com


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

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

      integer linelen
      parameter ( linelen = 100 )

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