ajout types

63a8a3f7 · Henry Gerard · 29b05a97 · 63a8a3f7
Commit 63a8a3f7 authored 6 years ago by Henry Gerard
Hide whitespace changes
Inline Side-by-side

Showing

with 15 additions and 0 deletions
+15 -0
--- a/Types_mod.f90
+++ b/Types_mod.f90
+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