adjusting indentation

src/IO.f90

@@ -50,6 +50,7 @@ module IO
    IO_countNumericalDataLines
 #endif
 #endif
+
  private :: &
    IO_verifyFloatValue, &
    IO_verifyIntValue
@@ -769,23 +770,23 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg)
     case (810)
       msg = 'FFTW plan creation'
     case (831)
-   msg = 'mask consistency violated in spectral loadcase'
+      msg = 'mask consistency violated in grid load case'
     case (832)
-   msg = 'ill-defined L (line partly defined) in spectral loadcase'
+      msg = 'ill-defined L (line partly defined) in grid load case'
     case (834)
-   msg = 'negative time increment in spectral loadcase'
+      msg = 'negative time increment in grid load case'
     case (835)
-   msg = 'non-positive increments in spectral loadcase'
+      msg = 'non-positive increments in grid load case'
     case (836)
-   msg = 'non-positive result frequency in spectral loadcase'
+      msg = 'non-positive result frequency in grid load case'
     case (837)
       msg = 'incomplete loadcase'
     case (838)
       msg = 'mixed boundary conditions allow rotation'
     case (841)
-   msg = 'missing header length info in spectral mesh'
+      msg = 'missing header length info in grid mesh'
     case (842)
-   msg = 'incomplete information in spectral mesh header'
+      msg = 'incomplete information in grid mesh header'
     case (843)
       msg = 'microstructure count mismatch'
     case (846)

src/quit.f90

@@ -7,16 +7,15 @@
 !--------------------------------------------------------------------------------------------------
 subroutine quit(stop_id)
 #include <petsc/finclude/petscsys.h>
-#ifdef _OPENMP
- use MPI, only: &
-   MPI_finalize
-#endif
   use PetscSys
+#ifdef _OPENMP
+   use MPI
+#endif
   use hdf5
 
   implicit none
   integer, intent(in) :: stop_id
- integer, dimension(8) :: dateAndTime                                                               ! type default integer
+  integer, dimension(8) :: dateAndTime
   integer :: error
   PetscErrorCode :: ierr = 0