! { 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 |