From b38fd1afcdf4fefd86f643d35c2d59269c55eb94 Mon Sep 17 00:00:00 2001
From: odemirel <odemirel@7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9>
Date: Wed, 10 Mar 2010 09:58:56 +0000
Subject: [PATCH] Jens' numerics is merged and modified for the new topology
git-svn-id: https://ppm.inf.ethz.ch/svn/ppmnumerics/branches/ngtopo/libppmnumerics@568 7c7fe9aa-52eb-4d9e-b0a8-ba7d787348e9
---
src/ppm_module_hamjac_reinit.f | 26 ++++++++++++++++++++++++--
1 file changed, 24 insertions(+), 2 deletions(-)
diff --git a/src/ppm_module_hamjac_reinit.f b/src/ppm_module_hamjac_reinit.f
index 9e983df..73955b1 100644
--- a/src/ppm_module_hamjac_reinit.f
+++ b/src/ppm_module_hamjac_reinit.f
@@ -12,8 +12,8 @@
! Revisions :
!-------------------------------------------------------------------------
! $Log: ppm_module_hamjac_reinit.f,v $
- ! Revision 1.1.1.1 2007/07/13 10:18:58 ivos
- ! CBL version of the PPM library
+ ! Revision 1.1.1.1 2006/07/25 15:18:20 menahel
+ ! initial import
!
! Revision 1.1 2005/07/25 00:34:08 ivos
! Initial check-in.
@@ -46,6 +46,13 @@
MODULE PROCEDURE ppm_hamjac_reinit_step_2dd
END INTERFACE
+ INTERFACE ppm_hamjac_reinit_loc_step
+ MODULE PROCEDURE ppm_hamjac_reinit_loc_step_3ds
+ MODULE PROCEDURE ppm_hamjac_reinit_loc_step_3dd
+ MODULE PROCEDURE ppm_hamjac_reinit_loc_step_3dsV
+ MODULE PROCEDURE ppm_hamjac_reinit_loc_step_3ddV
+ END INTERFACE
+
INTERFACE ppm_hamjac_reinit
MODULE PROCEDURE ppm_hamjac_reinit_3ds
MODULE PROCEDURE ppm_hamjac_reinit_3dd
@@ -55,6 +62,13 @@
MODULE PROCEDURE ppm_hamjac_reinit_2dd
END INTERFACE
+ INTERFACE ppm_hamjac_reinit_loc
+ MODULE PROCEDURE ppm_hamjac_reinit_loc_3ds
+ MODULE PROCEDURE ppm_hamjac_reinit_loc_3dd
+ MODULE PROCEDURE ppm_hamjac_reinit_loc_3dsV
+ MODULE PROCEDURE ppm_hamjac_reinit_loc_3ddV
+ END INTERFACE
+
INTERFACE ppm_hamjac_reinit_step_ref
MODULE PROCEDURE ppm_hamjac_reinit_step_ref_3ds
MODULE PROCEDURE ppm_hamjac_reinit_step_ref_3dd
@@ -81,12 +95,14 @@
#define __KIND __SINGLE_PRECISION
! 3D SCA SINGLE
#include "ppm_hamjac_reinit_step_3d.f"
+#include "ppm_hamjac_reinit_loc_step_3d.f"
#include "ppm_hamjac_reinit_step_ref_3d.f"
#include "ppm_hamjac_reinit_russo_step_3d.f"
#undef __KIND
#define __KIND __DOUBLE_PRECISION
! 3D SCA SINGLE
#include "ppm_hamjac_reinit_step_3d.f"
+#include "ppm_hamjac_reinit_loc_step_3d.f"
#include "ppm_hamjac_reinit_step_ref_3d.f"
#include "ppm_hamjac_reinit_russo_step_3d.f"
#undef __KIND
@@ -97,10 +113,12 @@
#define __KIND __SINGLE_PRECISION
! 3D VEC SINGLE
#include "ppm_hamjac_reinit_step_3d.f"
+#include "ppm_hamjac_reinit_loc_step_3d.f"
#undef __KIND
#define __KIND __DOUBLE_PRECISION
! 3D VEC SINGLE
#include "ppm_hamjac_reinit_step_3d.f"
+#include "ppm_hamjac_reinit_loc_step_3d.f"
#undef __KIND
#undef __MODE
#undef __DIME
@@ -125,12 +143,14 @@
#define __KIND __SINGLE_PRECISION
! 3D SCA SINGLE
#include "ppm_hamjac_reinit_3d.f"
+#include "ppm_hamjac_reinit_loc_3d.f"
#include "ppm_hamjac_reinit_ref_3d.f"
#include "ppm_hamjac_reinit_russo_3d.f"
#undef __KIND
#define __KIND __DOUBLE_PRECISION
! 3D SCA DOUBLE
#include "ppm_hamjac_reinit_3d.f"
+#include "ppm_hamjac_reinit_loc_3d.f"
#include "ppm_hamjac_reinit_ref_3d.f"
#include "ppm_hamjac_reinit_russo_3d.f"
#undef __KIND
@@ -142,10 +162,12 @@
#define __KIND __SINGLE_PRECISION
! 3D VEC SINGLE
#include "ppm_hamjac_reinit_3d.f"
+#include "ppm_hamjac_reinit_loc_3d.f"
#undef __KIND
#define __KIND __DOUBLE_PRECISION
! 3D VEC DOUBLE
#include "ppm_hamjac_reinit_3d.f"
+#include "ppm_hamjac_reinit_loc_3d.f"
#undef __KIND
#undef __MODE
#undef __DIME
--
GitLab