c
c  test file write performance
c
c  -------- write 10MB file  (Linux)
c
c                           1999.4.15 T. Ichihara (RIKEN)
c
c  Sun Solaris
c      f77 -silent -o fwrite_10MBxN.sunbin fwrite_10MBxN.f
c
      real*4  bf100 (250000)
      character*80 file1
      character*8 wtime, ws1,ws2
      integer   ibk
      data bf100/250000*0.0/,isum/0/
      len = 250000
c
c  solaris f77 -lv77
c
c 1     write(6,*) 'file size (10MB x N)   N ?'
c       read (5,*) ibk
c       if(ibk.le.0.or.ibk.gt.999) goto 1
       file1='  10MB.td'
       ibk=10
c       write(file1(1:4),'(I3)') ibk
   
c
      open(1,file=file1,status='new',form='unformatted') 
      call time(ws1)
      write(6,101) file1
 101  format(' file',A20,'open for write ')
c
c  write 1MB variables for ibk-times
c
      isum=0
      do ix=1,ibk
      bf100(1)=ix
      isum=isum+ix
      write(1,err=999) bf100
      call time(wtime)
      ws2=wtime
      write(6,100) ix
 100  format(1X,I4,'MB written at ')
      enddo 
      ws2=wtime
c
c     read (ws1(7:8),'(I2)') iss1
c     read (ws1(4:5),'(I2)') ism1
c     read (ws1(1:2),'(I2)') ish1
c     read (ws2(7:8),'(I2)') iss2
c     read (ws2(4:5),'(I2)') ism2
c     read (ws2(1:2),'(I2)') ish2
c
c     sec=iss2-iss1+(ism2-ism1)*60.+(ish2-ish1)*3600
c
c     rate=ibk*1./sec
      write(6,*) 'new file written succefully,  Check SUM=', isum
c      write(6,103) rate, ibk,sec
c103  format('File Write rate = ',F5.2 ' MB/S  ( ' I3'0 MB  ',
c    1       F5.0,' sec.)')
      stop
 999  write(6,*) 'file write error'
      stop
      end