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 8