OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr26806.f90] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
module solv_cap
2
  integer,       private, save :: Ng1=0, Ng2=0
3
contains
4
  subroutine FourirG(G)
5
    real, intent(in out), dimension(0:,0:) :: G
6
    complex, allocatable, dimension(:,:)   :: t
7
    allocate( t(0:2*Ng1-1,0:2*Ng2-1) )
8
    t(0:Ng1,0:Ng2-1)    = G(:,0:Ng2-1)      ! Fill one quadrant (one extra row)
9
    t(0:Ng1,Ng2:2*Ng2-1) = G(:,Ng2:1:-1)    ! This quadrant using symmetry
10
  end subroutine FourirG
11
end module solv_cap

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.