Télécharger elsn2d.eso

Retour à la liste

Numérotation des lignes :

  1. C ELSN2D SOURCE CHAT 05/01/12 23:38:06 5004
  2. C
  3. C
  4. SUBROUTINE ELSN2D( ISOM1,ISOM2,NBNEL,INDNO )
  5. C *****************************************************************
  6. C ISOM1 : NOEUD D'INDICE MINIMUM
  7. C ISOM2 : NOEUD D'INDICE MAXIMUM
  8. C *****************************************************************
  9. IMPLICIT INTEGER(I-N)
  10. INTEGER ISOM1,ISOM2,NBNEL,INDNO
  11. C
  12. IF((ISOM2.EQ. (NBNEL-1)).AND.(ISOM1.EQ.1))THEN
  13. INDNO = NBNEL
  14. ELSE
  15. INDNO = ISOM2 -1
  16. ENDIF
  17. 9999 END
  18.  
  19.  
  20.  

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