Esope source files

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