gjp_types.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_types
implicit none
private
public sp, dp, hp, qp, gjp_sparse_matrix
 
integer, parameter :: dp = kind(0.d0), & ! double precision
                      hp = selected_real_kind(15), & ! high precision
                      qp = selected_real_kind(32), & ! quadruple precision
                      sp = kind(0.) ! single precision
 
type gjp_sparse_matrix
    real(dp), allocatable :: diagonal(:)
    real(dp), allocatable :: off_diagonal(:)
end type gjp_sparse_matrix
 
end module gjp_types