Working commit for dislocation generation branch

2019-12-25 16:30:18 -05:00 · 2019-12-25 16:30:18 -05:00 · d0e6253d64
commit d0e6253d64
parent 41024b9674
9 changed files with 114 additions and 17 deletions
--- a/src/parameters.f90
+++ b/src/parameters.f90
@ -2,7 +2,12 @@ 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)
+    !Numeric constants
+    real(kind=dp), parameter :: pi = 3.14159265358979323846_dp
+
 end module parameters