Télécharger norml2.eso

Retour à la liste

Numérotation des lignes :

  1. C NORML2 SOURCE CHAT 05/01/13 02:00:32 5004
  2. CCC
  3. C Norma: (suma cuadrados)/2
  4. CCC
  5. FUNCTION NORM_L2_2(R,N)
  6. IMPLICIT INTEGER(I-N)
  7. integer i,n
  8. real*8 r(n),aux,norm_l2_2
  9. aux=0.D0
  10. do i=1,n
  11. aux=aux+r(i)*r(i)
  12. enddo
  13. norm_l2_2=aux/2.D0
  14. return
  15. end
  16.  
  17.  
  18.  
  19.  

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