Télécharger la plaquette Cast3M


fr en

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