C BNORM     SOURCE    CHAT      05/01/12    21:41:41     5004           
      SUBROUTINE BNORM(X,Y,N)                                                   
C                                                                               
C   NORMALISE Y  DANS X                                                         
C                                                                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
-INC CCOPTIO                                                                    
      DIMENSION X(*),Y(*)                                                       
*     SCALE=SQRT(BSCAL(Y,Y,N))                                                  
      SCALE=SQRT(SDOT(N,Y,1,Y,1))                                               
      IF(SCALE.EQ.0.D0) THEN                                                    
      CALL ERREUR(277)                                                          
      RETURN                                                                    
      ENDIF                                                                     
      DO 1 I= 1,N                                                               
    1 X(I)=Y(I)/SCALE                                                           
      RETURN                                                                    
      END