ivan-pi

FC=gfortran
FCFLAGS=-Wall -O2 -fopenmp

.phony: all clean

all: abcd

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

ivan-pi

! 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

ivan-pi

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]`. 

ivan-pi

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-

ivan-pi

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

ivan-pi

# 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

ivan-pi

// 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>

ivan-pi

!
! PCG Random Number Generation for Fortran
! Ported from the minimal C version by Melissa O'Neill
!
! Copyright 2020 Ivan Pribec <ivan.pribec@gmail.com>
!

!
! Copyright 2014 Melissa O'Neill <oneill@pcg-random.org>
!

ivan-pi

module lapack

  implicit none

  interface
    subroutine sgetrf(m,n,a,lda,ipiv,info)
      integer, intent(in) :: m, n, lda
      real, intent(inout) :: a(lda,*)
      integer, intent(out) :: ipiv(*)
      integer, intent(out) :: info

ivan-pi

<NotepadPlus>
    <UserLang name="Fortran Namelist" ext="nml" udlVersion="2.1">
        <Settings>
            <Global caseIgnored="yes" allowFoldOfComments="no" foldCompact="no" forcePureLC="0" decimalSeparator="0" />
            <Prefix Keywords1="no" Keywords2="no" Keywords3="no" Keywords4="no" Keywords5="no" Keywords6="no" Keywords7="no" Keywords8="no" />
        </Settings>
        <KeywordLists>
            <Keywords name="Comments">00! 01 02 03 04</Keywords>
            <Keywords name="Numbers, prefix1">.</Keywords>
            <Keywords name="Numbers, prefix2"></Keywords>