logical function opened (nunit)

c  returns .true. or .false. dependent on whether unit 'nunit' is opened

      inquire (unit=nunit, opened=opened)
      return
      end