subroutine err(n,a1,a2)
      character*(*)a1,a2
      write(6,10)n,a1
   10 format(/,'***', i10, ' exceeds the constant ', a)
      write(6,20)a2,a1
   20 format('    Edit the file ',a, ' to change ',
     +a, ', recompile and link.')
      return
      end