Télécharger j3nump.eso

Retour à la liste

Numérotation des lignes :

  1. C J3NUMP SOURCE CHAT 05/01/13 00:47:11 5004
  2. SUBROUTINE J3NUMP(IST1,NPTO2,INUM2)
  3. C----------------------------------------------------------------
  4. C NUMERO DU NOEUD DE 2 QUI EST COMMUN AU DEUX COTES
  5. C INTERSECTE PAR A
  6. C
  7. C PP 6/97
  8. C Pierre Pegon/JRC Ispra
  9. C----------------------------------------------------------------
  10. IMPLICIT INTEGER(I-N)
  11. DIMENSION IST1(3)
  12. C
  13. I1=IST1(2)
  14. I2=IST1(3)
  15. C
  16. INUM2=MAX(I1,I2)
  17. IF(INUM2.EQ.NPTO2)THEN
  18. IF((I1.EQ.1).OR.(I2.EQ.1))INUM2=1
  19. ENDIF
  20. C
  21. RETURN
  22. END
  23.  
  24.  
  25.  
  26.  

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