Input/Output
i0 = 0; i1 = 1
READ (file0, ID=id0, END=100) a(i0,1:1048576)
DO
WAIT (ID=id0, END=100)
! start next read into other row
itmp = i0; i0 = i1; i1 = itmp
READ (file0, ID=id0, END=100) a(i0,1:1048576)
! overlap I/O with useful work
CALL PROCESSING( a(i1,1:1048576) )
END DO
100 CONTINUE
Previous slide
Next slide
Back to first slide
View graphic version