!> 浮点型精度 module spx_kinds implicit none private public :: rk integer, parameter :: rk = kind(0.0) !! 默认采用单精度计算 end module spx_kinds