From 8a1bbcbc4e3c657eaba83644761dfb3209a4e4c5 Mon Sep 17 00:00:00 2001
From: Alex <aselimov3@gatech.edu>
Date: Mon, 27 Jan 2020 10:06:20 -0500
Subject: [PATCH] Added call_option which has been needed for a while but was
 missing

---
 src/call_option.f90 | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/call_option.f90

diff --git a/src/call_option.f90 b/src/call_option.f90
new file mode 100644
index 0000000..befb46c
--- /dev/null
+++ b/src/call_option.f90
@@ -0,0 +1,18 @@
+subroutine call_option(option, arg_pos)
+    use parameters
+    use opt_disl
+    use opt_group
+    implicit none
+
+    integer, intent(inout) :: arg_pos
+    character(len=100), intent(in) :: option
+
+    select case(trim(adjustl(option)))
+    case('-dislgen', '-disloop')
+        call dislocation(option, arg_pos)
+    case('-group')
+        call group(arg_pos)
+    case default
+        print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
+    end select
+end subroutine call_option
\ No newline at end of file