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