gjp_lapack.f90

Go to the documentation of this file.

! BEGIN_HEADER
! -----------------------------------------------------------------------------
! Gauss-Jacobi Quadrature Implementation
! Authors: Rohit Goswami <rgoswami[at]ieee.org>
! Source: GaussJacobiQuad Library
! License: MIT
! GitHub Repository: https://github.com/HaoZeke/GaussJacobiQuad
! Date: 2023-08-28
! Commit: c442f77
! -----------------------------------------------------------------------------
! This code is part of the GaussJacobiQuad library, providing an efficient
! implementation for Gauss-Jacobi quadrature nodes and weights computation.
! -----------------------------------------------------------------------------
! To cite this software:
! Rohit Goswami (2023). HaoZeke/GaussJacobiQuad: v0.1.0.
! Zenodo: https://doi.org/10.5281/ZENODO.8285112
! ---------------------------------------------------------------------
! END_HEADER
module gjp_lapack
implicit none
 
integer, parameter :: dp = kind(0.d0)
 
interface
    subroutine dsteqr(COMPZ, N, D, E, Z, LDZ, WORK, INFO)
        import :: dp
        character :: COMPZ
        integer :: N, LDZ, INFO
        real(dp) :: D(*), E(*), Z(LDZ, *), WORK(*)
    end subroutine dsteqr
end interface
 
contains
 
end module gjp_lapack