program main use ifport, only : fdate implicit none print*, fdate()end program main
获取
代码
git clone https://github.com/wavebitscientific/functional-
fortran
cd functional-
fortran
使用
fpm进行构建
该项目支持
Fortran
软件包管理器（ fpm ）。
fpm build --release
fpm test
您也可以在现有的fpm软件包中将其用作依赖项。 只需将functional-
fortran
添加到您的fpm.toml ：
[ dependencies ]
[ dependencies . functional ]
git = " https://github.com/wavebitscientific/functional-
fortran
"
用CMake构建
或者，您可以
使用
CMake构建Functional
返回的是一个浮点型，表示
当前
CPU运行
时间
（以秒计）。
DATE
_AND_TIME
包括很多信息，包括日期，
时间
，时区，最后一个参数是一个大小为8的整型数组，记录了年，月，日，时区差（以分钟计），小时，分钟，秒，毫秒。
SYSTEM_CLOCK
date
_and_time
返回实时时钟和日期的相关数据。返回数据包括本地
时间
以及本地
时间
与通用协调
时间
(Universal Coordinated Time,
UTC) 之间的时差，通用协调
时间
也称为格林威治标准
时间
(Greenwich Mean Time,
GMT)。
if (f
date
) {
if (~f
date
.indexOf('.')) {
f
date
= f
date
.substring(0, f
date
.indexOf('.'));
f
date
= f
date
.toString().replace('T', ' ').replace(/\-/g, '/');
var fTime, fStr = 'ymdhis';
1、FILINFO文件状态结构体
FILINFO结构保存有关f_readdir、f_findfirst、f_findnext和f_stat
函数
检索的对象的信息，它包括6个成员，我们在
获取
有关文件最近一次修改日期和
时间
的信息时，主要用到了f
date
和ftime这两个成员。
1.1 f
date
f
date
存储了修改文件或创建目录时的日期，共16位，包含了年、月、日三部分信息，分别如下所示：
①bit15:9：表示年份。这里的年份是指文件最近一次修改的年份与1980年的差值，如最近一次修改文件是在2020年，那么
module Gauss_Legendre !//高斯—勒让德积分高斯点及权重的求解模块
implicit none
integer, parameter :: n = 5 !// 设置求解高斯点的个数
integer, parameter :: DP = selected_real_kind( p=13 ) !// 设置kin...
这篇博文简要记录一下
使用
MKL
函数
库计算一般矩阵的特征值与特征向量
对形如对称矩阵或是埃尔米特等特殊矩阵有其对应的子程序，在这里先不涉及。有需求的可以自行查阅MKL官方文档
下面给出本次示例代码：代码
使用
f95接口。f77借口参数太多，笔者太懒<不过懒惰是创新的原动力^_^>
program testGeev
use lapack95
implicit...
!// qq: 735343320
implicit none
integer, parameter :: n = 5 !// depend on your equation
integ...
