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