Télécharger comblo.eso

Retour à la liste

Numérotation des lignes :

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

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