blob: 002e5bd5e81ee286f1ef6c72f5dbf0d9dfa31aa3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|
