2 ! { dg
-options
"-O2 -ftree-vectorize" }
3 subroutine gen3delem
(nel
,ial
,ifix
,xta
,xnoref
,dd
,jact
,nelshell
)
4 real*8 xnoref
(3),xta
(3,100),xn1
(3,100)
21 xnoref
(j
)=xnoref
(j
)/dd
23 xn1
(2,jact
)=xnoref
(3)*xta
(1,jact
)-xnoref
(1)*xta
(3,jact
)
24 xn1
(3,jact
)=xnoref
(1)*xta
(2,jact
)-xnoref
(2)*xta
(1,jact
)