Initial commit with working atom and lattice type parsing

src/subroutines.f90

@@ -0,0 +1,24 @@
+module subroutines
+
+    use precision_comm_module
+
+    implicit none
+
+    public
+    contains
+
+
+    !This subroutine is just used to break the code and exit on an error
+    subroutine read_error_check(para, loc)
+
+        integer, intent(in) :: para
+        character(len=100), intent(in) :: loc
+
+        if (para > 0) then 
+            print *, "Read error in ", trim(loc), " because of ", para
+            stop "Exit with error"
+        end if
+    end subroutine
+
+
+end module subroutines