$$$$ NORV1
* NORV1     PROCEDUR  AM        09/12/07    21:15:56     6578           
DEBPROC NORV1 v1*LISTREEL;
*-----------------------------------------------------------------
* Calcul de la norme d'un vecteur
* Entree :
*       - vecteur v1    : v1
* Sortie :
*       - |v1|          : nv1
*-----------------------------------------------------------------

n1=DIME v1;
nv1=0.;
REPE bouc n1;
 nv1=nv1+((EXTR &bouc v1)**2);
FIN bouc;
nv1=nv1**(0.5);

FINPROC nv1;