kinds.f90 365 Bytes
Newer Older
1
2
3
4
5
! Modul: Standard-"double" Zahlen für präzise Rechnung
! Wir nutzen die ISO-Definition von 64bit Real-Zahlen
!
! (In der Praxis identisch mit "double precision" in Fortran und "double" in C/C++)

Wolfgang Kilian's avatar
Wolfgang Kilian committed
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
module kinds

  use, intrinsic :: iso_fortran_env, only: real64

  implicit none
  private

  public :: wp

  integer, parameter :: wp = real64

end module kinds