Télécharger la plaquette Cast3M


fr en

Télécharger tocond.eso

Retour à la liste

Numérotation des lignes : 

tocond

  1. C TOCOND    SOURCE    SERRE     16/12/13    21:15:11     9254           
  2.       SUBROUTINE TOCOND
  3. C
  4. C--------------------------------------------------------------------
  5. C Modélisation de la condensation en paroi
  6. C--------------------------------------------------------------------
  7. C    1/ Modélisation d'un condenseur à tubes (voir WAC0)
  8. C    2/ Modélisation d'une paroi plane (voir TOCON0)
  9. C--------------------------------------------------------------------
  10. C
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8 (A-H,O-Z)     
  13. C
  14. C      write(6,*) 'Passage dans TOCOND'
  15.       CALL LIRTAB('CONDENSR',MTAB1,0,IRETOU)
  16. C      write(6,*) 'lecture condensr ierr iretou',ierr,iretou
  17. C      IF (IERR.NE.0) RETURN
  18. C
  19.       IF (IRETOU.EQ.1) THEN
  20. C      write(6,*) 'lecture condensr ierr iretou',ierr,iretou
  21.          CALL WAC0(MTAB1)
  22. C      write(6,*) 'retour lecture condensr '
  23.       ELSE
  24. C      write(6,*) 'lecture condensr ierr iretou',ierr,iretou
  25.          CALL TOCON0
  26. C      write(6,*) 'retour lecture condensr '
  27.       ENDIF
  28. C
  29.       RETURN
  30.       END
  31.  
  32.  

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