blob: 8d0cd4723f68bda81d5525b43aecc789cb9d9caa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { dg-do compile }
! { dg-options "-O -ftree-vectorize" }
SUBROUTINE OpenAD_set_ref_state(DRF, RHOFACF, RHOFACC)
real(8) DRF(1 : 15)
real(8) RHOFACF(1 : 16)
real(8) RHOFACC(1 : 15)
integer, dimension(:), allocatable :: oad_it
integer :: oad_it_ptr
INTEGER(8) OpenAD_Symbol_188
INTEGER(4) K
OpenAD_Symbol_188 = 0
DO K = 2, 15, 1
RHOFACF(INT(K)) = ((RHOFACC(K) * DRF(K + (-1)) + RHOFACC(K +
+ (-1)) * DRF(K)) /(DRF(K) + DRF(K + (-1))))
OpenAD_Symbol_188 = (INT(OpenAD_Symbol_188) + INT(1))
END DO
oad_it(oad_it_ptr) = OpenAD_Symbol_188
end subroutine OpenAD_set_ref_state
|
