diff --git a/src/call_option.f90 b/src/call_option.f90
index 92dbe12..dd8abc9 100644
--- a/src/call_option.f90
+++ b/src/call_option.f90
@@ -41,7 +41,7 @@ subroutine call_option(option, arg_pos)
     case('-set_cac')
         arg_pos=arg_pos +3
     case('-set_types')
-        arg_pos = arg_pos + 3 + atom_types
+        arg_pos = arg_pos + 2 + atom_types
     case('-redef_box')
         call redef_box(arg_pos)
     case('-slip_plane')