prec.f

来自「是高精度的随机数产生程序」· F 代码 · 共 5 行

! for portable 64-bit floating-point precision [via REAL(q), COMPLEX(q), ...]
      MODULE PREC
      INTEGER, PARAMETER :: q=SELECTED_REAL_KIND(10)
      END MODULE