Esope source files

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