Skip to content

Instantly share code, notes, and snippets.

@ivan-pi

ivan-pi/high_order_poisson_solver.f90

Created February 11, 2019 16:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ivan-pi/b52138897ad65a427375bedd9331f420 to your computer and use it in GitHub Desktop.
Save ivan-pi/b52138897ad65a427375bedd9331f420 to your computer and use it in GitHub Desktop.
Download ZIP
Mehrstellenverfahren for the Poisson equation
Raw
high_order_poisson_solver.f90
! See link below for details:
! https://scicomp.stackexchange.com/questions/6854/mehrstellenverfahren-for-poisson
!
program poisson_higher_order
implicit none
integer, parameter :: wp = kind(1.0d0)
real(wp), parameter :: pi = 4._wp*atan(0._wp)
contains
pure real(wp) function f(x)
real(wp), intent(in) :: x
f = sin(2._wp*pi*x)
end function
end program
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment