|
|
1.1 root 1: character*24 fdate
2: integer id(3), it(3)
3: write(*,*) fdate()
4: call itime(it)
5: call idate(id)
6: write(*,*) id, it
7: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.