| 1 |
guez |
30 |
!! |
| 2 |
|
|
!! @author Jacques Bellier, Marie-Alice Foujols, Jan Polcher |
| 3 |
|
|
!! @Version : $Revision: 2.0 $, $Date: 2004/04/05 14:47:47 $ |
| 4 |
|
|
!! |
| 5 |
|
|
!! $Header: /home/ioipsl/CVSROOT/IOIPSL/src/def.prec,v 2.0 2004/04/05 14:47:47 adm Exp $ |
| 6 |
|
|
!! |
| 7 |
|
|
MODULE defprec |
| 8 |
|
|
!--------------------------------------------------------------------- |
| 9 |
|
|
!! This module should be used by every modules |
| 10 |
|
|
!! to keep the right precision for every variable |
| 11 |
|
|
!! |
| 12 |
|
|
!! Set default precision for computation |
| 13 |
|
|
!--------------------------------------------------------------------- |
| 14 |
|
|
INTEGER,PARAMETER :: i_4=SELECTED_INT_KIND(9) |
| 15 |
|
|
INTEGER,PARAMETER :: i_8=SELECTED_INT_KIND(13) |
| 16 |
|
|
INTEGER,PARAMETER :: r_4=SELECTED_REAL_KIND(6,37) |
| 17 |
|
|
INTEGER,PARAMETER :: r_8=SELECTED_REAL_KIND(15,307) |
| 18 |
|
|
INTEGER,PARAMETER :: i_std=i_4, r_std=r_4 |
| 19 |
|
|
!----------------- |
| 20 |
|
|
END MODULE defprec |
Parent Directory
| 
Revision Log