Implementation of charge exchange and structure for ionization

processes.

src/modules/moduleTable.f90

@@ -28,10 +28,10 @@ MODULE moduleTable
       amount = 0
       DO
         READ(id, '(A)', iostat = stat) dummy
-        !Skip comment
-        IF (INDEX(dummy,'#') /= 0) CYCLE
         !If EOF or error, exit file
         IF (stat /= 0) EXIT
+        !Skip comment
+        IF (INDEX(dummy,'#') /= 0) CYCLE
         !Add row
         amount = amount + 1
 
@@ -62,7 +62,7 @@ MODULE moduleTable
 
       END DO
 
-      CLOSE(10)
+      CLOSE(id)
 
       self%xMin = self%x(1)
       self%xMax = self%x(amount)