Add random position

master
Alex Selimov 5 years ago
parent e91bcd5d1e
commit 282dcd3c58

@ -23,6 +23,8 @@ program main
!Call initialization functions
call lattice_init
call box_init
call random_seed
end_mode_arg = 0
! Command line parsing

@ -178,6 +178,7 @@ module subroutines
real(kind=dp), intent(out) :: pos !The output parsed position value
integer :: iospara
real(kind=dp) :: rand
iospara = 0
if(trim(adjustl(pos_string)) == 'inf') then
@ -208,6 +209,10 @@ module subroutines
read(pos_string(1:index(pos_string,'*')-1), *, iostat=iospara) pos
end if
pos = (box_bd(2*i)-box_bd(2*i-1))*pos + box_bd(2*i-1)
else if (trim(adjustl(pos_string)) == 'rand') then
call random_number(rand)
pos = (box_bd(2*i)-box_bd(2*i-1))*rand + box_bd(2*i-1)
else
read(pos_string, *, iostat=iospara) pos
end if

Loading…
Cancel
Save