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，它可以是實數，在某些情況下，擁有整數的性質。

浮點操作函式

位元運算函式

字元函式

型別函式

邏輯函式