Télécharger indce1.eso

Retour à la liste

Numérotation des lignes :

indce1
  1. C INDCE1 SOURCE PV090527 23/01/27 21:15:42 11574
  2. c**************************************************************************************
  3. subroutine indce1(i,k,l)
  4. c indices complementaires dans une matrice carre
  5. integer i,k,l
  6. if (i.eq.1)then
  7. k=2
  8. l=3
  9. end if
  10. if (i.eq.2)then
  11. k=1
  12. l=3
  13. end if
  14. if (i.eq.3)then
  15. k=1
  16. l=2
  17. end if
  18. return
  19. end
  20.  
  21.  

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