mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
14 lines
449 B
Fortran
14 lines
449 B
Fortran
! { 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
|