|
|
1.1 ! root 1: integer count(10) ! 2: real val(10) ! 3: read(*,*) count, val ! 4: read(*,*) (count(i), val(i), i = 1, 10) ! 5: read(*,*,err=10) count, val ! 6: c read(*,*,end=10,err=20) count,val ! 7: 20 continue ! 8: 10 end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.