Télécharger genjoi.eso

Retour à la liste

Numérotation des lignes :

  1. C GENJOI SOURCE CHAT 05/01/13 00:17:21 5004
  2. SUBROUTINE GENJOI
  3. C--------------------------------------------------------------------
  4. C
  5. C MAIL1 = GENJ MAIL2 FLOT1;
  6. C
  7. C MAIL1 : MAILLAGE DE JOI2, JOT3 OU JOI4
  8. C MAIL2 : MAILLAGE DE QUA4 ET/OU DE TRI3
  9. C MAILLAGE DE CUB8, PRI6, PYR5 ET/OU TET4
  10. C FLOT1 : TOLERANCE
  11. C
  12. C Pierre Pegon/JRC Ispra
  13. C--------------------------------------------------------------------
  14. C
  15. IMPLICIT INTEGER(I-N)
  16. -INC CCOPTIO
  17. C
  18. IF (IDIM.EQ.2)THEN
  19. CALL GENJO2
  20. ELSEIF (IDIM.EQ.3)THEN
  21. CALL GENJO3
  22. ELSE
  23. WRITE(IOIMP,*)'GENJOI: on n"est en 2D ni en 3D'
  24. ENDIF
  25. C
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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