From fe3cc92bc01a945c9254d06a83ef65b12a655fb2 Mon Sep 17 00:00:00 2001
From: Alex Selimov <alex@alexselimov.xyz>
Date: Tue, 12 Jan 2021 11:46:50 -0500
Subject: [PATCH] Fix problem with set_types

---
 src/call_option.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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')