From ba42c5ef5c35e482dcb35b96c48b04569303ee09 Mon Sep 17 00:00:00 2001 From: Jacob Wilkins Date: Mon, 20 Apr 2020 15:50:09 +0100 Subject: [PATCH] Added dp --- Units/units.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Units/units.f90 b/Units/units.f90 index 3894b78..5ac2bcd 100644 --- a/Units/units.f90 +++ b/Units/units.f90 @@ -74,7 +74,7 @@ Subroutine initialise_units() Real(kind=dp), Parameter :: newton = 1.0_dp - Real(kind=dp), Parameter :: gravity = metre/second**2/9.81 + Real(kind=dp), Parameter :: gravity = metre/second**2/9.81_dp call units_table%init(100)