From 1642b3b8d139207dc95d1f4fca743d8f4048dde4 Mon Sep 17 00:00:00 2001
From: fperignon <fperignon@7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9>
Date: Fri, 8 Apr 2011 12:43:49 +0000
Subject: [PATCH] Add missing use ppm_module_xx to fix problem of undefined
functions in shared lib
git-svn-id: https://ppm.inf.ethz.ch/svn/ppmnumerics/branches/ngtopo/libppmnumerics@832 7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9
---
src/ppm_bem_basis.f | 2 ++
src/ppm_bem_quadrule.f | 2 ++
src/ppm_bem_quadrule_npoints.f | 2 ++
src/ppm_fdsolver_init.f | 4 ++++
src/ppm_fdsolver_map_2d.f | 4 ++++
src/ppm_fdsolver_map_3d.f | 3 +++
src/ppm_fdsolver_poisson_2d.f | 2 ++
src/ppm_fdsolver_poisson_3d.f | 2 ++
src/ppm_fdsolver_solve_3d.f | 5 +++++
src/ppm_fmm_expansion.f | 3 ++-
src/ppm_fmm_init.f | 2 +-
src/ppm_fmm_potential.f | 3 +++
src/ppm_fmm_pretraverse.f | 5 +++++
src/ppm_fmm_traverse.f | 5 +++++
src/ppm_gmm_cpt.f | 1 +
src/ppm_gmm_init.f | 5 +++++
src/ppm_gmm_kickoff.f | 1 +
src/ppm_gmm_march.f | 1 +
src/ppm_hamjac_ext_3d.f | 1 +
src/ppm_ode_finalize.f | 1 +
20 files changed, 52 insertions(+), 2 deletions(-)
diff --git a/src/ppm_bem_basis.f b/src/ppm_bem_basis.f
index 02fdcc6..9376c8e 100644
--- a/src/ppm_bem_basis.f
+++ b/src/ppm_bem_basis.f
@@ -109,6 +109,8 @@
USE ppm_module_data
USE ppm_module_numerics_data
USE ppm_module_error
+ USE ppm_module_substart
+ USE ppm_module_substop
IMPLICIT NONE
!-------------------------------------------------------------------------
! Type kind
diff --git a/src/ppm_bem_quadrule.f b/src/ppm_bem_quadrule.f
index 1c75483..a1235c2 100644
--- a/src/ppm_bem_quadrule.f
+++ b/src/ppm_bem_quadrule.f
@@ -107,6 +107,8 @@
USE ppm_module_bem_quadrule_npoints
USE ppm_module_numerics_data
USE ppm_module_error
+ USE ppm_module_substart
+ USE ppm_module_substop
IMPLICIT NONE
!-------------------------------------------------------------------------
! Type kind
diff --git a/src/ppm_bem_quadrule_npoints.f b/src/ppm_bem_quadrule_npoints.f
index 7e92adb..f2229b2 100644
--- a/src/ppm_bem_quadrule_npoints.f
+++ b/src/ppm_bem_quadrule_npoints.f
@@ -85,6 +85,8 @@
!-------------------------------------------------------------------------
USE ppm_module_data
USE ppm_module_numerics_data
+ USE ppm_module_substart
+ USE ppm_module_substop
USE ppm_module_error
IMPLICIT NONE
!-------------------------------------------------------------------------
diff --git a/src/ppm_fdsolver_init.f b/src/ppm_fdsolver_init.f
index 98e6ef3..89cefb7 100644
--- a/src/ppm_fdsolver_init.f
+++ b/src/ppm_fdsolver_init.f
@@ -164,6 +164,10 @@
USE ppm_module_typedef
USE ppm_module_data_fieldsolver
USE ppm_module_error
+ USE ppm_module_alloc
+ USE ppm_module_write
+ USE ppm_module_substart
+ USE ppm_module_substop
IMPLICIT NONE
#if __KIND == __SINGLE_PRECISION | __KIND == __COMPLEX
INTEGER, PARAMETER :: MK = ppm_kind_single
diff --git a/src/ppm_fdsolver_map_2d.f b/src/ppm_fdsolver_map_2d.f
index c910bcd..8f9814b 100644
--- a/src/ppm_fdsolver_map_2d.f
+++ b/src/ppm_fdsolver_map_2d.f
@@ -107,6 +107,10 @@
USE ppm_module_map
USE ppm_module_check_id
USE ppm_module_error
+ USE ppm_module_write
+ USE ppm_module_substart
+ USE ppm_module_substop
+
IMPLICIT NONE
#if __KIND == __SINGLE_PRECISION | __KIND == __COMPLEX
INTEGER, PARAMETER :: MK = ppm_kind_single
diff --git a/src/ppm_fdsolver_map_3d.f b/src/ppm_fdsolver_map_3d.f
index c27dcd9..aabc2dc 100644
--- a/src/ppm_fdsolver_map_3d.f
+++ b/src/ppm_fdsolver_map_3d.f
@@ -118,6 +118,9 @@
USE ppm_module_map
USE ppm_module_check_id
USE ppm_module_error
+ USE ppm_module_write
+ USE ppm_module_substart
+ USE ppm_module_substop
IMPLICIT NONE
diff --git a/src/ppm_fdsolver_poisson_2d.f b/src/ppm_fdsolver_poisson_2d.f
index 49ea3a8..6826ce9 100644
--- a/src/ppm_fdsolver_poisson_2d.f
+++ b/src/ppm_fdsolver_poisson_2d.f
@@ -96,6 +96,8 @@
!-------------------------------------------------------------------------
USE ppm_module_data
USE ppm_module_error
+ USE ppm_module_substart
+ USE ppm_module_substop
IMPLICIT NONE
#if __KIND == __COMPLEX
diff --git a/src/ppm_fdsolver_poisson_3d.f b/src/ppm_fdsolver_poisson_3d.f
index 740c2d2..1db78d9 100644
--- a/src/ppm_fdsolver_poisson_3d.f
+++ b/src/ppm_fdsolver_poisson_3d.f
@@ -93,6 +93,8 @@
!-------------------------------------------------------------------------
USE ppm_module_data
USE ppm_module_error
+ USE ppm_module_substart
+ USE ppm_module_substop
IMPLICIT NONE
#if __KIND == __COMPLEX
diff --git a/src/ppm_fdsolver_solve_3d.f b/src/ppm_fdsolver_solve_3d.f
index 868de07..5651eef 100644
--- a/src/ppm_fdsolver_solve_3d.f
+++ b/src/ppm_fdsolver_solve_3d.f
@@ -262,6 +262,11 @@
USE ppm_module_fdsolver_fft_fd
USE ppm_module_fdsolver_fft_bd
USE ppm_module_error
+ USE ppm_module_alloc
+ USE ppm_module_write
+ USE ppm_module_substart
+ USE ppm_module_substop
+
IMPLICIT NONE
#if __KIND == __SINGLE_PRECISION
INTEGER, PARAMETER :: MK = ppm_kind_single
diff --git a/src/ppm_fmm_expansion.f b/src/ppm_fmm_expansion.f
index 17e0d86..eb6f4a4 100644
--- a/src/ppm_fmm_expansion.f
+++ b/src/ppm_fmm_expansion.f
@@ -143,7 +143,8 @@
USE ppm_module_substop
USE ppm_module_error
USE ppm_module_alloc
-
+ USE ppm_module_util_cart2sph
+ USE ppm_module_write
IMPLICIT NONE
!-------------------------------------------------------------------------
! Includes
diff --git a/src/ppm_fmm_init.f b/src/ppm_fmm_init.f
index d2a4b63..4a7d5c6 100644
--- a/src/ppm_fmm_init.f
+++ b/src/ppm_fmm_init.f
@@ -61,7 +61,7 @@
USE ppm_module_substart
USE ppm_module_substop
USE ppm_module_write
-
+ USE ppm_module_topo_check
IMPLICIT NONE
!-------------------------------------------------------------------------
! Includes
diff --git a/src/ppm_fmm_potential.f b/src/ppm_fmm_potential.f
index 8d3d146..bad77f0 100644
--- a/src/ppm_fmm_potential.f
+++ b/src/ppm_fmm_potential.f
@@ -179,6 +179,9 @@
USE ppm_module_substop
USE ppm_module_error
USE ppm_module_alloc
+ USE ppm_module_map_part_util
+ USE ppm_module_util_cart2sph
+ USE ppm_module_write
IMPLICIT NONE
!-------------------------------------------------------------------------
! Includes
diff --git a/src/ppm_fmm_pretraverse.f b/src/ppm_fmm_pretraverse.f
index 2c84396..50bf2fd 100644
--- a/src/ppm_fmm_pretraverse.f
+++ b/src/ppm_fmm_pretraverse.f
@@ -133,6 +133,11 @@
USE ppm_module_data_fmm
USE ppm_module_error
USE ppm_module_typedef
+ USE ppm_module_alloc
+ USE ppm_module_write
+ USE ppm_module_substart
+ USE ppm_module_substop
+
IMPLICIT NONE
!-------------------------------------------------------------------------
! Includes
diff --git a/src/ppm_fmm_traverse.f b/src/ppm_fmm_traverse.f
index 6e8edd4..c36dc57 100644
--- a/src/ppm_fmm_traverse.f
+++ b/src/ppm_fmm_traverse.f
@@ -120,6 +120,11 @@
USE ppm_module_data_fmm
USE ppm_module_error
USE ppm_module_typedef
+ USE ppm_module_util_cart2sph
+ USE ppm_module_write
+ USE ppm_module_substart
+ USE ppm_module_substop
+
IMPLICIT NONE
!-------------------------------------------------------------------------
! Includes
diff --git a/src/ppm_gmm_cpt.f b/src/ppm_gmm_cpt.f
index fec79df..6955fdd 100644
--- a/src/ppm_gmm_cpt.f
+++ b/src/ppm_gmm_cpt.f
@@ -63,6 +63,7 @@
USE ppm_module_error
USE ppm_module_alloc
USE ppm_module_typedef
+ USE ppm_module_util_qsort
IMPLICIT NONE
#if __KIND == __SINGLE_PRECISION | __KIND == __SINGLE_PRECISION_COMPLEX
INTEGER, PARAMETER :: MK = ppm_kind_single
diff --git a/src/ppm_gmm_init.f b/src/ppm_gmm_init.f
index f983c76..f5a29c5 100644
--- a/src/ppm_gmm_init.f
+++ b/src/ppm_gmm_init.f
@@ -41,6 +41,11 @@
USE ppm_module_error
USE ppm_module_typedef
+ USE ppm_module_check_id
+ USE ppm_module_alloc
+ USE ppm_module_substart
+ USE ppm_module_substop
+
IMPLICIT NONE
!-------------------------------------------------------------------------
! Arguments
diff --git a/src/ppm_gmm_kickoff.f b/src/ppm_gmm_kickoff.f
index d5a7a18..a64b75d 100644
--- a/src/ppm_gmm_kickoff.f
+++ b/src/ppm_gmm_kickoff.f
@@ -87,6 +87,7 @@
USE ppm_module_error
USE ppm_module_alloc
USE ppm_module_typedef
+ USE ppm_module_write
IMPLICIT NONE
#if __KIND == __SINGLE_PRECISION | __KIND == __SINGLE_PRECISION_COMPLEX
INTEGER, PARAMETER :: MK = ppm_kind_single
diff --git a/src/ppm_gmm_march.f b/src/ppm_gmm_march.f
index 40bad2d..661c840 100644
--- a/src/ppm_gmm_march.f
+++ b/src/ppm_gmm_march.f
@@ -91,6 +91,7 @@
USE ppm_module_substop
USE ppm_module_error
USE ppm_module_write
+ USE ppm_module_alloc
IMPLICIT NONE
#if __KIND == __SINGLE_PRECISION
INTEGER, PARAMETER :: MK = ppm_kind_single
diff --git a/src/ppm_hamjac_ext_3d.f b/src/ppm_hamjac_ext_3d.f
index fcd4f7c..9eab1d9 100644
--- a/src/ppm_hamjac_ext_3d.f
+++ b/src/ppm_hamjac_ext_3d.f
@@ -63,6 +63,7 @@
USE ppm_module_error
USE ppm_module_alloc
USE ppm_module_typedef
+ USE ppm_module_write
IMPLICIT NONE
#ifdef __MPI
diff --git a/src/ppm_ode_finalize.f b/src/ppm_ode_finalize.f
index e13d877..cddc043 100644
--- a/src/ppm_ode_finalize.f
+++ b/src/ppm_ode_finalize.f
@@ -82,6 +82,7 @@
USE ppm_module_substart
USE ppm_module_substop
USE ppm_module_error
+ USE ppm_module_alloc
IMPLICIT NONE
!-----------------------------------------------------------------------
--
GitLab