INTEGER*4 LUNOUT, LUNOUTA, LUNOUTB
      PARAMETER (LUNOUT=20)
      PARAMETER (LUNOUTA=21)
      PARAMETER (LUNOUTB=22)