consistent indentation

src/homogenization_RGC.f90

@@ -8,8 +8,7 @@
 !--------------------------------------------------------------------------------------------------
 module homogenization_RGC
  use prec, only: &
-   pReal, &
-   pInt
+   pReal
 
  implicit none
  private
@@ -818,7 +817,7 @@ function homogenization_RGC_updateState(P,F,F0,avgF,dt,dPdF,ip,el)
       nVect = interfaceNormal(intFace,instance,of)
       iGNghb3 = iGrain3                                                                             ! identify the neighboring grain across the interface
       iGNghb3(abs(intFace(1))) = iGNghb3(abs(intFace(1))) &
-                               + int(real(intFace(1),pReal)/real(abs(intFace(1)),pReal),pInt)
+                               + int(real(intFace(1),pReal)/real(abs(intFace(1)),pReal))
       where(iGNghb3 < 1)    iGNghb3 = nGDim
       where(iGNghb3 >nGDim) iGNghb3 = 1
       iGNghb  = grain3to1(iGNghb3,prm%Nconstituents)                                                ! get the ID of the neighboring grain

src/homogenization_isostrain.f90

@@ -5,8 +5,6 @@
 !> @brief Isostrain (full constraint Taylor assuption) homogenization scheme
 !--------------------------------------------------------------------------------------------------
 module homogenization_isostrain
- use prec, only: &
-   pInt
 
   implicit none
   private
@@ -35,7 +33,7 @@ contains
 !--------------------------------------------------------------------------------------------------
 !> @brief allocates all neccessary fields, reads information from material configuration file
 !--------------------------------------------------------------------------------------------------
-subroutine homogenization_isostrain_init()
+subroutine homogenization_isostrain_init
   use debug, only: &
     debug_HOMOGENIZATION, &
     debug_level, &
@@ -62,7 +60,7 @@ subroutine homogenization_isostrain_init()
  
   write(6,'(/,a)')   ' <<<+-  homogenization_'//HOMOGENIZATION_ISOSTRAIN_label//' init  -+>>>'
  
- Ninstance = int(count(homogenization_type == HOMOGENIZATION_ISOSTRAIN_ID),pInt)
+  Ninstance = count(homogenization_type == HOMOGENIZATION_ISOSTRAIN_ID)
   if (iand(debug_level(debug_HOMOGENIZATION),debug_levelBasic) /= 0) &
     write(6,'(a16,1x,i5,/)') '# instances:',Ninstance