Esope source files

   1 : C CNORM     SOURCE    PV        07/11/23    21:15:59     5978           
   2 : C   CALCUL LA NORME D'UN VECTEUR                                                
   3 : C                                                                               
   4 :       SUBROUTINE CNORM                                                          
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (a-h,o-z)
   7 : -INC CCOPTIO                                                                    
   8 : -INC SMCOORD                                                                    
   9 :       REAL*8 XNA                                                                
   9 :       CALL LIROBJ('POINT   ',IP,1,IRETOU)                                       
  10 :       IF (IERR.NE.0) RETURN                                                     
  11 :       SEGACT MCOORD                                                             
  12 :       IREF=(IP-1)*(IDIM+1)                                                      
  13 :       XNO=0.D0
  14 :       DO 1 I=1,IDIM                                                             
  15 :       XNO=XNO+XCOOR(IREF+I)**2                                                  
  16 :    1  CONTINUE                                                                  
  17 :       XNA=SQRT(XNO)                                                             
  17 :       CALL ECRREE(XNA)                                                          
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :  
  21 :