URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 303 |
Rev 384 |
module solv_cap
|
module solv_cap
|
integer, private, save :: Ng1=0, Ng2=0
|
integer, private, save :: Ng1=0, Ng2=0
|
contains
|
contains
|
subroutine FourirG(G)
|
subroutine FourirG(G)
|
real, intent(in out), dimension(0:,0:) :: G
|
real, intent(in out), dimension(0:,0:) :: G
|
complex, allocatable, dimension(:,:) :: t
|
complex, allocatable, dimension(:,:) :: t
|
allocate( t(0:2*Ng1-1,0:2*Ng2-1) )
|
allocate( t(0:2*Ng1-1,0:2*Ng2-1) )
|
t(0:Ng1,0:Ng2-1) = G(:,0:Ng2-1) ! Fill one quadrant (one extra row)
|
t(0:Ng1,0:Ng2-1) = G(:,0:Ng2-1) ! Fill one quadrant (one extra row)
|
t(0:Ng1,Ng2:2*Ng2-1) = G(:,Ng2:1:-1) ! This quadrant using symmetry
|
t(0:Ng1,Ng2:2*Ng2-1) = G(:,Ng2:1:-1) ! This quadrant using symmetry
|
end subroutine FourirG
|
end subroutine FourirG
|
end module solv_cap
|
end module solv_cap
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.