Esope source files

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