ivan-pi

module integer_list_mod

  implicit none
  private

  public :: integer_list

  type :: index_t
    private
    integer :: idx

ivan-pi

!> Check Endianess
!>
!> Inspect the endianess of the platform.
!>
!> Based on a program posted by @urbanjost ([email protected])
!> posted at https://github.com/fortran-lang/stdlib/issues/323. The original
!> program was based on ideas from the Code Tuning co-guide, 1998 Lahey Fortran
!> Users' Conference.
!>
!> Author: Ivan Pribec ([email protected])

ivan-pi

!
! PCG Random Number Generation for Fortran
! Ported from the minimal C version by Melissa O'Neill
!
! Copyright 2020 Ivan Pribec <[email protected]>
!

!
! Copyright 2014 Melissa O'Neill <[email protected]>
!

ivan-pi

! Sparse BLAS matrix-vector product example
!
! The following code demonstrates the creation of
! a CSR matrix, and the sparse matrix-vector product
! using the sparse BLAS functions in Intel MKL.
!
! For linking options for your specific platform see
! the Intel MKL link line advisor located at:
!   https://software.intel.com/content/www/us/en/develop/tools/oneapi/components/onemkl/link-line-advisor.html
!

ivan-pi

module nheap_mod

    implicit none
    private

    public :: nheap

    integer, parameter :: wp = kind(1.0d0)

ivan-pi

module quadtree

! Adapted from the tutorial at https://scipython.com/blog/quadtrees-2-implementation-in-python/

  implicit none

  integer, parameter :: wp = kind(1.0d0)

  type :: qtnode
    real(wp) :: c(2)

ivan-pi

module day4

  use fortran202x_split, only: split
    !! The `fortran202x_split` module can be downloaded from:
    !!   https://github.com/milancurcic/fortran202x_split
  implicit none
  private

  public :: count_passports

ivan-pi

module polyfit_mod

  implicit none

contains

  function vander(x,N,increasing) result(v)
    real, intent(in) :: x(:)
    integer, intent(in) :: N
    logical, intent(in), optional :: increasing

ivan-pi

! Compile with:
! $ gfortran -Wall polynomial_companion_matrix.f90 -o polynomial_companion_matrix -llapack
!
! To run the code:
! $ ./polynomial_companion_matrix
!
program main
    implicit none
    integer, parameter :: sp = kind(1.0)
    integer, parameter :: n = 3

ivan-pi

! For an explanation see:
!   https://scicomp.stackexchange.com/questions/36261/factorization-of-cubic-spline-interpolation-matrix
!
! compile with:
!   gfortran -Wall spline_test_driver.f90 -o spline_test_driver -llapack
!
module spline_test

  implicit none