모듈을 이용한 자료 공유(sharing data using moduel)

모듈을 이용한 자료 공유(sharing data using moduel)

MODULE shared_data

IMPLICIT NONE

SAVE

INTEGER, PARAMETER :: num_vals = 5
REAL, DIMENSION(num_vals) :: values

END MODULE

위 소스를 shared_data.f95로 저장

PROGRAM test_module

USE shared_data

IMPLICIT NONE

REAL, PARAMETER :: PI = 3.141592

values = PI * (/ 1., 2., 3., 4., 5. /)

CALL sub1

END PROGRAM test_module

SUBROUTINE sub1

! sharing data via a module

USE shared_data

IMPLICIT NONE

WRITE (*,*) values

END SUBROUTINE

위 소스를 test_module.f95로 저장

소스 컴파일 및 실행