fypp 2.1.1

主要功能

• 定义、评估和删除变量：

  #:if DEBUG > 0
    print *, "Some debug information"
  #:endif
  
  #:set LOGLEVEL = 2
  print *, "LOGLEVEL: ${LOGLEVEL}$"
  
  #:del LOGLEVEL
  

• 宏定义和宏调用：

  #:def assertTrue(cond)
  #:if DEBUG > 0
  if (.not. ${cond}$) then
    print *, "Assert failed in file ${_FILE_}$, line ${_LINE_}$"
    error stop
  end if
  #:endif
  #:enddef assertTrue
  
  ! Invoked via direct call (argument needs no quotation)
  @:assertTrue(size(myArray) > 0)
  
  ! Invoked as Python expression (argument needs quotation)
  $:assertTrue('size(myArray) > 0')
  

• 条件输出：

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

• 迭代输出（例如，用于生成Fortran模板）：

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

• 内联指令：

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

• 插入任意python表达式：

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

• 预处理期间包含文件：

  #:include "macrodefs.fypp"
  

• 在预处理器指令中使用Fortran样式的连续行：

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

• 将多行字符串参数传递给可调用项：

  #! 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
  

• 预处理器注释：

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

• 抑制选定区域中的预处理器输出：

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

• 停止预处理器的显式请求：

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

• 轻松检查宏参数的健全性：

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

• 输出中的行号指令：

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

  转换为

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

  当定义变量MPI并且指示FYPP生成行时 标记。

• 生成的超过行长度限制的行的自动折叠

安装

fypp需要一个工作的python解释器。它与Python2（版本 2.6及以上版本）和Python3（所有版本）。

pip install fypp

git clone https://github.com/aradi/fypp.git

FYPP_SOURCE_FOLDER/bin/fypp

fypp

运行

fypp命令行工具读取文件，对其进行预处理并将其写入 另一个文件，因此通常会像这样调用它：

fypp source.fpp source.f90

它将处理source.fpp并将结果写入source.f90。如果 未指定输入和输出文件，信息从stdin和 写给标准输出。

fypp的行为可以受到各种命令行选项的影响。一个 所有命令行选项的摘要可通过以下方式获得：

fypp -h