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

$Z                  if                  ($?Part0 == $NEXIST) then
$Z                                      set                 Part0=1
$Z                  else
$Z                  endif

$Z                  @                   Npart = $PartN - $Part0
$Z                  @                   Npart = $Npart + 1
$Z                  @                   NpartS2 = $Npart / 2
$Z                  set                 Part01=$Part0
$Z                  @                   PartN1 = $Part01 + $NpartS2
$Z                  @                   PartN1 = $PartN1 - 1
$Z                  @                   Part02 = $PartN1 + 1
$Z                  set                 PartN2=$PartN