SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/include/precision.h Source File

Go to the documentation of this file.

00001 C
00002 C----- DESCRIPTION DES "PARAMETER" DU LOGICIEL DE FICHIERS INDEXES -----
00003 C
00004 C     JPDBLE= PRECISION UTILISE POUR LES ENTIERS:
00005 C     * SI JPDBLE=8 les INTEGER (KIND=JPDBLE) seront a priori en 64 BITS
00006 C     * SI JPDBLE=4 les INTEGER (KIND=JPDBLE) seront a priori en 32 BITS
00007 C
00008 C     JPDBLR= PRECISION UTILISE POUR LES FLOTTANTS (REELS):
00009 C     * SI JPDBLR=8 les REAL (KIND=JPDBLR) seront a priori en 64 BITS
00010 C     * SI JPDBLR=4 les REAL (KIND=JPDBLR) seront a priori en 32 BITS
00011 C
00012 C     (les conventions peuvent dependre de la plate-forme consideree)
00013 C
00014 C     JP_SIMPLE_ENTIER= sous-type entier permettant de representer
00015 C                       l'intervalle +/-(10**9 - 1)
00016 C
00017       INTEGER, PARAMETER :: JPDBLE = 8, JPDBLR = 8
00018       INTEGER, PARAMETER :: JP_SIMPLE_ENTIER = SELECTED_INT_KIND(9)