-
oawile authored
git-svn-id: https://ppm.inf.ethz.ch/svn/ppmnumerics/branches/ngtopo/libppmnumerics@510 7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9
oawile authoredgit-svn-id: https://ppm.inf.ethz.ch/svn/ppmnumerics/branches/ngtopo/libppmnumerics@510 7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9
ppm_module_fdsolver_finalize.f 1.75 KiB
!-------------------------------------------------------------------------
! Module : ppm_module_fdsolver_finalize
!-------------------------------------------------------------------------
!
! Purpose : This module includes the source code for field solver
! routines.
!
! Remarks :
!
! References :
!
! Revisions :
!-------------------------------------------------------------------------
!
!-------------------------------------------------------------------------
! Parallel Particle Mesh Library (PPM)
! Institute of Computational Science
! ETH Zentrum, Hirschengraben 84
! CH-8092 Zurich, Switzerland
!-------------------------------------------------------------------------
!-------------------------------------------------------------------------
! Define types
!-------------------------------------------------------------------------
#define __SINGLE_PRECISION 1
#define __DOUBLE_PRECISION 2
MODULE ppm_module_fdsolver_finalize
!----------------------------------------------------------------------
! Define interface to ppm_fdsolver_finalize
!----------------------------------------------------------------------
INTERFACE ppm_fdsolver_finalize
MODULE PROCEDURE ppm_fdsolver_finalize
END INTERFACE
!----------------------------------------------------------------------
! include the source
!----------------------------------------------------------------------
CONTAINS
#include "ppm_fdsolver_finalize.f"
END MODULE ppm_module_fdsolver_finalize