From 9ab5d750f78ba80a135daa786d85f6a2d1f38204 Mon Sep 17 00:00:00 2001
From: fperignon <fperignon@7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9>
Date: Fri, 8 Apr 2011 12:46:38 +0000
Subject: [PATCH] Fix missing arg in topo_check
git-svn-id: https://ppm.inf.ethz.ch/svn/ppmnumerics/branches/ngtopo/libppmnumerics@833 7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9
---
src/ppm_fmm_potential.f | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/ppm_fmm_potential.f b/src/ppm_fmm_potential.f
index bad77f0..b9f8978 100644
--- a/src/ppm_fmm_potential.f
+++ b/src/ppm_fmm_potential.f
@@ -182,6 +182,7 @@
USE ppm_module_map_part_util
USE ppm_module_util_cart2sph
USE ppm_module_write
+ USE ppm_module_topo_check
IMPLICIT NONE
!-------------------------------------------------------------------------
! Includes
@@ -372,7 +373,7 @@
! Check that particles have been mapped correctly
!-------------------------------------------------------------------------
IF(ppm_debug.GT.0)THEN
- CALL ppm_topo_check(tp,Ntp,OK,info)
+ CALL ppm_topo_check(topoid,tp,Ntp,OK,info)
IF (info .NE. 0) THEN
CALL ppm_write(ppm_rank,'ppm_fmm_potential', &
& 'Failed to check topology.',info)
--
GitLab