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