| ! { dg-do compile } | |
| ! { dg-options "-O2 -ftree-vectorize" } | |
| subroutine gen3delem(nel,ial,ifix,xta,xnoref,dd,jact,nelshell) | |
| real*8 xnoref(3),xta(3,100),xn1(3,100) | |
| if(nel.gt.0) then | |
| do j=1,nel | |
| enddo | |
| do | |
| enddo | |
| endif | |
| do | |
| if(ifix.eq.0) then | |
| do j=nelshell,nel | |
| if(ial(j).eq.0) then | |
| endif | |
| enddo | |
| endif | |
| do j=nelshell,nel | |
| enddo | |
| do j=1,3 | |
| xnoref(j)=xnoref(j)/dd | |
| enddo | |
| xn1(2,jact)=xnoref(3)*xta(1,jact)-xnoref(1)*xta(3,jact) | |
| xn1(3,jact)=xnoref(1)*xta(2,jact)-xnoref(2)*xta(1,jact) | |
| call foo(xn1) | |
| enddo | |
| end |