C EURO      SOURCE    CHAT      05/01/12    23:46:42     5004           
        SUBROUTINE EURO(HO,ROH,FCM,S,T0,T,FLU)
*
*  Calcul de la fonction de fluage selon l'eurocode 2
*
*
* entree
*        HO   rayon moyen de la piece [mm]
*        RHO  taux d'humidite (0.<roh<1.)
*        S    nature du ciment 
*        FCM  resistance moyenne en compression [MPa]
*        T0   temps de chargement [j]
*        T    temps actuel [j]
*
* sortie
*        FLU  J(to,t) [Pa-1]
*
*        
      IMPLICIT INTEGER(I-N)
       IMPLICIT REAL*8(A-H,O-Z)
*
*

        FCMT0=FCM*EXP(S*(1.-(28./T0)**(1./2.)))
        EC28=9975.*FCM**(1./3.)
        ECT0=9975.*FCMT0**(1./3.)
        PHIRH=1.+(10.-10.*ROH)/HO**(1./3.)
        BFCM=16.8/(FCM**(1./2.))
        BT0=1./(.1+T0**0.2)
        BETAH=1.5*(1.+(1.2*ROH)**18.)*HO+250.
        IF (BETAH.GT.1500.) THEN
          BETAH=1500.
        ENDIF
        BETAC=((T-T0)/(BETAH+T-T0))**.3
        PHI=PHIRH*BFCM*BT0*BETAC
        FLU=(1./ECT0+PHI/EC28)*1.e-6           
        END