Télécharger la plaquette Cast3M


fr en

Télécharger bbre3d.eso

Retour à la liste

Numérotation des lignes : 

bbre3d

  1. C BBRE3D    SOURCE    FD218221  24/02/07    21:15:03     11834          
  2.       subroutine bbre3d(NBRINC,NDIMG,NDIMA,ngf,BB,bg,
  3.      # DEPST,DEPSC,DEPSL,JEA,frac,Gch,affiche)
  4.  
  5. c     calcul du syteme d equation pour le retour  avec une inclusion      
  6.  
  7.       implicit real*8 (a-h,o-z)
  8.       implicit integer (i-n)
  9.  
  10. c     dimension du pb en base generalisee      
  11.       integer NDIMG,NBRINC
  12.  
  13. c     second membre systeme lienaire      
  14.       integer ngf
  15.       real*8 bb(ngf)
  16. c     coeff de fluage      
  17.       real*8 JEA(NDIMG,NDIMA)
  18. c     indicateur de diffusion produits chimiques dans fissure
  19.       real*8 GCH(0:NBRINC)
  20. c     def plastique
  21.       real*8 DEPST(NDIMG),DEPSC(NDIMG),DEPSL(NDIMG)     
  22. c     coeff de biot des gels
  23.       real*8 bg(0:NBRINC,0:1)        
  24. c     affichage
  25.       logical affiche
  26. c     fraction d inclusion      
  27.       real*8 FRAC(0:NBRINC) 
  28. c     affichage
  29.       logical affiche_local      
  30.  
  31.       affiche_local=affiche
  32.  
  33.       if(ngf.lt.ndimg) then
  34.         print*,'Redimensionner ngf>ndimg dans incl3d pour bbti3d'
  35.       end if
  36.  
  37.       if(affiche_local) then
  38.         print*,'On arrive dans bbre3d'
  39.       end if
  40. C       print*,NBRINC,NDIMG,NDIMA,ngf,BB,bg,
  41. C      # DEPST,DEPSC,JEA,frac,Gch,affiche'dans bb1rest3d BB'
  42.         do i=1,ndimg
  43.           write(*,'(E10.3)') BB(i)
  44.         end do  
  45.       end if            
  46.  
  47.  
  48.  
  49.       return
  50.       end
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales