Télécharger normnf.eso

Retour à la liste

Numérotation des lignes :

  1. C NORMNF SOURCE CB215821 16/04/21 21:17:52 8920
  2. CCC
  3. C Norma infinito de un vector
  4. CCC
  5. FUNCTION NORMAINF (V,N)
  6. IMPLICIT INTEGER(I-N)
  7. integer i,n
  8. real*8 v(n),aux, normainf
  9. aux=ABS(v(1))
  10. do i=2,n
  11. if (abs(v(i)).gt.aux) aux=abs(v(i))
  12. enddo
  13. normainf=aux
  14. return
  15. end
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  

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