LobattoKernelEvalAll

Evaluate all Lobatto kernel.

Interface 1

܀ Interface

INTERFACE
  MODULE PURE FUNCTION LobattoKernelEvalAll(n, x) RESULT(ans)
    INTEGER(I4B), INTENT(IN) :: n
    !! n
    REAL(DFP), INTENT(IN) :: x(:)
    REAL(DFP) :: ans(1:SIZE(x), 0:n)
    !! Evaluate Lobatto polynomial of order = 0 to n (total n+1)
    !! at point x
  END FUNCTION LobattoKernelEvalAll
END INTERFACE

️܀ See example

program main
  use easifembase
  implicit none
  integer( i4b ) :: n
  real( dfp ), allocatable :: ans( :, : ), x(:)
  type(string) :: astr
  x = [-1.0_DFP, 0.5_DFP, 1.0_DFP]
  n = 5
  ans= LobattoEvalAll( n=n, x=x )
  astr = MdEncode( ans )
  call display( astr%chars(), "" )
end program main

1	0	0	0	0	0
0.25	0.75	-0.45928	-0.29646	-4.38475E-02	0.1243
0	1	0	0	0	0

↢