      COMMON /ARDAT3/ IWRN(40)
      SAVE /ARDAT3/
