Numerical integration/Gauss-Legendre Quadrature: Difference between revisions

m
(Fortran added)
Line 310:
implicit none
integer, parameter :: p = 16 ! quadruple precision
integer :: n = 10, k
real(kind=p), allocatable :: r(:,:)
real(kind=p) :: z, a, b, exact, z1, z2
Anonymous user