root / synthbench / euroben-dm / mod2cr / .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 |