#######################################################################################################################################
#                                                                                                                                     #
#         P A R T I T I O N   A L E A T O I R E   D E   L ' E N S E M B L E   D E S   P A R T I C U L E S                             #
#         E N   D E U X   S O U S - E N S E M B L E S  :                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.r.71.1.$U' :                                                                                  #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $DELETE             $xTV/CARACTERIS

$Z                  GenR                $xTV/CARACTERIS               0.0       1.0       g=7777

$Z                  setParam            _____Seuil                    0.95
$Z                                      # Le parametre '$_____Seuil' definit la proportion (dans [0,1]) de particules dans le         #
$Z                                      # premier sous-ensemble (et evidemment, son complement a 1 definit la proportion de           #
$Z                                      # particules dans le second sous-ensemble...).                                                #

#######################################################################################################################################
#                                                                                                                                     #
#         R A Y O N   D E S   P A R T I C U L E S  :                                                                                  #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumR                 1

$Z                  setParam            _____MaximumR                 3

$Z                  $DELETE             $xTV/CARACTERIS.R

$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier=$xTV/CARACTERIS                                                                         \
$Z                                      minimum=$_____Seuil                                                                             \
$Z                                      maximum=$_____Seuil                                                                             \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$_____MinimumR                                                                \
$Z                                      valeur_superieure=$_____MaximumR                                                                \
$Z                                                                                                            >   $xTV/CARACTERIS.R

#######################################################################################################################################
#                                                                                                                                     #
#         M A S S E   D E S   P A R T I C U L E S  :                                                                                  #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumM                 1

$Z                  if                  ($?_____MaximumM == $NEXIST) then
$Z                                      @                   _____MaximumM = $_____MaximumR * $_____MaximumR
$Z                  else
$Z                  endif

$Z                  $DELETE             $xTV/CARACTERIS.M

$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier=$xTV/CARACTERIS                                                                         \
$Z                                      minimum=$_____Seuil                                                                             \
$Z                                      maximum=$_____Seuil                                                                             \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$_____MinimumM                                                                \
$Z                                      valeur_superieure=$_____MaximumM                                                                \
$Z                                                                                                            >   $xTV/CARACTERIS.M

#######################################################################################################################################
#                                                                                                                                     #
#         S E N S I B I L I T E   A U   C H A M P   G R A V I T A T I O N N E L  :                                                    #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumG                 1

$Z                  setParam            _____MaximumG                 1

$Z                  $DELETE             $xTV/CARACTERIS.G

$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier=$xTV/CARACTERIS                                                                         \
$Z                                      minimum=$_____Seuil                                                                             \
$Z                                      maximum=$_____Seuil                                                                             \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$_____MinimumG                                                                \
$Z                                      valeur_superieure=$_____MaximumG                                                                \
$Z                                                                                                            >   $xTV/CARACTERIS.G

#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E   D E   L A   V I T E S S E   D E S   P A R T I C U L E S  :                                                    #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumV                 1

$Z                  setParam            _____MaximumV                 0.1

$Z                  $DELETE             $xTV/CARACTERIS.V

$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier=$xTV/CARACTERIS                                                                         \
$Z                                      minimum=$_____Seuil                                                                             \
$Z                                      maximum=$_____Seuil                                                                             \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$_____MinimumV                                                                \
$Z                                      valeur_superieure=$_____MaximumV                                                                \
$Z                                                                                                            >   $xTV/CARACTERIS.V

#######################################################################################################################################
#                                                                                                                                     #
#         C O M P O S A N T E   ' Y '   D E   L A   V I T E S S E   D E S   P A R T I C U L E S  :                                    #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumVY                1

$Z                  setParam            _____MaximumVY                1

$Z                  $DELETE             $xTV/CARACTERIS.VY

$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier=$xTV/CARACTERIS                                                                         \
$Z                                      minimum=$_____Seuil                                                                             \
$Z                                      maximum=$_____Seuil                                                                             \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$_____MinimumVY                                                               \
$Z                                      valeur_superieure=$_____MaximumVY                                                               \
$Z                                                                                                            >   $xTV/CARACTERIS.VY

#######################################################################################################################################
#                                                                                                                                     #
#         C O L L A G E   D E S   P A R T I C U L E S  :                                                                              #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumCO                $EXIST

$Z                  setParam            _____MaximumCO                $EXIST

$Z                  $DELETE             $xTV/CARACTERIS.CO

$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier=$xTV/CARACTERIS                                                                         \
$Z                                      minimum=$_____Seuil                                                                             \
$Z                                      maximum=$_____Seuil                                                                             \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$_____MinimumCO                                                               \
$Z                                      valeur_superieure=$_____MaximumCO                                                               \
$Z                                                                                                            >   $xTV/CARACTERIS.CO

#######################################################################################################################################
#                                                                                                                                     #
#         P R O P A G A T I O N   D E S   C O U L E U R S   P A R T I C U L E S  :                                                    #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumPC                $NEXIST

$Z                  setParam            _____MaximumPC                $NEXIST

$Z                  $DELETE             $xTV/CARACTERIS.PC

$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier=$xTV/CARACTERIS                                                                         \
$Z                                      minimum=$_____Seuil                                                                             \
$Z                                      maximum=$_____Seuil                                                                             \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$_____MinimumPC                                                               \
$Z                                      valeur_superieure=$_____MaximumPC                                                               \
$Z                                                                                                            >   $xTV/CARACTERIS.PC
$Z                                      # Ceci a ete introduit le 20050511102230...                                                   #

#######################################################################################################################################
#                                                                                                                                     #
#         C O L L I S I O N N A B I L I T E   D E S   P A R T I C U L E S  :                                                          #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumKO                $EXIST

$Z                  setParam            _____MaximumKO                $EXIST

$Z                  $DELETE             $xTV/CARACTERIS.KO

$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier=$xTV/CARACTERIS                                                                         \
$Z                                      minimum=$_____Seuil                                                                             \
$Z                                      maximum=$_____Seuil                                                                             \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$_____MinimumKO                                                               \
$Z                                      valeur_superieure=$_____MaximumKO                                                               \
$Z                                                                                                            >   $xTV/CARACTERIS.KO