module iounit
      implicit none
      integer input
      integer jout
      save
      end