I hereby claim:
- I am maxhutch on github.
- I am maxhutch (https://keybase.io/maxhutch) on keybase.
- I have a public key ASD0YJXwtxYYTz8MKeQ5kuk7bL7BDSoOjceI3fksVJKzIAo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
subroutine span_sum(lx1, ly1, lz1, lelv, comm_world, np, xm1, ym1, zm1, wxm1, wym1, f, f_sum) | |
implicit none | |
integer lx1, ly1, lz1, lelv | |
integer comm_world | |
integer np | |
real xm1(lx1, ly1, lz1, lelv), ym1(lx1, ly1, lz1, lelv), zm1(lx1, ly1, lz1, lelv) | |
real f(lx1, ly1, lz1, lelv), f_sum(lx1, ly1, lz1, lelv) | |
real wxm1(lx1), wym1(ly1) | |
!> Proposed interface for sherical parallel 3D FFTs common to PWDFT | |
!> Questions: | |
!! * Do we want to even have a single-band version? (Max: no) | |
!! * Do we use (*) or (:,:) to pass multi-dimensional arguments? (Max: *) | |
!! * Do we support padding (i.e. return lda)? (Max: no) | |
!! * Do we support user-defined aliasing ratios? (Martijn: yes) | |
!! * Do we represent this as user-defined r,g grids, or {r,g} + ecut | |
!! * Do we constrain r-space to be locally decomposed? (Max: yes) |
FC = ifort -I/opt/openmpi/include -I/opt/openmpi/lib -L/opt/openmpi/lib -lmpi_f90 -lmpi_f77 -lmpi -ldl -lm -Wl,--export-dynamic -lrt -lnsl -lutil | |
#FC = gfortran -I/opt/openmpi/include -I/opt/openmpi/lib -L/opt/openmpi/lib -lmpi_f90 -lmpi_f77 -lmpi -ldl -lm -Wl,--export-dynamic -lrt -lnsl -lutil | |
FFLAGS = -O2 | |
all: | |
$(FC) $(FFLAGS) -o diag_test.ex diag_test.F90 -lmkl_intel_lp64 -lmkl_sequential -lmkl_core |