! { dg-do compile } | |
! { dg-additional-options "-ffast-math" } | |
SUBROUTINE influence_factor ( gftype, error ) | |
INTEGER, PARAMETER :: dp=8 | |
INTEGER :: k,n,lb(3),ub(3),dim,pt | |
COMPLEX(KIND=dp) :: b_m, exp_m, sum_m | |
DO k = 0, n-2 | |
DO pt = lb (dim), ub (dim) | |
sum_m = CMPLX ( 0.0_dp, 0.0_dp,KIND=dp) | |
b_m = exp_m ** ( n - 1 ) / sum_m | |
END DO | |
END DO | |
END SUBROUTINE influence_factor |