Numerical Recipes In Fortran 90사용법(샘플 Hello Bessel)

[경제운]

https://youtube.com/shorts/eB9Egb_2sUw?feature=share 

구매는 아래 사이트에서 코드 구매 가능

http://numerical.recipes/book/book.html

Numerical Recipes In Fortran 90 (p.936)

21.1 Quick Star : Using the Fortran 90 Numerical Recipes Routines

1st explain -

Bessel Program

1900년 1월 이후 200번째 보름달 ?

먼저 중요한 파일 3개

1. nrtype.f90

2. nrutil.f90

3. nr.f90

3가지 파일을 컴파일하여 .mod 파일 생성

PROGRAM hello_bessel

USE nrtype

USE nr, ONLY : flmoon, bessj0

IMPLICIT NONE

INTEGER(I4B) :: n=200, nph=2,jd

REAL(SP) :: x, frac, ans

call flmoon(n, nph, jd, frac)

x=jd**0.25_sp

ans=bessj0(x)

write(*,*) ‘Hello, Bessel:’, ans

END PROGRAM