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 的大作中提到】![](/moin_static193/solenoid/img/up.png)
: 啊?
: 各位高手
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 的大作中提到】
![](/moin_static193/solenoid/img/up.png)
: 啊?
: 各位高手
h*o
3 楼
f77 na?
【在 g***i 的大作中提到】![](/moin_static193/solenoid/img/up.png)
: 有很多函数的
: 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 的大作中提到】
![](/moin_static193/solenoid/img/up.png)
: 有很多函数的
: 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
相关阅读
请问能把matlab的hist()画的图的纵坐标归一并改成对数吗?哪里能下载到Numerical Recipes?明年国内会议有谁用过paraview或mayavi吗?请教如何用matlab中quadprog解决这个二次规划问题 (转载)请教:差异是否显著 (转载)MATLAB图中有一组curve,怎么画一个小椭圆把这些curve圈一下Protect cells' formatting这里谁做 VOICE RECOGNITION ?高维 PCAOnline--ISI 2006 Impact Factor Computer Science Journalshow to set cutoff for sorting within unix system$4000 有可能买到4 cpu的server么求教一个Matlab fortran compiler 问题一个小问题请问如何在matlab中删除vector中的数据有关Abaqus中的infinite elementhelp with a paper问个MPI问题(有包子)matlab的jvm总是crash掉了。