Télécharger cons44.eso

Retour à la liste

Numérotation des lignes :

  1. C CONS44 SOURCE JC220346 16/11/29 21:15:09 9221
  2. C|-------------------------------------------------------------------|
  3. C| |
  4. C| CONS44 |
  5. C| |
  6. C| IF1 ET IF2 SONT 2 QUADRANGLES : ON VA ESSAYER DE PLACER |
  7. C| UN HEXAEDRE OU UN PRISME |
  8. C| |
  9. C|-------------------------------------------------------------------|
  10. C
  11. SUBROUTINE CONS44(II,JJ,IF1,IF2,IGAGNE)
  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(' -----### CONS44')
  20. C
  21. C
  22. CALL HEXA(II,JJ,IF1,IF2,IGAGNE)
  23. IF (IGAGNE.EQ.1) RETURN
  24. C
  25. CALL PRISM1(II,JJ,IF1,IF2,IGAGNE)
  26. RETURN
  27. C
  28. C FIN DE LA SUBROUTINE CONS44
  29. END
  30.  
  31.  
  32.  
  33.  

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