(List
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "! Generated automatically.  DO NOT EDIT!"]]})
  (Com {[LIT_CHARS echo]})
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "  include 'fftw3.f03'"]]})
  (Com {[LIT_CHARS echo]})
  (Pipeline
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -pe]} {[SQ <LIT_CHARS "s/#define +([A-Z0-9_]+) +\\(([+-]?[0-9]+)U?\\)/\\n  integer\\(C_INTPTR_T\\), parameter :: \\1 = \\2\\n/g">]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS fftw3-mpi.h]} <REDIR_LESS "<"> 0),
      >
    )
    (Com {[LIT_CHARS grep]} {[SQ <LIT_CHARS "integer(C_INTPTR_T)">]})
  )
  (Pipeline
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -pe]} {[SQ <LIT_CHARS "if (/#define +([A-Z0-9_]+) +\\(([0-9]+)U? *<< *([0-9]+)\\)/) { print \"\\n  integer\\(C_INT\\), parameter :: $1 = \",$2 << $3,\"\\n\"; }">]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS fftw3-mpi.h]} <REDIR_LESS "<"> 0),
      >
    )
    (Com {[LIT_CHARS grep]} {[SQ <LIT_CHARS "integer(C_INT)">]})
  )
  (For p [{[DQ ]}, {[DQ [LIT_CHARS f]]}, {[DQ [LIT_CHARS l]]}])
    (List
      (Com {[LIT_CHARS echo]})
      (Com {[LIT_CHARS cat]}
        <
        (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "  type, bind(C) :: fftw"][VarSub p][LIT_CHARS "_mpi_ddim\n"][LIT_CHARS "     integer(C_INTPTR_T) n, ib, ob\n"][LIT_CHARS "  end type fftw"][VarSub p][LIT_CHARS "_mpi_ddim\n"]]} <REDIR_DLESS "<<"> 0),
        >
      )
      (Com {[LIT_CHARS echo]})
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "  interface"]]})
      (Pipeline
        (Com {[LIT_CHARS grep]} {[LIT_CHARS -v]} {[SQ <LIT_CHARS mpi.h>]} {[LIT_CHARS fftw3-mpi.h]})
        (Com {[LIT_CHARS gcc]} {[LIT_CHARS -E]} {[LIT_CHARS -]})
        (Com {[LIT_CHARS grep]} {[DQ [LIT_CHARS fftw][VarSub p][LIT_CHARS _mpi_init]]})
        (Com {[LIT_CHARS tr]} {[SQ <LIT_CHARS ";">]} {[SQ <LIT_CHARS "\\n">]})
        (Com {[LIT_CHARS perl]} {[LIT_CHARS ../api/genf03.pl]})
      )
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "  end interface"]]})
    )
  )
)