Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / lib / COMPRESS / src / comppar.f90
1 !-----------------------------------------------------------------
2 !--------------- special set of characters for RCS information
3 !-----------------------------------------------------------------
4 ! $Source$ $Revision$ $Date$
5 !-----------------------------------------------------------------
6 !-----------------------------------------------------------------
7 !-----------------------------------------------------------------
8 MODULE MODD_COMPPAR
9 IMPLICIT NONE 
10 ! Debug mode : set LPDEBUG to .TRUE.
11 LOGICAL,PARAMETER :: LPDEBUG = .FALSE.
12
13
14 ! contains coding parameters for (de)compress routines
15
16 INTEGER,PARAMETER :: JPCSTENCOD = 1 ! constant array 
17 INTEGER,PARAMETER :: JPSOPENCOD = 2 ! second order packing 
18 INTEGER,PARAMETER :: JPEXTENCOD = 3 ! second order packing with min/max values excluded
19
20 ! Extended code when JPEXTENCOD enabled
21 !
22 ! BE CAREFUL : 3 bits are reserved for coding this code => max value is 7
23 INTEGER,PARAMETER :: JPCONST   = 0 ! constant value array
24 INTEGER,PARAMETER :: JPNORM    = 1 ! same as JPSOPENCOD
25 INTEGER,PARAMETER :: JPMINEXCL = 2 ! Min value is isolated
26 INTEGER,PARAMETER :: JPMAXEXCL = 3 ! Max value is isolated
27 INTEGER,PARAMETER :: JPMINMAXEXCL = 4 ! Min&Max values are isolated
28 INTEGER,PARAMETER :: JP2VAL       = 5 ! 2 different values in array
29 INTEGER,PARAMETER :: JP3VAL       = 6 ! 3 different values in array
30 INTEGER,PARAMETER :: JPOTHER      = 7 ! for future use
31 INTEGER,PARAMETER :: JPLOG        = 8
32 END MODULE MODD_COMPPAR