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