Working commit for dislocation generation branch

src/mode_create.f90

@@ -230,10 +230,10 @@ module mode_create
 
             case default
                 !If it isn't an option then you have to exit
+                arg_pos = arg_pos -1
                 exit
             end select
         end do
-
         !Calculate the lattice periodicity length in lattice units
         do i = 1, 3
             lattice_space(i) = norm2(orient(i,:))