h***o
发帖数: 539 | | g***i
发帖数: 90 | 2 有很多函数的
f77下（应该）可以
program when
integer*4 today(3), now(3)
call idate(today) ! today(1)=day, (2)=month, (3)=year
call itime(now) ! now(1)=hour, (2)=minute, (3)=second
write ( *, 1000 ) today(2), today(1), today(3), now
1000 format ( 'Date ', i2.2, '/', i2.2, '/', i4.4, '; time ',
& i2.2, ':', i2.2, ':', i2.2 )
stop
end
f90下：date_and_time()
这里是一个例子：输出当前一时间点（有点象cputime）
subroutine comp_time(tm)
real*16 tm
【在 h***o 的大作中提到】
: 啊？
: 各位高手
| h***o
发帖数: 539 | 3 f77 na?
【在 g***i 的大作中提到】
: 有很多函数的
: f77下（应该）可以
: program when
: integer*4 today(3), now(3)
: call idate(today) ! today(1)=day, (2)=month, (3)=year
: call itime(now) ! now(1)=hour, (2)=minute, (3)=second
: write ( *, 1000 ) today(2), today(1), today(3), now
: 1000 format ( 'Date ', i2.2, '/', i2.2, '/', i4.4, '; time ',
: & i2.2, ':', i2.2, ':', i2.2 )
: stop
| g***i
发帖数: 90 | 4 date 和 time吧
不太记得了，很就不用，hehe
【在 h***o 的大作中提到】
: f77 na?
| w*******a
发帖数: 41 | 5 function idate and itime.
Both 77 and 90, it works well.
【在 h***o 的大作中提到】
: f77 na?
| h***o
发帖数: 539 | 6 thanks, you guys.
【在 w*******a 的大作中提到】
: function idate and itime.
: Both 77 and 90, it works well.
|
|
