18 lines
568 B
Fortran
18 lines
568 B
Fortran
MODULE impli_module
|
||
!==============================================================================
|
||
! TLUSTY 隐式类型声明模块
|
||
! 原始文件：IMPLIC.FOR
|
||
!
|
||
! 此模块定义双精度类型别名，用于替代原始的 IMPLICIT REAL*8 声明
|
||
!==============================================================================
|
||
|
||
IMPLICIT NONE
|
||
|
||
! 定义双精度类型别名
|
||
INTEGER, PARAMETER :: dp = KIND(1.0D0)
|
||
|
||
! 定义逻辑类型别名（对应原 LOGICAL*1）
|
||
INTEGER, PARAMETER :: log1 = KIND(.TRUE.)
|
||
|
||
END MODULE impli_module
|