Télécharger delt.eso

Retour à la liste

Numérotation des lignes :

  1. C DELT SOURCE CHAT 05/01/12 22:41:27 5004
  2. FUNCTION DELT(I,J)
  3. C=======================================================================
  4. C OPERATEUR DE KRONECKER
  5. C=======================================================================
  6. C Bergoin - 1992
  7. C
  8. C=======================================================================
  9. IMPLICIT INTEGER(I-N)
  10. REAL*8 DELT
  11. INTEGER I,J
  12. DATA ZERO /0.D0/,UN /1.D0/
  13. C----------------------------------------------------------------------
  14. IF (I.EQ.J) DELT=UN
  15. RETURN
  16. END
  17.  
  18.  
  19.  

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