integer a(5)
      open(unit=9,file='junk',status='new',form='unformatted')
      do 10 i=1,5
      a(i)=i+i
  10  continue
      write(9)(a(i),i=1,5)
      end