Télécharger la plaquette Cast3M


fr en

Télécharger cons44.eso

Retour à la liste

Numérotation des lignes : 

cons44

  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.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. -INC TDEMAIT
  19. C
  20. C        WRITE(6,1000)
  21. C1000    FORMAT(' -----### CONS44')
  22. C
  23. C
  24.         CALL HEXA(II,JJ,IF1,IF2,IGAGNE)
  25.         IF (IGAGNE.EQ.1) RETURN
  26. C
  27.         CALL PRISM1(II,JJ,IF1,IF2,IGAGNE)
  28.         RETURN
  29. C
  30. C       FIN DE LA SUBROUTINE CONS44
  31.         END
  32.  
  33.  
  34.  
  35.  

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