diff --git a/src/config.f90 b/src/config.f90 index c3378c242..50d4e96e8 100644 --- a/src/config.f90 +++ b/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 .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 diff --git a/src/quaternions.f90 b/src/quaternions.f90 index b5478d634..c5c43e3c1 100644 --- a/src/quaternions.f90 +++ b/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 diff --git a/src/rotations.f90 b/src/rotations.f90 index baa8cff38..72046a965 100644 --- a/src/rotations.f90 +++ b/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