Télécharger bnorm.eso

Retour à la liste

Numérotation des lignes :

  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
  13. CALL ERREUR(277)
  14. RETURN
  15. ENDIF
  16. DO 1 I= 1,N
  17. 1 X(I)=Y(I)/SCALE
  18. RETURN
  19. END
  20.  
  21.  

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