Télécharger cons33.eso

Retour à la liste

Numérotation des lignes :

cons33
  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.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. -INC TDEMAIT
  19. C
  20. C WRITE(6,1000)
  21. C1000 FORMAT(' -----### CONS33')
  22. C
  23. C
  24. * VAL=.TRUE.
  25. C
  26. C
  27. * call COM33(II,JJ,IF1,IF2,IGAGNE)
  28. * IF (IGAGNE.EQ.1) RETURN
  29. CALL TETRA(II,JJ,IF1,IF2,IGAGNE,IBOUT)
  30. IF (IGAGNE.EQ.1) RETURN
  31. C
  32. C
  33. C FIN DE LA SUBROUTINE CONS33
  34. END
  35.  
  36.  
  37.  
  38.  

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