Initial commit with file writing and create mode working for atoms

src/call_mode.f90

@@ -0,0 +1,24 @@
+subroutine call_mode(arg_num,mode)
+    !This code is used to parse the command line argument for the mode information and calls the required 
+    !mode module.
+
+    use mode_create
+    use parameters
+
+    implicit none    
+
+    integer, intent(in) :: arg_num
+    character(len=100), intent(in) :: mode
+
+    select case(mode)
+    case('--create')
+        call create(arg_num)
+
+    case default
+        print *, "Mode ", mode, " currently not accepted. Please check documentation for ", &
+                 "accepted modes and rerun."
+
+        stop 3
+         
+    end select
+end subroutine call_mode