program assign3_5
implicit none
integer :: i
integer,parameter :: n=1000000
real,allocatable :: x(:)
real :: t1,t2

open(1,file='formatted')
open(2,file='unformatted')

allocate(x(n))

do i=1,n
   x(i) = i + 1.0/3.0
enddo

call cpu_time(t1)
do i=1,n
   write(1,*) x(i)
enddo
call cpu_time(t2)
print*,'Time from start to end for formatted file =>',t2-t1

call cpu_time(t1)
do i=1,n
   write(2) x(i)
enddo
call cpu_time(t2)
print*,'Time from start to end for unformatted file =>',t2-t1

close(1,status='delete')
close(2,status='delete')

end program assign3_5