adjusting indentation

src/IO.f90

@@ -50,6 +50,7 @@ module IO
    IO_countNumericalDataLines
 #endif
 #endif
+
  private :: &
    IO_verifyFloatValue, &
    IO_verifyIntValue
@@ -250,11 +251,11 @@ subroutine IO_open_inputFile(fileUnit,modelName)
   
   contains
   
-!--------------------------------------------------------------------------------------------------
-!> @brief create a new input file for abaqus simulations by removing all comment lines and
-!> including "include"s
-!--------------------------------------------------------------------------------------------------
-recursive function abaqus_assembleInputFile(unit1,unit2) result(createSuccess)
+  !--------------------------------------------------------------------------------------------------
+  !> @brief create a new input file for abaqus simulations by removing all comment lines and
+  !> including "include"s
+  !--------------------------------------------------------------------------------------------------
+  recursive function abaqus_assembleInputFile(unit1,unit2) result(createSuccess)
   
     integer, intent(in)                :: unit1, &
                                           unit2
@@ -298,7 +299,7 @@ recursive function abaqus_assembleInputFile(unit1,unit2) result(createSuccess)
   
 200 createSuccess =.false.
   
-end function abaqus_assembleInputFile
+  end function abaqus_assembleInputFile
 #elif defined(Marc4DAMASK)
   path = trim(modelName)//inputFileExtension
   open(fileUnit,status='old',iostat=myStat,file=path)
@@ -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/kinematics_slipplane_opening.f90

@@ -181,7 +181,7 @@ subroutine kinematics_slipplane_opening_LiAndItsTangent(Ld, dLd_dTstar, S, ipc,
     endif 
   enddo
   
-end associate
+  end associate
 
 end subroutine kinematics_slipplane_opening_LiAndItsTangent
 

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