From 63a8a3f76468180cf74ee4cf26fb71af56bc18dd Mon Sep 17 00:00:00 2001
From: Gerard Henry <gerard.henry@irstea.fr>
Date: Thu, 29 Nov 2018 16:26:43 +0000
Subject: [PATCH] ajout types

---
 Types_mod.f90 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 Types_mod.f90

diff --git a/Types_mod.f90 b/Types_mod.f90
new file mode 100644
index 0000000..9aa8a60
--- /dev/null
+++ b/Types_mod.f90
@@ -0,0 +1,15 @@
+module Types_mod
+
+  use, intrinsic :: iso_fortran_env
+  implicit none
+  ! everything is private unless otherwise stated
+  private
+  public :: SP, DP
+
+  integer, parameter :: SP = REAL32
+  integer, parameter :: DP = REAL64
+  integer, parameter :: SI = INT32
+  integer, parameter :: DI = INT64
+  ! put other kind parameters here from Listing 1
+contains
+end module Types_mod
-- 
GitLab