Fortran内部函数

内部函数为Fortran语言提供一些常见和重要的功能。我们已经讨论过阵列，字符和字符串一些函数。

内部函数可归类为：

• 数值函数
• 数学函数
• 数字查询函数
• 浮点操作函数
• 位操作函数
• 字符函数
• 类函数
• 逻辑函数
• 数组函数

我们在阵列章讨论的阵列功能。在下面的章节中，提供了与其他类别的所有这些功能的简要说明。

函数名称列，

• A 代表任何类型的数值变量
• R 代表一个真实的或整型变量
• X 和 Y 代表实际变量
• Z 代表复数变量
• W 表示实数或复数变量

数值函数

示例

program numericFunctions
implicit none  

   ! define constants  
   ! define variables
   real :: a, b 
   complex :: z
   
   ! values for a, b 
   a = 15.2345
   b = -20.7689
    
   write(*,*) 'abs(a): ',abs(a),' abs(b): ',abs(b)   
   write(*,*) 'aint(a): ',aint(a),' aint(b): ',aint(b) 
   write(*,*) 'ceiling(a): ',ceiling(a),' ceiling(b): ',ceiling(b)   
   write(*,*) 'floor(a): ',floor(a),' floor(b): ',floor(b)  
    
   z = cmplx(a, b)
   write(*,*) 'z: ',z   
   
end program numericFunctions

abs(a): 15.2344999   abs(b): 20.7688999    
aint(a): 15.0000000  aint(b): -20.0000000    
ceiling(a): 16  ceiling(b): -20
floor(a): 15  floor(b): -21
z: (15.2344999, -20.7688999)

数学函数

示例

下列程序计算水平和垂直位置x和y表示抛射时间，t：

这里, x = u t cos a 以及 y = u t sin a - g t2 / 2

program projectileMotion  
implicit none  

   ! define constants  
   real, parameter :: g = 9.8  
   real, parameter :: pi = 3.1415927  
   
   !define variables
   real :: a, t, u, x, y   
   
   !values for a, t, and u 
   a = 45.0
   t = 20.0
   u = 10.0
   
   ! convert angle to radians  
   a = a * pi / 180.0  
   x = u * cos(a) * t   
   y = u * sin(a) * t - 0.5 * g * t * t  
   
   write(*,*) 'x: ',x,'  y: ',y   
   
end program projectileMotion

当编译并执行上述程序，它会产生以下结果：

x: 141.421356  y: -1818.57861  

数字查询函数

这些函数的工作在整数模型和浮点运算。该函数返回相同的种类作为变量X，它可以是实数，在某些情况下，拥有整数的性质。

浮点操作函数

位操作函数

字符函数

类型函数

逻辑函数