Esope source files

   1 : C COMBLO    SOURCE    CHAT      05/01/12    22:14:09     5004           
   2 :       SUBROUTINE COMBLO
   3 : C--------------------------------------------------------------------
   4 : C
   5 : C     TABL1 = COMB TABL2 FLOT1;
   6 : C
   7 : C     FLOT1 : TOLERANCE
   8 : C
   9 : C     Pierre Pegon/JRC Ispra
  10 : C--------------------------------------------------------------------
  11 : C
  12 :       IMPLICIT INTEGER(I-N)
  13 : -INC CCOPTIO
  14 : C
  15 :       IF (IDIM.EQ.2)THEN
  15 :         CALL COMBL2
  16 :       ELSEIF (IDIM.EQ.3)THEN
  16 :         CALL J3FAC0
  17 :       ELSE
  18 :         WRITE(IOIMP,*)'COMBLO: on n"est en 2D ni en 3D' 
  19 :       ENDIF
  20 : C
  21 :       RETURN
  22 :       END
  23 :  
  24 :