Télécharger stnbar.eso

Retour à la liste

Numérotation des lignes :

  1. C STNBAR SOURCE CHAT 05/01/13 03:25:13 5004
  2. C
  3. SUBROUTINE STNBAR(IDE,NBN,NBAR)
  4. C *****************************************************************
  5. C OBJET STNBAR : RENVOI LE NOMBRE D'ARETES D'UN ELEMENT
  6. C *****************************************************************
  7. IMPLICIT INTEGER(I-N)
  8. INTEGER IDE,NBN,NBAR
  9. C
  10. IF(IDE.LT.2)THEN
  11. NBAR = 0
  12. GOTO 9999
  13. ENDIF
  14. IF(IDE.LT.3)THEN
  15. NBAR = NBN
  16. GOTO 9999
  17. ENDIF
  18. CALL S3NBAR(NBN,NBAR)
  19. C
  20. 9999 END
  21.  
  22.  
  23.  

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