Esope source files

   1 : C BNORM     SOURCE    CHAT      05/01/12    21:41:41     5004           
   2 :       SUBROUTINE BNORM(X,Y,N)                                                   
   3 : C                                                                               
   4 : C   NORMALISE Y  DANS X                                                         
   5 : C                                                                               
   6 :       IMPLICIT INTEGER(I-N)
   7 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   8 : -INC CCOPTIO                                                                    
   9 :       DIMENSION X(*),Y(*)                                                       
  10 : *     SCALE=SQRT(BSCAL(Y,Y,N))                                                  
  11 :       SCALE=SQRT(SDOT(N,Y,1,Y,1))                                               
  12 :       IF(SCALE.EQ.0.D0) THEN                                                    
  12 :       CALL ERREUR(277)                                                          
  13 :       RETURN                                                                    
  14 :       ENDIF                                                                     
  15 :       DO 1 I= 1,N                                                               
  16 :     1 X(I)=Y(I)/SCALE                                                           
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :