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 classes_temperature use, intrinsic :: iso_fortran_env, only: DP => REAL64 use procedures_checks, only: check_positive implicit none private type, abstract, public :: Abstract_Temperature private real(DP) :: temperature = 0._DP contains procedure :: set => Abstract_set procedure :: get => Abstract_get end type Abstract_Temperature type, extends(Abstract_Temperature), public :: Concrete_Temperature end type Concrete_Temperature contains subroutine Abstract_set(this, temperature) class(Abstract_Temperature), intent(inout) :: this real(DP), intent(in) :: temperature call check_positive("Abstract_Temperature", "temperature", temperature) this%temperature = temperature end subroutine Abstract_set pure real(DP) function Abstract_get(this) result(temperature) class(Abstract_Temperature), intent(in) :: this temperature = this%temperature end function Abstract_get end module classes_temperature