Commits

Anonymous committed 65da028

[#22485] Mise au carré du post-traitement des EFGE_ELNO pour les coques 3D

Comments (0)

Files changed (2)

bibfor/elements/efcoq3d.F90

    implicit none
 
 #include "asterfort/cosiro.h"
-#include "asterfort/pk2cau.h"
 #include "asterfort/vdefgn.h"
 #include "asterfort/vdefro.h"
 #include "asterfort/vdrepe.h"
     real(kind=8) :: vecta(9, 2, 3), vectn(9, 3), vectpt(9, 2, 3)
     real(kind=8) :: vectg(2, 3), vectt(3, 3)
     real(kind=8) :: epais
+    real(kind=8) :: matevn(2, 2, npgt), matevg(2, 2, npgt)
     real(kind=8) :: geom(*),cara(*),chg(*),matr(*),effg(*),lzr(*)
-    real(kind=8) :: matevn(2, 2, npgt), matevg(2, 2, npgt)
     real(kind=8) :: sigm(6, 270), sigma(6, 120), effgc(8, 9), effgt(8, 9)
-    real(kind=8) :: pk2(6, 270)
 
 
     zero=0.0d0

bibfor/elements/vdgnlr.F90

             ) + zr ( iup - 1 + 6 * ( in - 1 ) + ii )
 !
 111      continue
-101  end do
+101  continue
 !
 !---- ROTATION TOTALE AUX NOEUDS
 !