Skip to content

Instantly share code, notes, and snippets.

@nshaffer
nshaffer / fypp_sum.f90
Created January 13, 2020 05:35
Demonstrate the use of `fypp` to generate a kind- and type-generic function
module fypp_sum
#! Define variables for kind parameters. Presumably, we would have
#! these defined in a general-purpose definitions file that peeks at
#! the values of `real_kinds` and `integer_kinds` in the
#! `iso_fortran_env` module.
#:set REALKINDS = ["qp", "dp", "sp"]
#:set INTKINDS = ["int64", "int32", "int16", "int8"]
#:set KINDS = REALKINDS + INTKINDS
#:set TYPES = ["real({})".format(k) for k in REALKINDS] &