Télécharger la plaquette Cast3M


fr en

Télécharger cons34.eso

Retour à la liste

Numérotation des lignes : 

cons34

  1. C CONS34    SOURCE    JC220346  16/11/29    21:15:08     9221           
  2. C|-------------------------------------------------------------------|
  3. C|                                                                   |
  4. C|                            CONS34                                 |
  5. C|                                                                   |
  6. C|     IF1 EST UN TRIANGLE ET IF2 EST UN QUADRANGLE. ON VA ESSAYER   |
  7. C|     DE PLACER UN PRISME OU UNE PYRAMIDE                           |
  8. C|                                                                   |
  9. C|-------------------------------------------------------------------|
  10. C
  11.        SUBROUTINE CONS34(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.        IGAGNE=0
  20. C
  21. C       WRITE(6,1000)
  22. C1000   FORMAT(' -----### CONS34')
  23. C
  24. C
  25. *      VAL=.TRUE.
  26. C
  27.        CALL PYRA1(II,JJ,IF1,IF2,IGAGNE,0)
  28.        IF (IGAGNE.EQ.1) RETURN
  29. C
  30. *      CALL PRISM2(II,JJ,IF1,IF2,IGAGNE)
  31.        RETURN
  32. C
  33. C      FIN DE LA SUBROUTINE CONS34
  34.        END
  35.  
  36.  
  37.  
  38.  

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