g*i
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 的大作中提到】
: 啊？
: 各位高手
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
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 的大作中提到】
: 有很多函数的
: 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
4 楼
date 和 time吧
不太记得了，很就不用，hehe
【在 h***o 的大作中提到】
: f77 na?
不太记得了，很就不用，hehe
【在 h***o 的大作中提到】
: f77 na?
w*a
5 楼
function idate and itime.
Both 77 and 90, it works well.
【在 h***o 的大作中提到】
: f77 na?
Both 77 and 90, it works well.
【在 h***o 的大作中提到】
: f77 na?
h*o
6 楼
thanks, you guys.
【在 w*******a 的大作中提到】
: function idate and itime.
: Both 77 and 90, it works well.
【在 w*******a 的大作中提到】
: function idate and itime.
: Both 77 and 90, it works well.
相关阅读
请教ANSYS高手问一个土的不能再土的问题 ！！！！！！！！！！！！！！Help: Proof of an inequalityVariable size multi-dim arrays (C/C++)zz请教极值问题关于C和Fortran: 一点儿个人观点Re: [转载] How to visualize multivariate d[求助]ODE数值解不converge[转载] 请教大虾，关于unix server里执行程序的问题。准备干两台dual opteron的机器[转载] 做FFT的陷阱Does anyone know this professor? 要移植一套开放源代码的数学库[转载] matlab算weighted least square求救：Matlab中调用maple出错COMPARISON OF FORTRAN AND C(zz)a puzzle about truncated SVD5 increments between minimum and maximumhow to plot the matrix in GNUplot?有没有什么积分的快速算法