#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D E   P O L Y G O N E S  :                                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SMIT.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20230705093532).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set       NpartX=`$CA $FPoLyGoNeS.rho | $WCl`
$Z                  set       NpartY=`$CA $FPoLyGoNeS.theta | $WCl`
$Z                  set       NpartZ=`$CA $FPoLyGoNeS.phi | $WCl`
$Z                  set       Npart_=`$xcg/MAX3.01$X x=$NpartX y=$NpartY z=$NpartZ`

$Z                  set       ArGuMeNtS="$K_VIDE"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" LISTE_RHO=$FPoLyGoNeS.rho"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" LISTE_THETA=$FPoLyGoNeS.theta"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" LISTE_PHI=$FPoLyGoNeS.phi"

$Z                  $xrv/RPT_XYZ.01$X   ne=$Npart_                                                                                      \
$Z                                      $ArGuMeNtS                                                                                      \
$Z                                      pX=1 pY=0 pZ=0                                                                                  \
$Z                                                                                                  >   $FPoLyGoNeS.1$COORD_X

$Z                  $xrv/RPT_XYZ.01$X   ne=$Npart_                                                                                      \
$Z                                      $ArGuMeNtS                                                                                      \
$Z                                      pX=0 pY=1 pZ=0                                                                                  \
$Z                                                                                                  >   $FPoLyGoNeS.1$COORD_Y

$Z                  $xrv/RPT_XYZ.01$X   ne=$Npart_                                                                                      \
$Z                                      $ArGuMeNtS                                                                                      \
$Z                                      pX=0 pY=0 pZ=1                                                                                  \
$Z                                                                                                  >   $FPoLyGoNeS.1$COORD_Z

$Z                  echo                $OrIgInE_X                                                                                      \
$Z                                                                                                  >   $FPoLyGoNeS.2$COORD_X
$Z                  $xrv/accumule.01$X  ne=$Npart_                                                                                      \
$Z                                      fichier=$FPoLyGoNeS.1$COORD_X                                                                   \
$Z                                                                                                  >>  $FPoLyGoNeS.2$COORD_X

$Z                  echo                $OrIgInE_Y                                                                                      \
$Z                                                                                                  >   $FPoLyGoNeS.2$COORD_Y
$Z                  $xrv/accumule.01$X  ne=$Npart_                                                                                      \
$Z                                      fichier=$FPoLyGoNeS.1$COORD_Y                                                                   \
$Z                                                                                                  >>  $FPoLyGoNeS.2$COORD_Y

$Z                  echo                $OrIgInE_Z                                                                                      \
$Z                                                                                                  >   $FPoLyGoNeS.2$COORD_Z
$Z                  $xrv/accumule.01$X  ne=$Npart_                                                                                      \
$Z                                      fichier=$FPoLyGoNeS.1$COORD_Z                                                                   \
$Z                                                                                                  >>  $FPoLyGoNeS.2$COORD_Z

$Z                  set       NpartX=`$CA $FPoLyGoNeS.2$COORD_X | $WCl`
$Z                  set       NpartY=`$CA $FPoLyGoNeS.2$COORD_Y | $WCl`
$Z                  set       NpartZ=`$CA $FPoLyGoNeS.2$COORD_Z | $WCl`
$Z                  set       Npart_=`$xcg/MAX3.01$X x=$NpartX y=$NpartY z=$NpartZ`