Statistics
| Branch: | Revision:

root / synthbench / euroben-dm / mod2b / .svn / text-base / numerics.f.svn-base @ 0:839f52ef7657

History | View | Annotate | Download (565 Bytes)

1
      Module numerics
2
! ---------------------------------------------------------------------
3
! --- We define a Real type that presumably has the characteristics
4
!     of 4 and 8-byte IEEE 754 floating-point types.
5
!     (We assume the Integer type to be 'large enough').
6
! ---------------------------------------------------------------------
7
      Integer, Parameter :: s_ = Selected_Real_Kind(6,37)     
8
      Integer, Parameter :: l_ = Selected_Real_Kind(15,307)
9
! ---------------------------------------------------------------------
10
      End Module numerics