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
|
Last modified: 1983-05-20
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 524 |
|