From a2dfbac7be0be0f88e88e09309590648dd57bbad Mon Sep 17 00:00:00 2001
From: odemirel <odemirel@7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9>
Date: Mon, 21 Jun 2010 09:58:53 +0000
Subject: [PATCH] removal of some comments which caused warning while compiled
with gcc #2
git-svn-id: https://ppm.inf.ethz.ch/svn/ppmnumerics/branches/ngtopo/libppmnumerics@647 7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9
---
src/ppm_mg_restrict.f | 8 --------
src/ppm_mg_smooth_coarse.f | 14 --------------
src/ppm_mg_smooth_fine.f | 15 +--------------
3 files changed, 1 insertion(+), 36 deletions(-)
diff --git a/src/ppm_mg_restrict.f b/src/ppm_mg_restrict.f
index df23f92..e3a5362 100644
--- a/src/ppm_mg_restrict.f
+++ b/src/ppm_mg_restrict.f
@@ -282,8 +282,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlevm1),uc_dummy,&
& info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlevm1),uc_dummy,&
& ghostsize,info)
DO isub=1,nsubs
@@ -361,8 +359,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlevm1),uc_dummy,&
& info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlevm1),uc_dummy,&
& ghostsize,info)
@@ -488,8 +484,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlevm1),uc_dummy,&
& vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlevm1),uc_dummy,&
& vecdim,ghostsize,info)
DO isub=1,nsubs
@@ -585,8 +579,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlevm1),uc_dummy,&
& vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlevm1),uc_dummy,&
& vecdim,ghostsize,info)
DO isub=1,nsubs
diff --git a/src/ppm_mg_smooth_coarse.f b/src/ppm_mg_smooth_coarse.f
index 8849623..0afc9d9 100644
--- a/src/ppm_mg_smooth_coarse.f
+++ b/src/ppm_mg_smooth_coarse.f
@@ -395,8 +395,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),uc_dummy,&
& info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),uc_dummy,&
& ghostsize,info)
DO isub=1,nsubs
@@ -430,8 +428,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),uc_dummy,&
& info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),uc_dummy,&
& ghostsize,info)
DO isub=1,nsubs
@@ -495,8 +491,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),uc_dummy,&
& info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),uc_dummy,&
& ghostsize,info)
a=0
@@ -700,8 +694,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),uc_dummy,&
& vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),uc_dummy,&
& vecdim,ghostsize,info)
DO isub=1,nsubs
@@ -736,8 +728,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),uc_dummy,&
& vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),uc_dummy,&
& vecdim,ghostsize,info)
DO isub=1,nsubs
@@ -825,8 +815,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),uc_dummy,&
& vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),uc_dummy,&
& vecdim,ghostsize,info)
a=0
@@ -1019,8 +1007,6 @@
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),uc_dummy,&
& vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),uc_dummy,&
& vecdim,ghostsize,info)
DO isub=1,nsubs
diff --git a/src/ppm_mg_smooth_fine.f b/src/ppm_mg_smooth_fine.f
index 764eac5..e71a17d 100644
--- a/src/ppm_mg_smooth_fine.f
+++ b/src/ppm_mg_smooth_fine.f
@@ -377,8 +377,7 @@ dz=dz_d
& ghostsize,info)
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),u,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
+
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),u,ghostsize,info)
ENDIF
@@ -484,8 +483,6 @@ dz=dz_d
& ghostsize,info)
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),u,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),u,ghostsize,info)
DO isub=1,nsubs
DO k=start(3,isub,1)+e(isub),istop(3,isub,1)-g(isub)
@@ -514,8 +511,6 @@ dz=dz_d
& ghostsize,info)
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),u,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),u,ghostsize,info)
ENDIF
ENDDO
@@ -536,8 +531,6 @@ dz=dz_d
& ghostsize,info)
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),u,vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),u,&
& vecdim,ghostsize,info)
DO isub=1,nsubs
@@ -558,8 +551,6 @@ dz=dz_d
& ghostsize,info)
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),u,vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),u,&
& vecdim,ghostsize,info)
ENDIF
@@ -672,8 +663,6 @@ dz=dz_d
& ghostsize,info)
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),u,vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),u,&
& vecdim,ghostsize,info)
#ifdef __VECTOR
@@ -748,8 +737,6 @@ dz=dz_d
& ghostsize,info)
CALL ppm_map_field_push(topoid,mesh_id_g(mlev),u,vecdim,info)
CALL ppm_map_field_send(info)
- !TODO: I'm not 100% sure about that since the signature
- !has been changed dramatically
CALL ppm_map_field_pop(topoid,mesh_id_g(mlev),u,&
& vecdim,ghostsize,info)
ENDIF
--
GitLab