FORTRANの関数のメモ

FORTRANの関数の使い方

メモ用

ソースコード

PROGRAM MAIN
IMPLICIT NONE

REAL(8) :: X, Y, Z

X = 5.d0                ! MAINで引数定義
    PRINT*, FUNC(X)     ! FUNC(X)でもよい
Y = FUNC(X)             ! Y に値を入れてもよい
    PRINT*, Y           ! Y を出力
Z = 2.3d0               ! 変数が違っても可
    PRINT*, FUNC(Z)     

CONTAINS
! ==================================== !
REAL(8) FUNCTION FUNC(x)

REAL(8), INTENT(IN) :: X
REAL(8), PARAMETER :: CONST_A = 3.14d0

    FUNC = X**CONST_A       ! Xのpi乗

END FUNCTION FUNC
! ==================================== !
END PROGRAM MAIN

コンパイル・結果

$ ifort func.f90
$ ./a.out 
   156.590645228189     
   156.590645228189  
   13.6717908227747