program ch1007 implicit none integer, parameter :: n = 1000000 integer, dimension (1:n) :: x real, dimension (1:n) :: y integer :: i real :: t, t1, t2, t3, t4, t5 character*10 :: comment open (unit=10,file='ch1007.txt',form='unformatted') call cpu_time(t) t1 = t comment = ' Initial ' print 100, comment, t1 read (10) x call cpu_time(t) t2 = t - t1 comment = ' I read ' print 100, comment, t2 read (10) y call cpu_time(t) t3 = t - t1 - t2 comment = ' r read ' print 100, comment, t3 100 format (1x,a,2x,f7.3) do i = 1, 10 print *, x(i), ' ', y(i) end do end program ch1007