Télécharger cons33.eso

Retour à la liste

Numérotation des lignes :

  1. C CONS33 SOURCE JC220346 16/11/29 21:15:07 9221
  2. C|-------------------------------------------------------------------|
  3. C| |
  4. C| C33.FOR |
  5. C| |
  6. C| IF1 ET IF2 SONT DES TRIANGLES. ON VA ESSAYER DE PLACER |
  7. C| UN TETRAEDRE OU UNE PYRAMIDE |
  8. C| |
  9. C|-------------------------------------------------------------------|
  10. C
  11. SUBROUTINE CONS33(II,JJ,IF1,IF2,IGAGNE,IBOUT)
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. -INC CCOPTIO
  16. -INC TDEMAIT
  17. C
  18. C WRITE(6,1000)
  19. C1000 FORMAT(' -----### CONS33')
  20. C
  21. C
  22. * VAL=.TRUE.
  23. C
  24. C
  25. * call COM33(II,JJ,IF1,IF2,IGAGNE)
  26. * IF (IGAGNE.EQ.1) RETURN
  27. CALL TETRA(II,JJ,IF1,IF2,IGAGNE,IBOUT)
  28. IF (IGAGNE.EQ.1) RETURN
  29. C
  30. C
  31. C FIN DE LA SUBROUTINE CONS33
  32. END
  33.  
  34.  
  35.  
  36.  

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