clearer substructure of routines

code/IO.f90

@@ -84,8 +84,7 @@ module IO
  private :: &
    IO_fixedFloatValue, &
    IO_verifyFloatValue, &
-   IO_verifyIntValue, &
+   IO_verifyIntValue
-   hybridIA_reps
 #ifdef Abaqus 
  private :: &
    abaqus_assembleInputFile
@@ -751,6 +750,26 @@ function IO_hybridIA(Nast,ODFfileName)
    binSet(j) = binSet(i)
  enddo
  
+ contains
+ !--------------------------------------------------------------------------------------------------
+ !> @brief counts hybrid IA repetitions
+ !--------------------------------------------------------------------------------------------------
+ integer(pInt) pure function hybridIA_reps(dV_V,steps,C)
+ 
+  implicit none
+  integer(pInt), intent(in), dimension(3)                          :: steps                          !< needs description
+  real(pReal),   intent(in), dimension(steps(3),steps(2),steps(1)) :: dV_V                           !< needs description
+  real(pReal),   intent(in)                                        :: C                              !< needs description
+  
+  integer(pInt) :: phi1,Phi,phi2
+  
+  hybridIA_reps = 0_pInt
+  do phi1=1_pInt,steps(1); do Phi =1_pInt,steps(2); do phi2=1_pInt,steps(3)
+    hybridIA_reps = hybridIA_reps+nint(C*dV_V(phi2,Phi,phi1), pInt)
+  enddo; enddo; enddo
+  
+ end function hybridIA_reps
+
 end function IO_hybridIA
 
 
@@ -1880,26 +1899,6 @@ real(pReal) function IO_verifyFloatValue (string,validChars,myName)
   
 end function IO_verifyFloatValue
  
-
-!--------------------------------------------------------------------------------------------------
-!> @brief counts hybrid IA repetitions
-!--------------------------------------------------------------------------------------------------
-integer(pInt) pure function hybridIA_reps(dV_V,steps,C)
-
- implicit none
- integer(pInt), intent(in), dimension(3)                          :: steps                          !< needs description
- real(pReal),   intent(in), dimension(steps(3),steps(2),steps(1)) :: dV_V                           !< needs description
- real(pReal),   intent(in)                                        :: C                              !< needs description
- 
- integer(pInt) :: phi1,Phi,phi2
- 
- hybridIA_reps = 0_pInt
- do phi1=1_pInt,steps(1); do Phi =1_pInt,steps(2); do phi2=1_pInt,steps(3)
-   hybridIA_reps = hybridIA_reps+nint(C*dV_V(phi2,Phi,phi1), pInt)
- enddo; enddo; enddo
- 
-end function hybridIA_reps
- 
 #ifdef Abaqus 
 !--------------------------------------------------------------------------------------------------
 !> @brief create a new input file for abaqus simulations by removing all comment lines and