Télécharger xnorve.eso

Retour à la liste

Numérotation des lignes :

  1. C XNORVE SOURCE CHAT 05/01/13 04:14:44 5004
  2. C
  3. FUNCTION XNORVE(V1,IDIMC)
  4. C ***************************************************************
  5. C NORME D'UN VECTEUR
  6. C ***************************************************************
  7. IMPLICIT INTEGER(I-N)
  8. REAL*8 XNORVE
  9. INTEGER IDIMC
  10. REAL*8 V1(*),XYZEPS
  11. C
  12. C COMMON /CGEPSI/ XYZHUG,XYZMIN,XYZEPS
  13. C REAL*8 XYZHUG,XYZMIN,XYZEPS
  14. C EXTERNAL SCALVE
  15. C REAL*8 SCALVE
  16. C
  17. XYZEPS=1.d-10
  18. XNORVE = 0.D0
  19. IF(IDIMC.LE.0) RETURN
  20. DO 700 JG=1,IDIMC
  21. 700 XNORVE=XNORVE + V1(JG) * V1(JG)
  22. C XNORVE = SCALVE(V1,V1,IDIMC)
  23. IF( XNORVE .LT. XYZEPS**2 )THEN
  24. XNORVE = 0.0D0
  25. ELSE
  26. XNORVE = SQRT( XNORVE )
  27. ENDIF
  28. END
  29.  
  30.  
  31.  

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