Merge branch 'ft--opt-dislloop' into development

2020-01-13 20:24:15 -05:00 · 2020-01-13 20:24:15 -05:00 · c89b7d3b59
commit c89b7d3b59
parent 889edfd314 20546dc267
11 changed files with 788 additions and 35 deletions
--- a/src/parameters.f90
+++ b/src/parameters.f90
@ -2,9 +2,14 @@ module parameters

    implicit none

+    !Default precision
    integer, parameter :: dp= selected_real_kind(15,307)
+    !Parameters for floating point tolerance
    real(kind=dp), parameter :: lim_zero = epsilon(1.0_dp), &
                                lim_large = huge(1.0_dp)
    logical, save :: lmpcac
    
-end module parameters
+    !Numeric constants
+    real(kind=dp), parameter :: pi = 3.14159265358979323846_dp
+
+end module parameters