polishing

src/config.f90

@@ -31,11 +31,11 @@ module config
 contains
 
 !--------------------------------------------------------------------------------------------------
-!> @brief calls subroutines that reads material, numerics and debug configuration files
+!> @brief Real *.yaml configuration files.
 !--------------------------------------------------------------------------------------------------
 subroutine config_init
 
-  write(6,'(/,a)') ' <<<+-  config init  -+>>>'; flush(6)
+  print'(/,a)', ' <<<+-  config init  -+>>>'; flush(6)
 
   call parse_material
   call parse_numerics
@@ -45,7 +45,7 @@ end subroutine config_init
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief reads material.yaml
+!> @brief Read material.yaml or <jobname>.yaml.
 !--------------------------------------------------------------------------------------------------
 subroutine parse_material
 
@@ -66,8 +66,7 @@ end subroutine parse_material
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief reads in parameters from numerics.yaml and sets openMP related parameters. Also does
-! a sanity check
+!> @brief Read numerics.yaml.
 !--------------------------------------------------------------------------------------------------
 subroutine parse_numerics
 
@@ -84,7 +83,7 @@ end subroutine parse_numerics
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief reads in parameters from debug.yaml
+!> @brief Read debug.yaml.
 !--------------------------------------------------------------------------------------------------
 subroutine parse_debug
 
@@ -101,7 +100,7 @@ end subroutine parse_debug
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief deallocates material.yaml structure
+!> @brief Deallocate config_material.
 !ToDo: deallocation of numerics debug (optional)
 !--------------------------------------------------------------------------------------------------
 subroutine config_deallocate

src/quaternions.f90

@@ -108,11 +108,12 @@ contains
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief do self test
+!> @brief Do self test.
 !--------------------------------------------------------------------------------------------------
 subroutine quaternions_init
 
-  write(6,'(/,a)') ' <<<+-  quaternions init  -+>>>'; flush(6)
+  print'(/,a)', ' <<<+-  quaternions init  -+>>>'; flush(6)
+
   call selfTest
 
 end subroutine quaternions_init

src/rotations.f90

@@ -99,15 +99,15 @@ module rotations
 contains
 
 !--------------------------------------------------------------------------------------------------
-!> @brief do self test
+!> @brief Do self test.
 !--------------------------------------------------------------------------------------------------
 subroutine rotations_init
 
   call quaternions_init
-  write(6,'(/,a)') ' <<<+-  rotations init  -+>>>'; flush(6)
+  print'(/,a)', ' <<<+-  rotations init  -+>>>'; flush(6)
 
-  write(6,'(/,a)') ' Rowenhorst et al., Modelling and Simulation in Materials Science and Engineering 23:083501, 2015'
-  write(6,'(a)')   ' https://doi.org/10.1088/0965-0393/23/8/083501'
+  print*, 'Rowenhorst et al., Modelling and Simulation in Materials Science and Engineering 23:083501, 2015'
+  print*, 'https://doi.org/10.1088/0965-0393/23/8/083501'
 
   call selfTest