| ! { dg-options "-O2 -fgraphite-identity" } | |
| module solv_cap | |
| integer, parameter, public :: dp = selected_real_kind(5) | |
| contains | |
| subroutine prod0( G, X ) | |
| real(kind=dp), intent(in out), dimension(:,:) :: X | |
| real(kind=dp), dimension(size(X,1),size(X,2)) :: Y | |
| X = Y | |
| end subroutine prod0 | |
| function Ginteg(xq1,yq1, xq2,yq2, xp,yp) result(G) | |
| end function Ginteg | |
| subroutine fourir(A,ntot,kconjg, E,useold) | |
| end subroutine fourir | |
| end module solv_cap |