Télécharger exface.eso

Retour à la liste

Numérotation des lignes :

  1. C EXFACE SOURCE CHAT 05/01/12 23:50:43 5004
  2. C EXTRAIT UNE FACE D'UN PAVE MASSIF
  3. C SI PAS DE NOMBRE INDIQUE REND TOUTES LES FACES
  4. C LES CUBES ONT 6 FACES 1=BAS 2=HAUT 3 ET 4,5 ET 6 OPPOSES
  5. C CERTAINS VOLUMES ONT 3 FACES 1=BAS 2=HAUT 3=POURTOUR
  6. C
  7. SUBROUTINE EXFACE
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCOPTIO
  10. -INC SMELEME
  11. CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU)
  12. CALL LIRENT(IFAC,0,IRETOU)
  13. IF (IERR.NE.0) RETURN
  14. SEGACT MELEME
  15. IF (IRETOU.EQ.0) GOTO 10
  16. IF (IFAC.LT.1.OR.IFAC.GT.LISREF(/1)) CALL ERREUR(36)
  17. IF (IERR.NE.0) RETURN
  18. IRET=LISREF(IFAC)
  19. SEGDES MELEME
  20. CALL ECROBJ('MAILLAGE',IRET)
  21. RETURN
  22. 10 NBF=LISREF(/1)
  23. IF (NBF.EQ.0) CALL ERREUR(36)
  24. IF (IERR.NE.0) RETURN
  25. DO 11 I=1,NBF
  26. II=NBF+1-I
  27. IRET=LISREF(II)
  28. CALL ECROBJ('MAILLAGE',IRET)
  29. 11 CONTINUE
  30. SEGDES MELEME
  31. RETURN
  32. END
  33.  
  34.  

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