Commits

Mickael Abbas committed b4b45fc

[#22458] Bug for thermic effect in tangent matrix of Rousselier law

Comments (0)

Files changed (2)

bibfor/algorith/gdclel.F90

     mu = deuxmu/2
     troisk = young/(1-2*nu)
     unk = troisk/3
-    call verift(fami, kpg, ksp, '+', imate,&
+    call verift(fami, kpg, ksp, poum, imate,&
                 epsth=epsth)
     cother = troisk*epsth
 !

bibfor/include/asterfort/get_elasth_para.h

File contents unchanged.