integer  MXARFS
      parameter (MXARFS= 2500)
      integer maxhist, maxcomm
      integer maxextn
      parameter (maxhist=20,maxcomm=8*MXARFS, maxextn = 99)