szaghi

module module_vector

use, intrinsic :: iso_fortran_env, only : I32=>int32

implicit none
private
public :: size
public :: vector

type vector

szaghi

Test Fortran Satck Memory Bias

A testbased on Gary Scott's issue described here.

This test reproduction is devoted to Paul Rich & Co. for GNU gfortran users

The test code

program test

szaghi

Aims

Compare the performance of select case, if elseif and goto branching flows.

Benchmark program

program bench_select_if_goto
  use iso_fortran_env
  implicit none

szaghi

Discussion on API design of a D(A)G Traverse algorithm

Baseline classes

Plant, the DG

The main DG class built on top of component one.

type, public :: plant 

szaghi

A gist for Alessandro

Source files baseline status

Let us assume you have the following situation (for the sake of brevity let us have only 2 source files):

• file_1.f: it contains procedures sub_1 and sub_2;
• file_2.f: it contains procedure sub_3 that uses sub_2 of file_1.f90.

Refactoring by modules

szaghi

Simple test on Fortran abstraction overhead

This test is a tentative to investigate the abstraction overhead in modern Fortran: it could be not well-posed and not interesting at all, it is just a replay of a question on a Google Group CLF thread

Proposed code for testing

The overhead.f90 test porgram contains

szaghi

A small snippet to load a formatted cvs

I assume that the date string is always 10 characters length.

The number of file records is assumed known at compile time: generalize it as you need.

program cvs_read
  implicit none

szaghi

module adt_foo_class
implicit none
private
type, abstract, public :: adt_foo
  private
  contains
    private
    procedure(sym_operator), pass(lhs), deferred :: foo_multiply_foo
    procedure(assignment),   pass(lhs), deferred :: assign_foo
    generic, public :: operator(*) => foo_multiply_foo

szaghi

module adt_foo_class
implicit none
private
type, abstract, public :: adt_foo
  private
  contains
    private
    procedure(sym_operator), pass(lhs), deferred :: foo_multiply_foo
    procedure(assignment),   pass(lhs), deferred :: assign_foo
    generic, public :: operator(*) => foo_multiply_foo