Keyword: 対数ガンマ関数
概要
本サンプルは対数ガンマ関数を求めるFortranによるサンプルプログラムです。 本サンプルは引数xを読み込み、xの各値について以下に示される対数ガンマ関数を求めて出力します。
※本サンプルはnAG Fortranライブラリに含まれるルーチン s14abf() のExampleコードです。本サンプル及びルーチンの詳細情報は s14abf のマニュアルページをご参照ください。
ご相談やお問い合わせはこちらまで
入力データ
（本ルーチンの詳細はs14abf のマニュアルページを参照）- １行目はタイトル行で読み飛ばされます。
- ２〜１０行目に対数ガンマ関数の引数xの値を指定しています。
出力結果
（本ルーチンの詳細はs14abf のマニュアルページを参照）| この出力例をダウンロード |
S14ABF Example Program Results
X Y
1.000E+00 0.000E+00
1.250E+00 -9.827E-02
1.500E+00 -1.208E-01
1.750E+00 -8.440E-02
2.000E+00 0.000E+00
5.000E+00 3.178E+00
1.000E+01 1.280E+01
2.000E+01 3.934E+01
1.000E+03 5.905E+03
- ５〜１３行目に引数xの値と対数ガンマ関数の値が出力されています。
ソースコード
（本ルーチンの詳細はs14abf のマニュアルページを参照）
※本サンプルソースコードは科学技術・統計計算ライブラリである「nAG Fortranライブラリ」のルーチンを呼び出します。
サンプルのコンパイル及び実行方法
| このソースコードをダウンロード |
PROGRAM s14abfe
! S14ABF Example Program Text
! Mark 23 Release. nAG Copyright 2011.
! .. Use Statements ..
USE nag_library, ONLY : nag_wp, s14abf
! .. Implicit None Statement ..
IMPLICIT NONE
! .. Parameters ..
INTEGER, PARAMETER :: nin = 5, nout = 6
! .. Local Scalars ..
REAL (KIND=nag_wp) :: x, y
INTEGER :: ifail, ioerr
! .. Executable Statements ..
WRITE (nout,*) 'S14ABF Example Program Results'
! Skip heading in data file
READ (nin,*)
WRITE (nout,*)
WRITE (nout,*) ' X Y'
WRITE (nout,*)
DATA: DO
READ (nin,*,IOSTAT=ioerr) x
IF (ioerr<0) THEN
EXIT DATA
END IF
ifail = -1
y = s14abf(x,ifail)
IF (ifail<0) THEN
EXIT DATA
END IF
WRITE (nout,99999) x, y
END DO DATA
99999 FORMAT (1X,1P,2E12.3)
END PROGRAM s14abfe