aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add random position

Browse source
This commit is contained in:
Alex Selimov 2020-01-28 11:35:14 -05:00
parent e91bcd5d1e
commit 282dcd3c58
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/subroutines.f90
View file

@ -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