1! { dg-do compile }
2! { dg-options "-O2 -ftree-loop-distribution" }
3
4MODULE NFT_mod
5
6implicit none
7integer :: Nangle
8real:: Z0
9real, dimension(:,:), allocatable :: Angle
10real, dimension(:), allocatable :: exth, ezth, hxth, hyth, hyphi
11
12CONTAINS
13
14SUBROUTINE NFT_Init()
15
16real :: th, fi
17integer :: n
18
19do n = 1,Nangle
20  th = Angle(n,1)
21  fi = Angle(n,2)
22
23  exth(n) =  cos(fi)*cos(th)
24  ezth(n) = -sin(th)
25  hxth(n) = -sin(fi)
26  hyth(n) =  cos(fi)
27  hyphi(n) = -sin(fi)
28end do
29END SUBROUTINE NFT_Init
30
31END MODULE NFT_mod
32