      COMMON /ARHIDE/ PHAR(400),MHAR(400)
      SAVE /ARHIDE/
