Fix problem with set_types

4 years ago · fe3cc92bc0
parent 5370a5d26b
commit fe3cc92bc0
1 changed files with 1 additions and 1 deletions
--- 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')