Sources Esope | Cast3M

genjoi
C GENJOI    SOURCE    CHAT      05/01/13    00:17:21     5004
      SUBROUTINE GENJOI
C--------------------------------------------------------------------
C
C     MAIL1 = GENJ MAIL2 FLOT1;
C
C     MAIL1 : MAILLAGE DE JOI2, JOT3 OU JOI4
C     MAIL2 : MAILLAGE DE QUA4 ET/OU DE TRI3
C             MAILLAGE DE CUB8, PRI6, PYR5 ET/OU TET4
C     FLOT1 : TOLERANCE
C
C     Pierre Pegon/JRC Ispra
C--------------------------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
C
      IF (IDIM.EQ.2)THEN
        CALL GENJO2
      ELSEIF (IDIM.EQ.3)THEN
        CALL GENJO3
      ELSE
        WRITE(IOIMP,*)'GENJOI: on n"est en 2D ni en 3D'
      ENDIF
C
      RETURN
      END