fftw.f90
Go to the documentation of this file.
1!#############################################################################
2!# #
3!# fosite - 3D hydrodynamical simulation program #
4!# module: fftw.f90 #
5!# #
6!# Copyright (C) 2011 Manuel Jung <mjung@astrophysik.uni-kiel.de> #
7!# #
8!# This program is free software; you can redistribute it and/or modify #
9!# it under the terms of the GNU General Public License as published by #
10!# the Free Software Foundation; either version 2 of the License, or (at #
11!# your option) any later version. #
12!# #
13!# This program is distributed in the hope that it will be useful, but #
14!# WITHOUT ANY WARRANTY; without even the implied warranty of #
15!# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE, GOOD TITLE or #
16!# NON INFRINGEMENT. See the GNU General Public License for more #
17!# details. #
18!# #
19!# You should have received a copy of the GNU General Public License #
20!# along with this program; if not, write to the Free Software #
21!# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #
22!# #
23!#############################################################################
24
25!----------------------------------------------------------------------------!
27!----------------------------------------------------------------------------!
28
29MODULE fftw
30 use, INTRINSIC :: iso_c_binding
31#if defined(HAVE_FFTW) && !defined(PARALLEL)
32#ifdef NECSXAURORA
33 include 'aslfftw3.f03'
34#else
35 include 'fftw3.f03'
36#endif
37#elif defined(HAVE_FFTW) && defined(PARALLEL)
38#ifdef NECSXAURORA
39 include 'aslfftw3-mpi.f03'
40#else
41 include 'fftw3-mpi.f03'
42#endif
43#endif
44END MODULE fftw
fftw module
Definition: fftw.f90:29