Procedures | Cast3M

   1 : * NORV1     PROCEDUR  AM        09/12/07    21:15:56     6578           
   2 : DEBPROC NORV1 v1*LISTREEL;
   3 : *-----------------------------------------------------------------
   4 : * Calcul de la norme d'un vecteur
   5 : * Entree :
   6 : *       - vecteur v1    : v1
   7 : * Sortie :
   8 : *       - |v1|          : nv1
   9 : *-----------------------------------------------------------------
  10 : 
  11 : n1=DIME v1;
  12 : nv1=0.;
  13 : REPE bouc n1;
  14 :  nv1=nv1+((EXTR &bouc v1)**2);
  15 : FIN bouc;
  16 : nv1=nv1**(0.5);
  17 : 
  18 : FINPROC nv1;
  19 :