Initial commit with file writing and create mode working for atoms

This commit is contained in:
Alex 2019-11-25 18:19:25 -05:00
parent 624886bbe9
commit 8217e8b51c
15 changed files with 2465 additions and 271 deletions

8
src/parameters.f90 Normal file
View file

@ -0,0 +1,8 @@
module parameters
implicit none
integer, parameter :: dp= selected_real_kind(15,307)
real(kind=dp), parameter :: lim_zero = epsilon(1.0_dp), &
lim_large = huge(1.0_dp)
end module parameters