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

浮點操作函數

位操作函數

字元函數

類型函數

邏輯函數