fortran中提供计算程序运行时间的功能在哪里呢??-ZOL问答

相关文章推荐

热心的鼠标垫 · Minio下载文件名含中文乱码_minio下 ...· 1 年前 ·

睡不着的红茶 · Winform窗体 ...· 2 年前 ·

光明磊落的登山鞋 · java解析xml禁止校验dtd - ...· 2 年前 ·

功能在Profile 工具上。
要输入代码，如下。
子例程 date_and_time 返回实时时钟和日期的相关数据。返回数据包括本地时间以及本地时间与通用协调时间
(Universal Coordinated Time, UTC) 之间的时差，通用协调时间也称为格林威治标准时间 (*****wich Mean Time,
GMT)。
子例程 date_and_time() 的调用方式如下：

call date_and_time( date , time, zone, values )

date
CHARACTER*8
输出以 CCYYMMDD 格式表示的日期，其中 CCYY 表示四位数的年份，MM 表示两位数的月份，DD
表示两位数的当月日期。例如：19980709
time CHARACTER*10

输出以 hhmmss.sss 格式表示的当前时间，其中 hh 表示小时，mm 表示分钟，ss.sss 表示秒和毫秒。
zone
CHARACTER*5 输出与 UTC 的时差，以小时数和分钟数表示，采用 hhmm
格式。
values INTEGER*4 VALUES(8) 输出下面介绍的 8
个元素组成的整数数组。

INTEGER*4 values 数组中返回的 8
个值为
VALUES(1) 以 4
位整数表示的年份。例如：1998。
VALUES(2) 以从 1 到 12
的整数表示的月份。
VALUES(3) 以从 1 到 31
的整数表示的当月日期。
VALUES(4) 以分钟数表示的与 UTC
的时差。
VALUES(5) 以从 1 到 23
的整数表示的当天小时时间。
VALUES(6) 以从 1 到 59
的整数表示的一个小时中的分钟时间。
VALUES(7) 以从 0 到 60
的整数表示的一分钟中的秒数。
VALUES(8) 位于范围 0 至 999 中的毫秒数。计算程序运行时间(.net1.1 于.net2.0的区别)在.net2.0中提供了Stopwatch类，简单例子
using System.Diagnostics;

private Stopwatch stw = new Stopwatch();

private void Form1_Load(object sender, EventArgs e)
{
stw.Start();
}

private void Form1_FormClosing(object sender, FormClosingEventArgs e)
{
DialogResult dr = MessageBox.Show(真的要退出？, 退出, MessageBoxButtons.YesNo, MessageBoxIcon.Question);
if (dr == DialogResult.Yes)
{
stw.Stop();
MessageBox.Show(程序共运行时间: + stw.Elapsed.Seconds.ToString() + 秒);
e.Cancel = false;
}
else
{
e.Cancel = true;
}
}

在.net1.1中，需要自己写
using System;
namespace StopWatchTest
{
class Class1
{
[STAThread]
static void Main(string[] args)
{
StopWatch sw = new StopWatch();
sw.start();
for (long i = 0 ; i 100000000 ; i++)
{

}
Console.WriteLine(sw.elapsed());

Console.Read();
}
}

class StopWatch
{
private int mintStart;

public void start()
{
mintStart = Environment.TickCount;
}

public long elapsed()
{
return Environment.TickCount - mintStart;
}
}
}