Esope source files

   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 :