From 8eeb51da26785d94676d74e4c727ab78ab427b80 Mon Sep 17 00:00:00 2001
From: oawile <oawile@7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9>
Date: Thu, 9 Sep 2010 01:00:39 +0000
Subject: [PATCH] - Fixed code to compile with update ppmcore
git-svn-id: https://ppm.inf.ethz.ch/svn/ppmnumerics/branches/ngtopo/libppmnumerics@703 7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9
---
src/ppm_comp_pp_cell.f | 4 ++--
src/ppm_fdsolver_map_2d.f | 3 +--
src/ppm_fdsolver_map_3d.f | 3 +--
src/ppm_ode_step.f | 2 +-
4 files changed, 5 insertions(+), 7 deletions(-)
diff --git a/src/ppm_comp_pp_cell.f b/src/ppm_comp_pp_cell.f
index ea76896..69d6a50 100644
--- a/src/ppm_comp_pp_cell.f
+++ b/src/ppm_comp_pp_cell.f
@@ -77,12 +77,12 @@
! Modules
!-------------------------------------------------------------------------
USE ppm_module_data
- USE ppm_module_check_topoid
+ USE ppm_module_check_id
USE ppm_module_data_neighlist
USE ppm_module_substart
USE ppm_module_substop
USE ppm_module_error
- USE ppm_module_neighlist_MkNeighIdx
+ USE ppm_module_neighlist
IMPLICIT NONE
#if __KIND == __SINGLE_PRECISION | __KIND == __SINGLE_PRECISION_COMPLEX
INTEGER, PARAMETER :: MK = ppm_kind_single
diff --git a/src/ppm_fdsolver_map_2d.f b/src/ppm_fdsolver_map_2d.f
index 7634052..b78fe85 100644
--- a/src/ppm_fdsolver_map_2d.f
+++ b/src/ppm_fdsolver_map_2d.f
@@ -84,8 +84,7 @@
!-------------------------------------------------------------------------
USE ppm_module_data
USE ppm_module_map
- USE ppm_module_check_topoid
- USE ppm_module_check_meshid
+ USE ppm_module_check_id
USE ppm_module_error
IMPLICIT NONE
#if __KIND == __SINGLE_PRECISION | __KIND == __COMPLEX
diff --git a/src/ppm_fdsolver_map_3d.f b/src/ppm_fdsolver_map_3d.f
index 593d7fd..d2f7995 100644
--- a/src/ppm_fdsolver_map_3d.f
+++ b/src/ppm_fdsolver_map_3d.f
@@ -95,8 +95,7 @@
!-------------------------------------------------------------------------
USE ppm_module_data
USE ppm_module_map
- USE ppm_module_check_topoid
- USE ppm_module_check_meshid
+ USE ppm_module_check_id
USE ppm_module_error
diff --git a/src/ppm_ode_step.f b/src/ppm_ode_step.f
index ae93ebb..4d360da 100644
--- a/src/ppm_ode_step.f
+++ b/src/ppm_ode_step.f
@@ -133,7 +133,7 @@
!-----------------------------------------------------------------------
USE ppm_module_data_ode
USE ppm_module_data
- USE ppm_module_check_topoid
+ USE ppm_module_check_id
USE ppm_module_substart
USE ppm_module_substop
USE ppm_module_error
--
GitLab