Working commit for dislocation generation branch

src/subroutines.f90

@@ -1,6 +1,7 @@
 module subroutines
     use parameters
     use functions
+    use box
     implicit none
 
     integer :: allostat, deallostat
@@ -170,4 +171,36 @@ module subroutines
         return
     end subroutine parse_ori_vec
 
+    subroutine parse_pos(i, pos_string, pos)
+        !This subroutine parses the pos command allowing for command which include inf
+        integer, intent(in) ::  i !The dimension of the position
+        character(len=100), intent(in) :: pos_string !The position string
+        real(kind=dp), intent(out) :: pos !The output parsed position value
+
+        integer :: iospara
+        if(trim(adjustl(pos_string)) == 'inf') then 
+            pos=box_bd(2*i)
+        else if(trim(adjustl(pos_string)) == '-inf') then
+            pos=box_bd(2*i-1)
+        else if ((index(pos_string,'-') > 0).and.(index(pos_string,'inf')>0)) then 
+            !Now extract the number we are reducing from infinity
+            read(pos_string(index(pos_string,'-')+1:), *, iostat=iospara) pos
+            pos = box_bd(2*i) - pos
+        else if ((index(pos_string,'+') > 0).and.(index(pos_string,'inf')>0)) then 
+            !Now extract the number we are reducing from infinity
+            read(pos_string(index(pos_string,'+')+1:), *, iostat=iospara) pos
+            pos = box_bd(2*i-1) + pos
+        else if ((index(pos_string,'*') > 0).and.(index(pos_string,'inf')>0)) then 
+            !Now extract the number we are reducing from infinity
+            read(pos_string(index(pos_string,'*')+1:), *, iostat=iospara) pos
+            pos = (box_bd(2*i)-box_bd(2*i-1))*pos
+        else
+            read(pos_string, *, iostat=iospara) pos
+        end if
+
+        if (iospara > 0) then 
+            print *, "Error reading position argument ", trim(adjustl(pos_string)), ". Please reformat and try again."
+        end if
+    end subroutine parse_pos
+
 end module subroutines