Ivan Pribec ivan-pi

## boyd_bvp_example.f90
program boyd_bvp

    dimension xi(20),aphi(20),g(20),h(20,20),ugraph(101)

    common/pbasis/phi(20),phix(20),phixx(20)
    common/thiele/th

    pi = 4.*atan(1.0)

    ! specify parameters

## cxxfi.hpp
#pragma once

#include <complex>
#include <vector>
#include <array>

#include <type_traits>

#include <span> // C++ 20
#include <iostream>

## Makefile
FC=gfortran
FCFLAGS=-Wall -O2 -fopenmp

.phony: all clean

all: abcd

abcd: abcd.F90
	$(FC) $(FCFLAGS) -o $@ $<

## csr_example.cpp
// compile with:
//   dpcpp -qmkl csr_example.cpp
//
#include <algorithm>

#include <oneapi/mkl.hpp>
#include <CL/sycl.hpp>

int main(int argc, char const *argv[])
{

## test_mmap.f90
! test_mmap.f90
!
! compile with:
!    gfortran -Wall -O2 -o test_mmap test_mmap.f90
!
! inspired by the work:
!    Rojc, B., & Depolli, M. (2021). A Resizable C++ Container using Virtual Memory. In ICSOFT (pp. 481-488).
!    https://www.scitepress.org/Papers/2021/105571/105571.pdf
!
! so far I've only tested this on MacOS

## linspace.f90
module linspace_mod
    use iso_fortran_env, only: dp => real64
    implicit none

contains

    !>
    !   Return evenly spaced numbers over a specified interval.
    !
    !   Returns `num` evenly spaced samples, calculated over the interval `[start, stop]`.

## fortran_links.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              1 star
            
          
                ivan-pi
                / fortran_links.md
            
            
              Created
              January 20, 2022 13:52
            
              
                Resources on Fortran
              
          
      View fortran_links.md
  
      
    General resources

Fortran Wiki - This is a user maintaned website containing many links to resources on Fortran (generic programming, string handling, interoperability with other languages, object oriented programming, GUI development, compilers, build tools, unit testing, etc.)
Fortran Wikipedia Page - The Fortran page on Wikipedia is quite resourceful on the history and semantics of the language. A list of language features for Fortran 95 has it's own page.
User notes on Fortran programming - An old practical guide to the Fortran language (FORTRAN 77 and Fortran 90).
Fortran Best Practices - A collection of modern canonical ways of doing thins in Fortran.
[Intel Fortran Compiler Developer Guide and Reference](https://software.intel.com/en-


## interop.f90
module interop
use, intrinsic :: iso_c_binding, only: c_int
implicit none
contains
subroutine fillint(arr) bind(c)
   integer(c_int), intent(inout) :: arr(:)
   integer :: i
   arr = [(i**2,i=1,size(arr))]
end subroutine
end module

## ghiau.txt
# Ghia, U. K. N. G., Ghia, K. N., & Shin, C. T. (1982).
# High-Re solutions for incompressible flow using the Navier-Stokes equations and a multigrid method.
# Journal of computational physics, 48(3), 387-411.
#
# TABLE I
# Results for $u$-velocity along Vertical Line through Geometric Center of Cavity
#--------------------------------------------------------------------
#                                   Re
#       -------------------------------------------------------------
#  y      100      400      1000     3200     5000     7500    10000

## bisect.cxx
// compile with g++ -o bisect.cxx poly.o -I<path/to/boost>

#include <cmath>
#include <iostream>

#include <boost/math/tools/roots.hpp>

// Functor providing termination condition
// Determines convergence in x based on if the relative or absolute tolerance are satisfied
template<class T>
	program boyd_bvp

	dimension xi(20),aphi(20),g(20),h(20,20),ugraph(101)

	common/pbasis/phi(20),phix(20),phixx(20)
	common/thiele/th

	pi = 4.*atan(1.0)

	! specify parameters
	#pragma once

	#include <complex>
	#include <vector>
	#include <array>

	#include <type_traits>

	#include <span> // C++ 20
	#include <iostream>
	FC=gfortran
	FCFLAGS=-Wall -O2 -fopenmp

	.phony: all clean

	all: abcd

	abcd: abcd.F90
	$(FC) $(FCFLAGS) -o $@ $<
	// compile with:
	// dpcpp -qmkl csr_example.cpp
	//
	#include <algorithm>

	#include <oneapi/mkl.hpp>
	#include <CL/sycl.hpp>

	int main(int argc, char const *argv[])
	{
	! test_mmap.f90
	!
	! compile with:
	! gfortran -Wall -O2 -o test_mmap test_mmap.f90
	!
	! inspired by the work:
	! Rojc, B., & Depolli, M. (2021). A Resizable C++ Container using Virtual Memory. In ICSOFT (pp. 481-488).
	! https://www.scitepress.org/Papers/2021/105571/105571.pdf
	!
	! so far I've only tested this on MacOS
	module linspace_mod
	use iso_fortran_env, only: dp => real64
	implicit none

	contains

	!>
	! Return evenly spaced numbers over a specified interval.
	!
	! Returns `num` evenly spaced samples, calculated over the interval `[start, stop]`.
	module interop
	use, intrinsic :: iso_c_binding, only: c_int
	implicit none
	contains
	subroutine fillint(arr) bind(c)
	integer(c_int), intent(inout) :: arr(:)
	integer :: i
	arr = [(i**2,i=1,size(arr))]
	end subroutine
	end module
	# Ghia, U. K. N. G., Ghia, K. N., & Shin, C. T. (1982).
	# High-Re solutions for incompressible flow using the Navier-Stokes equations and a multigrid method.
	# Journal of computational physics, 48(3), 387-411.
	#
	# TABLE I
	# Results for $u$-velocity along Vertical Line through Geometric Center of Cavity
	#--------------------------------------------------------------------
	# Re
	# -------------------------------------------------------------
	# y 100 400 1000 3200 5000 7500 10000
	// compile with g++ -o bisect.cxx poly.o -I<path/to/boost>

	#include <cmath>
	#include <iostream>

	#include <boost/math/tools/roots.hpp>

	// Functor providing termination condition
	// Determines convergence in x based on if the relative or absolute tolerance are satisfied
	template<class T>