program int_demo_b_write_fortran
! Purpose: To benchmark adding 200 records to an indexed file. 
      integer r
      structure /test_file_record/
         character key*5
         character data*1000
         byte %fill(250)
      end structure
      record /test_file_record/ rec
      print *,'Creating Indexed file...'
      open (unit=1,file='sys$scratch:int_demo_indexed.tmp',
     &   status='new',organization='indexed',access='keyed',
     &   recordtype='fixed',form='unformatted',recl=1255,shared,
     &   key=(1:5:character))
      print *,'Populating file...'                     
      do 100 i=1,1000,5
  100 rec.data(i:i+4)='DATA '
      do 140 i=1,200
         r=r+1
         if (r.eq.25) then
            r=0
            print *,'Records written:', i
         end if
         write (rec.key,fmt=120) i
  120    format (i5) 
         write (unit=1) rec
  140 continue
      close (unit=1)
      end