실수를 4byte로 저장하고 싶을 때
1. PC/Intel Visual Fortran 95, PC/Lahey Fortran 95에서
REAL(KIND = 4) :: value
2. PC/NAGWare f95에서
REAL(KIND = 1) :: value
실수를 8byte로 저장하고 싶을 때
1. PC/Intel Visual Fortran 95, PC/Lahey Fortran 95에서
REAL(KIND = 8) :: value
2. PC/NAGWare f95에서
REAL(KIND = 2) :: value
프로세서, 컴파일러에 따라 4byte 및 8byte를 위한 값이 다름
해결 방법 : SELECTED_REAL_KIND(p = precision, r = range) 함수 이용
Intel Visual Fortran compiler를 사용하는 Pentium 4-based computer에서는
kind_number = SELECTED_REAL_KIND(p = 6, r = 37) ! 4반환
kind_number = SELECTED_REAL_KIND(p =12) ! 8반환
kind_number = SELECTED_REAL_KIND(r = 100) ! 8반환
kind_number = SELECTED_REAL_KIND(13,200) ! 8반환
kind_number = SELECTED_REAL_KIND(13) ! 8반환
kind_number = SELECTED_REAL_KIND(p = 17) ! 16반환
NAGWareFortran compiler를 사용하는 Pentium 4-based computer에서는
kind_number = SELECTED_REAL_KIND(p = 6, r = 37) ! 1반환
kind_number = SELECTED_REAL_KIND(p =12) ! 2반환
kind_number = SELECTED_REAL_KIND(r = 100) ! 2반환
kind_number = SELECTED_REAL_KIND(13,200) ! 2반환
kind_number = SELECTED_REAL_KIND(13) ! 2반환
kind_number = SELECTED_REAL_KIND(p = 17) ! -1반환, 오류
'Programming > Fortran' 카테고리의 다른 글
| Derived data types : database를 읽어 정렬하기 (0) | 2009.01.02 |
|---|---|
| 배정도 실수로 변수를 초기화 하기 (0) | 2008.12.18 |
| Internal WRITE Statement (0) | 2008.12.18 |
| Convert character data into numeric data and vice versa using internal file (0) | 2008.12.18 |
| Intrinsic Character Functions (0) | 2008.12.16 |