mod_precision.f90

来自「1D有限差分波动方程模拟」· F90 代码 · 共 8 行

MODULE PRECISION
  IMPLICIT NONE
  INTEGER, PARAMETER :: SP = SELECTED_REAL_KIND (6,30)
  INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND (13,60)
  INTEGER, PARAMETER :: WP = SP

END MODULE PRECISION