From 2ada5d820ae7d0e6a470d8a6efbb070666583d95 Mon Sep 17 00:00:00 2001
From: Jean-Baptiste Lagaert <Jean-Baptiste.Lagaert@math.u-psud.fr>
Date: Wed, 27 Mar 2013 16:03:10 +0000
Subject: [PATCH] =?UTF-8?q?[fix]=C2=A0Les=20structures=20fortran=20(par=20?=
 =?UTF-8?q?exemple=20tableau=20de=20pointeur)=20sont=20d=C3=A9plac=C3=A9s?=
 =?UTF-8?q?=20dans=20un=20module=20=C3=A0=20part.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 HySoP/src/scalesInterface/structure_tools.f90 | 34 +++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 HySoP/src/scalesInterface/structure_tools.f90

diff --git a/HySoP/src/scalesInterface/structure_tools.f90 b/HySoP/src/scalesInterface/structure_tools.f90
new file mode 100644
index 000000000..43de180b3
--- /dev/null
+++ b/HySoP/src/scalesInterface/structure_tools.f90
@@ -0,0 +1,34 @@
+!------------------------------------------------------------------------------
+!
+! MODULE: structure_tool
+!
+!
+! DESCRIPTION:
+!> This module provides some useful structure like array of pointer (basic
+!fortran only defines pointer to an array) and array of pointer to array.
+!
+!> @author
+!! Jean-Baptiste Lagaert, LEGI
+!
+!------------------------------------------------------------------------------
+
+module structure_tools
+
+  use precision_tools
+
+  implicit none
+
+  ! --- In order to create an array of pointer to real ---
+  type real_pter
+      real(WP), pointer                   :: pter
+  end type real_pter
+  ! --- In order to create an array of pointer to array ---
+  type int_1D_pter
+      integer, dimension(:), pointer      :: pter
+  end type int_1D_pter
+  type real_1D_pter
+      real(WP), dimension(:), pointer     :: pter
+  end type real_1D_pter
+  ! ---------------------------------------------
+
+end module structure_tools
-- 
GitLab