C NANO3D    SOURCE    FD218221  24/02/07    21:15:21     11834          
       subroutine nano3d(xmat,nmat,vnmat,nstype,var0,varf,nvari,vnvari,
     # ndtens,nbelas,teta1,teta2,tetaref,ppas,dt,kthermv,knanov)

c      calcul des coeff hydrique pour mc3d

c      declarations externes
       implicit integer(i-n)
       implicit real*8(a-h,o-z)

       integer nmat,nstype,ndtens,nvari,nbelas
       integer vnmat(nstype)
       integer vnvari(nstype,2)
       real*8 xmat(nmat)
       real*8 var0(nvari),varf(nvari)
       real*8 teta1,teta2,tetaref,mfr
       logical ppas
       real*8 kthermv,knanov

c      nrj activation pour l eau
       real*8 nrjw 
       parameter (nrjw=17000.d0)
       real*8 wcsh0,pwcsh0,mdtt,tdtt,wdtt,pdtt,wcshf,pwcshf,pwcap
       integer nump,numw,numc


       call xmat3d(mdtt,xmat,nmat,vnmat,nstype,nbelas,3,1)
       call xmat3d(tdtt,xmat,nmat,vnmat,nstype,nbelas,3,2)
       call xmat3d(wdtt,xmat,nmat,vnmat,nstype,nbelas,3,3)
       call xmat3d(pdtt,xmat,nmat,vnmat,nstype,nbelas,3,4)

       call xvar3d(pwcsh0,nump,var0,nvari,vnvari,nstype,ndtens,3,1)
       call xvar3d(wcsh0,numw,var0,nvari,vnvari,nstype,ndtens,3,2)
       call xvar3d(pwcap,numc,varf,nvari,vnvari,nstype,ndtens,1,3)

       if(ppas) then
c         initialisation de la quantite d'eau dans les CSH a la valeur 
c         de reference
          wcsh0=wdtt
          pwcsh0=0.d0
       end if

c      prise en compte de la pression dans les csh pour la DTT
c      cf. F. Manzoni, T. Vidal, A. Sellier, X. Bourbon, and G. Camps,
c      “On the origins of transient thermal deformation of concrete,” 
c      Cem. Concr. Compos., vol. 107, 2020, 
c      https://doi.org/10.1016/j.cemconcomp.2019.103508    
   
       call wdtt3d(wcsh0,wcshf,tdtt,mdtt,wdtt,pdtt,kthermv,
     # teta1,teta2,pwcap,dt,knanov,pwcsh0,pwcshf,tetaref,ierr1)
       if(ierr1.eq.1) then
           print*,'ERREUR calcul de la DTT dans nano3d'
           ierr1=1
           stop
       end if

       varf(nump)=pwcshf
       varf(numw)=wcshf 

       return
       end