blob: 3e2d04c949017d956eac41666361ea0e528f98f6 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O2 -ftree-loop-distribution" }
MODULE NFT_mod
implicit none
integer :: Nangle
real:: Z0
real, dimension(:,:), allocatable :: Angle
real, dimension(:), allocatable :: exth, ezth, hxth, hyth, hyphi
CONTAINS
SUBROUTINE NFT_Init()
real :: th, fi
integer :: n
do n = 1,Nangle
th = Angle(n,1)
fi = Angle(n,2)
exth(n) = cos(fi)*cos(th)
ezth(n) = -sin(th)
hxth(n) = -sin(fi)
hyth(n) = cos(fi)
hyphi(n) = -sin(fi)
end do
END SUBROUTINE NFT_Init
END MODULE NFT_mod