! ┏┓┏┓┏┓ Licensed under the MIT License ! ┃ ┗┓┣ Copyright (c) 2025 Rodrigo Castro ! ┗┛┗┛┻ https://github.com/rodpcastro/colspecf module csf_hypergeometric !* # Hypergeometric ! Hypergeometric functions. ! ! Procedures: ! ! - `hyp2f1`: Gauss hypergeometric function \({}_2F_1(a, b; c; z)\) ! ! ## References ! 1. N. Michel and M. V. Stoitsov. 2008. Fast computation of the Gauss hypergeometric ! function with all its parameters complex with application to the Pöschl-Teller- ! Ginocchio potential wave functions. Computer Physics Communications 178, 7 (April !* 2008), 535–551. <https://doi.org/10.1016/J.CPC.2007.11.007> use csf_kinds, only: wp use cpc_michel, only: hyp_2f1 implicit none private public :: hyp2f1 contains complex(wp) function hyp2f1(a, b, c, z) !! Gauss hypergeometric function \({}_2F_1(a, b; c; z)\). complex(wp), intent(in) :: a, b, c, z hyp2f1 = hyp_2f1(a, b, c, z) end function hyp2f1 end module csf_hypergeometric