Add random position

src/main.f90

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

src/subroutines.f90

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