Fortran Wiki
Fypp

Fypp is a Python powered preprocessor. It can be used for any programming languages but its primary aim is to offer a Fortran preprocessor, which helps to extend Fortran with condititional compiling and template metaprogramming capabilities. Instead of introducing its own expression syntax, it uses Python expressions in its preprocessor directives, offering the consistency and versatility of Python when formulating metaprogramming tasks. It puts strong emphasis on robustness and on neat integration into developing toolchains.

Detailed documentation: http://fypp.readthedocs.org

Project homepage: https://github.com/aradi/fypp

Fypp is released under the BSD 2-clause license.

Main features

Definition, evaluation and removal of preprocessor variables:

#:if DEBUG > 0
  print *, "Some debug information"
#:endif

#:set LOGLEVEL = 2

#:del LOGLEVEL

Macro defintions and macro calls:

#:def assertTrue(cond)
if (.not. ${cond}$) then
  print *, "Assert failed in file ${_FILE_}$, line ${_LINE_}$"
  error stop
end if
#:enddef assertTrue

! Invoked via direct call (needs no quotation)
@:assertTrue(size(myArray) > 0)

! Invoked as Python expression (needs quotation)
$:assertTrue('size(myArray) > 0')

Conditional output:

program test
#:if defined('WITH_MPI')
  use mpi
#:elif defined('WITH_OPENMP')
  use openmp
#:else
  use serial
#:endif

Iterated output (e.g. for generating Fortran templates):

interface myfunc
#:for dtype in [ 'real', 'dreal', 'complex', 'dcomplex' ]
  module procedure myfunc_${dtype}$
#:endfor
end interface myfunc

Inline directives:

logical, parameter :: hasMpi = #{if defined('MPI')}#.true.#{else}#.false.#{endif}#

Insertion of arbitrary Python expressions:

character(*), parameter :: comp_date = "${time.strftime('%Y-%m-%d')}$"

Inclusion of files during preprocessing:

#:include "macrodefs.fypp"

Using Fortran-style continutation lines in preprocessor directives:

#:if var1 > var2 &
    & or var2 > var4
print *, "Doing something here"
#:endif

Passing (unquoted) multiline string arguments to callables:

#! Callable needs only string argument
#:def debug_code(code)
  #:if DEBUG > 0
    $:code
  #:endif
#:enddef debug_code

#! Pass code block as first positional argument
#:call debug_code
  if (size(array) > 100) then
    print *, "DEBUG: spuriously large array"
  end if
#:endcall debug_code

#! Callable needs also non-string argument types
#:def repeat_code(code, repeat)
  #:for ind in range(repeat)
    $:code
  #:endfor
#:enddef repeat_code

#! Pass code block as positional argument and 3 as keyword argument "repeat"
#:call repeat_code(repeat=3)
this will be repeated 3 times
#:endcall repeat_code

Preprocessor comments:

#! This will not show up in the output
#! Also the newline characters at the end of the lines will be suppressed

Suppressing the preprocessor output in selected regions:

#! Definitions are read, but no output (e.g. newlines) will be produced
#:mute
#:include "macrodefs.fypp"
#:endmute

Explicit request for stopping the preprocessor:

#:if DEBUGLEVEL < 0
  #:stop 'Negative debug level not allowed!'
#:endif

Easy check for macro parameter sanity:

#:def mymacro(RANK)
  #! Macro only works for RANK 1 and above
  #:assert RANK > 0
  :
#:enddef mymacro

Line numbering directives in output:

program test
#:if defined('MPI')
use mpi
#:endif
:

transformed to

# 1 "test.fypp"
program test
# 3 "test.fypp"
use mpi
# 5 "test.fypp"
:

when variable MPI is defined and Fypp was instructed to generate line markers.

Automatic folding of generated lines exceeding line length limit.

See also