Separated wrap option to reduce opy and pasted code. Fixed warnings and added wrapping when inserting a dislocation or loop

2020-01-29 10:25:33 -05:00 · 2020-01-29 10:25:33 -05:00 · dc42b7b925
commit dc42b7b925
parent 636ae9421b
11 changed files with 55 additions and 46 deletions
--- a/src/call_option.f90
+++ b/src/call_option.f90
@ -15,8 +15,11 @@ subroutine call_option(option, arg_pos)
    case('-ow')
        arg_pos = arg_pos + 1
        continue
-    case default
-        print *, 'Option ', trim(adjustl(option)), ' is not currently accepted. Skipping to next argument'
+    case('-wrap')
        arg_pos = arg_pos + 1
+        continue
+    case default
+        print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
+        stop 3 
    end select
 end subroutine call_option