Télécharger bnorm.eso

Retour à la liste

Numérotation des lignes :

bnorm
  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. DIMENSION X(*),Y(*)
  12. * SCALE=SQRT(BSCAL(Y,Y,N))
  13. SCALE=SQRT(SDOT(N,Y,1,Y,1))
  14. IF(SCALE.EQ.0.D0) THEN
  15. CALL ERREUR(277)
  16. RETURN
  17. ENDIF
  18. DO 1 I= 1,N
  19. 1 X(I)=Y(I)/SCALE
  20. RETURN
  21. END
  22.  
  23.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales