[table of contents] [master index] [comments] [modules] [programs] [variables] [types] [procedures]
PURPOSE
Richardson extrapolation - extrapolate to ds = 0
SOURCE
module extrapolate_mod use const_mod implicit none private public :: extrapolate_real public :: extrapolate_complex
SUBROUTINE
extrapolate_real(order,xarray,yarray,extrap_yvalue)
PURPOSE
Calculate the extrapolated value of a real array
ARGUMENTS
integer order - order of extrapolation real xarray - the array of x real yarray - the array of y that depends on x real extrap_value - the y value extrapolated to x = 0 case
SOURCE
subroutine extrapolate_real(order,xarray,yarray,extrap_yvalue) integer,intent(IN) :: order real(long),intent(IN) :: xarray(order+1) real(long),intent(IN) :: yarray(order+1) real(long),intent(out) :: extrap_yvalue
SUBROUTINE
extrapolate_complex(order,xarray,yarray,extrap_yvalue)
PURPOSE
Calculate the extrapolated value of a complex array
ARGUMENTS
integer order - order of extrapolation complex xarray - the array of x complex yarray - the array of y that depends on x complex extrap_value - the y value extrapolated to x = 0 case
SOURCE
subroutine extrapolate_complex(order,xarray,yarray,extrap_yvalue) integer,intent(IN) :: order real(long),intent(IN) :: xarray(order+1) complex(long),intent(IN) :: yarray(order+1) complex(long),intent(out) :: extrap_yvalue