modd_comppar.f90

Go to the documentation of this file.

!-----------------------------------------------------------------
!--------------- special set of characters for RCS information
!-----------------------------------------------------------------
! $Source: /home/cvsroot/mesonh/libtools/lib/COMPRESS/src/comppar.f90,v $ $Revision: 1.1 $ $Date: 2005/04/12 15:06:20 $
!-----------------------------------------------------------------
!-----------------------------------------------------------------
!-----------------------------------------------------------------
MODULE modd_comppar
IMPLICIT NONE 
! Debug mode : set LPDEBUG to .TRUE.
LOGICAL,PARAMETER :: lpdebug = .false.


! contains coding parameters for (de)compress routines

INTEGER,PARAMETER :: jpcstencod = 1 ! constant array 
INTEGER,PARAMETER :: jpsopencod = 2 ! second order packing 
INTEGER,PARAMETER :: jpextencod = 3 ! second order packing with min/max values excluded

! Extended code when JPEXTENCOD enabled
!
! BE CAREFUL : 3 bits are reserved for coding this code => max value is 7
INTEGER,PARAMETER :: jpconst   = 0 ! constant value array
INTEGER,PARAMETER :: jpnorm    = 1 ! same as JPSOPENCOD
INTEGER,PARAMETER :: jpminexcl = 2 ! Min value is isolated
INTEGER,PARAMETER :: jpmaxexcl = 3 ! Max value is isolated
INTEGER,PARAMETER :: jpminmaxexcl = 4 ! Min&Max values are isolated
INTEGER,PARAMETER :: jp2val       = 5 ! 2 different values in array
INTEGER,PARAMETER :: jp3val       = 6 ! 3 different values in array
INTEGER,PARAMETER :: jpother      = 7 ! for future use
INTEGER,PARAMETER :: jplog        = 8
END MODULE modd_comppar