Cleaned up whitespace and comments

src/geometry.F90

@@ -80,7 +80,7 @@ contains
     real(8) :: xyz(3)               ! temporary location
     logical :: use_search_cells     ! use cells provided as argument
     logical :: outside_lattice      ! if particle is not inside lattice bounds
-    logical :: lattice_edge         ! if the particle is on a lattice edge
+    logical :: lattice_edge         ! if particle is on a lattice edge
     type(Cell),     pointer :: c    ! pointer to cell
     type(Lattice),  pointer :: lat  ! pointer to lattice
     type(Universe), pointer :: univ ! universe to search in

src/initialize.F90

@@ -398,7 +398,6 @@ contains
       ! increment the index for the cells array within the Universe object and
       ! then store the index of the Cell object in that array
       index_cell_in_univ(i_univ) = index_cell_in_univ(i_univ) + 1
-      
       univ % cells(index_cell_in_univ(i_univ)) = i
     end do
     
@@ -418,7 +417,7 @@ contains
     integer :: j             ! index for various purposes
     integer :: k             ! loop index for lattices
     integer :: m             ! loop index for lattices
-    integer :: mid, lid      ! material and lattice ids
+    integer :: mid, lid      ! material and lattice IDs
     integer :: n_x, n_y, n_z ! size of lattice
     integer :: i_array       ! index in surfaces/materials array 
     integer :: id            ! user-specified id

src/input_xml.F90

@@ -608,7 +608,7 @@ contains
 
     ! Get number of <cell> tags
     n_cells = size(cell_)
-    
+
     ! Check for no cells
     if (n_cells == 0) then
       message = "No cells found in geometry.xml!"