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，叔：

其中，X = UT COS A和Y = UT罪 - 克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，它可以是真实的，在某些情况下整数的数的属性。

浮点操作函数

位操作功能

字符函数

种类函数

逻辑功能