FORTRAN中の时间函数

本文介绍了FORTRAN中获取时间的三个函数:CPU_TIME、DATE_AND_TIME和SYSTEM_CLOCK。CPU_TIME返回CPU运行时间(秒),DATE_AND_TIME提供详细日期和时间信息,SYSTEM_CLOCK用于获取处理器时钟周期。通过示例程序展示了如何使用这些函数计算程序执行时间。
摘要由CSDN通过智能技术生成

简单总结下FORTRAN中获取时间常用到的函数:

  • CPU_TIME
  • DATE_AND_TIME
  • SYSTEM_CLOCK

CPU_TIME

返回的是一个浮点型,表示当前CPU运行时间(以秒计)。

DATE_AND_TIME

包括很多信息,包括日期,时间,时区,最后一个参数是一个大小为8的整型数组,记录了年,月,日,时区差(以分钟计),小时,分钟,秒,毫秒。

SYSTEM_CLOCK

用于决定处理器时钟周期。

程序示例如下:

PROGRAM COM_TIME
IMPLICIT NONE
INTEGER, PARAMETER:: MAX = 400
REAL(8), DIMENSION(MAX, MAX, MAX):: COF
INTEGER(4):: I, J, K
REAL(8):: START1,FINISH1
INTEGER(8):: START2, FINISH2
CHARACTER*10 DATE1, TIME1, PRETTY_TIME1
CHARACTER*10 DATE2, TIME2, PRETTY_TIME2
CHARACTER*10 DATE3

Fortran调用C++函数需要进行以下几个步骤: 1. 在C++代码声明函数为extern "C",以便在Fortran正确链接函数。 2. 在Fortran代码使用Fortran的ISO_C_BINDING模块来定义C++函数的接口。 3. 在Fortran代码使用C_FUNPTR类型定义一个指向C++函数的指针。 4. 使用Fortran的TRANSFER函数将C++函数指针转换为Fortran的PROCEDURE类型。 以下是一个简单的示例: C++代码: ```c++ extern "C" { void my_cpp_function(int* arg1, double* arg2); } void my_cpp_function(int* arg1, double* arg2) { // C++ function implementation } ``` Fortran代码: ```fortran USE, INTRINSIC :: ISO_C_BINDING INTERFACE SUBROUTINE my_cpp_function(arg1, arg2) BIND(C, NAME="my_cpp_function") USE, INTRINSIC :: ISO_C_BINDING INTEGER(C_INT), VALUE :: arg1 REAL(C_DOUBLE), VALUE :: arg2 END SUBROUTINE my_cpp_function END INTERFACE TYPE(C_FUNPTR) :: cpp_function_ptr PROCEDURE(my_cpp_function), POINTER :: my_function cpp_function_ptr = C_FUNLOC(my_cpp_function) my_function => TRANSFER(cpp_function_ptr, my_function) ``` 在Fortran代码,我们使用INTERFACE块来声明C++函数的接口。在这里,我们将参数arg1和arg2定义为INTEGER和REAL类型,因为在C++代码,它们是int*和double*类型。我们还使用了ISO_C_BINDING模块的TYPE(C_FUNPTR)来定义指向C++函数的指针。最后,我们使用TRANSFER函数将C++函数指针转换为Fortran的PROCEDURE类型,并将其分配给my_function指针。 请注意,本示例仅演示了如何在Fortran调用简单的C++函数。对于更复杂的情况,可能需要进行更多的工作。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值