*
*  Common block declaration used by testmocchan.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
