|
|
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.