Esope source files

   1 : C ETAPE3    SOURCE    CHAT      05/01/12    23:46:14     5004           
   2 : *                                                                               
   3 : * CALCUL DE LA NORME D UN VECTEUR                                               
   4 : *                                                                               
   5 :       SUBROUTINE ETAPE3(V,N,XNORZ)                                              
   6 :       IMPLICIT INTEGER(I-N)
   7 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   8 :       DIMENSION V(*)                                                            
   9 :       XX = 0.D0                                                                 
  10 :       DO 1 I= 1,N                                                               
  11 :         XX = V(I)*V(I) + XX                                                     
  12 :   1   CONTINUE                                                                  
  13 :       XNORZ=SQRT(XX)                                                            
  14 :       RETURN                                                                    
  15 :       END                                                                       
  16 :