*KEEP,RESONA.
      COMMON /RESONA/ IRESO