计算小时,分钟,秒和毫秒时的持续时间
||
我正在用Fortran编写程序,我需要一种方法来计算程序持续时间(以毫秒为单位)。我一直在使用函数\“ date_and_time \”,这给我留下了一个数组,其中包含以小时,分钟,秒和毫秒为单位的系统时间。
我相信我可以在程序开始时调用此函数以存储当前时间,然后在程序结束时再次调用该函数以存储最新时间。但是之后,我将如何计算持续时间?我只是尝试减去这些值,但是经过一秒钟后,毫秒会重置,就像经过一分钟后会重置秒一样。最好的解决方法是什么?
这是程序:
PROGRAM TEST_TIME_AND_DATE
INTEGER I
REAL J
INTEGER TIME_A(8), TIME_B(8)
CALL DATE_AND_TIME(VALUES=TIME_A)
PRINT \'(8I5))\', TIME_A
DO I = 0, 400000000
J = I * I - J
END DO
CALL DATE_AND_TIME(VALUES=TIME_B)
print \'(8I5))\', TIME_B
END PROGRAM TEST_TIME_AND_DATE
结果如下:
2011 6 11 -300 9 14 49 304
2011 6 11 -300 9 14 50 688
我不确定在这里做什么,谢谢。
没有找到相关结果
已邀请:
3 个回复
览幕堤分
这种方法在溢出时也能很好地工作,因为如果都将其都转换为相同的基数,则左多的列中的正数将超过负数。例如。
至
产量
请注意,此方法最多可以使用数天,但不能使用数月,因为它们没有相同的长度。
诞胃
破弯