Skip to content

Instantly share code, notes, and snippets.

View maxhutch's full-sized avatar

Max Hutchinson maxhutch

View GitHub Profile

Keybase proof

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:

@maxhutch
maxhutch / span_sum.f
Last active July 12, 2016 20:02
Spanwise sum
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)
@maxhutch
maxhutch / sfft.F90
Last active October 2, 2015 22:39
Interface for PWDFT FFTs
!> 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)
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@maxhutch
maxhutch / Makefile
Created February 3, 2014 14:37
Y = D X benchmark, where D is diagonal
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