Nodes of different colours represent the following:
Solid arrows point from a file to a file which depends upon it. A file is dependent upon another if the latter must be compiled before the former can be. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a file to a file which depends upon it. A file is dependent upon another if the latter must be compiled before the former can be. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
module module_move_tuning use, intrinsic :: iso_fortran_env, only: DP => REAL64 use procedures_errors, only: warning_continue implicit none private public :: set_increase_factor type, public :: Concrete_Move_Tuning_Parameters real(DP) :: increase_factor = 1._DP real(DP) :: increase_factor_max = 1._DP end type Concrete_Move_Tuning_Parameters contains subroutine set_increase_factor(context, current_increase_factor, tuning_parameters, & max_factor_reached) character(len=*), intent(in) :: context real(DP), intent(inout) :: current_increase_factor type(Concrete_Move_Tuning_Parameters), intent(in) :: tuning_parameters logical, intent(out) :: max_factor_reached current_increase_factor = tuning_parameters%increase_factor * current_increase_factor if (current_increase_factor > tuning_parameters%increase_factor_max) then call warning_continue(context//": current_increase_factor is too big.") current_increase_factor = tuning_parameters%increase_factor_max max_factor_reached = .true. else max_factor_reached = .false. end if end subroutine set_increase_factor end module module_move_tuning