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.  
  17. -INC PPARAM
  18. -INC CCOPTIO
  19. C
  20. IF (IDIM.EQ.2)THEN
  21. CALL GENJO2
  22. ELSEIF (IDIM.EQ.3)THEN
  23. CALL GENJO3
  24. ELSE
  25. WRITE(IOIMP,*)'GENJOI: on n"est en 2D ni en 3D'
  26. ENDIF
  27. C
  28. RETURN
  29. END
  30.  
  31.  
  32.  

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