Sources Esope | Cast3M

comblo
C COMBLO    SOURCE    CHAT      05/01/12    22:14:09     5004
      SUBROUTINE COMBLO
C--------------------------------------------------------------------
C
C     TABL1 = COMB TABL2 FLOT1;
C
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 COMBL2
      ELSEIF (IDIM.EQ.3)THEN
        CALL J3FAC0
      ELSE
        WRITE(IOIMP,*)'COMBLO: on n"est en 2D ni en 3D'
      ENDIF
C
      RETURN
      END