Télécharger tabtp2.eso

Retour à la liste

Numérotation des lignes :

  1. C TABTP2 SOURCE AM 05/08/02 21:15:06 5141
  2. SUBROUTINE TABTP2(H0,RHOS,E1AN,T0,TINI,TFIN,TABLE,IDIM)
  3. *
  4. * calcul d'une table de temps pour la fonction de fluage du LCPC
  5. * sur un intervalle de temps [TINI,TFIN]
  6. * avec une progression geometrique des temps
  7. * entree
  8. * H0,RHOS,E1AN,T0 : parametres de la fonction
  9. * de fluage du LCPC
  10. * TINI : temps au debut de l'intervalle de calcul
  11. * TFIN : temps a la fin de l'intervalle de calcul
  12. *
  13. * sortie
  14. * TABLE : tableau des temps de calcul
  15. * IDIM : dimension de TABLE
  16. *
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8(A-H,O-Z)
  19. *
  20. REAL*8 TABLE(0:1000)
  21. *
  22. * initialisation de la table a zero
  23. *
  24. N1=(((tfin-t0)/2.)**(2./3.))
  25. N=int(N1)
  26. IF (N.LT.100) THEN
  27. N=100
  28. ENDIF
  29. *
  30. * AM 2/8/05
  31. *
  32. IF(N.GT.1000) N=1000
  33.  
  34. DO 10 I=0,1000
  35. TABLE(I)=0.
  36. 10 CONTINUE
  37. *
  38. * calcul du premier temps de la table
  39. TABLE(0)=T0
  40. DO 20 I=1,N
  41. TABLE(I)=T0+(2*(float(i)**1.5))
  42. 20 CONTINUE
  43.  
  44. IDIM=N
  45. END
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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