Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine initialize_type_input(self)implicit none class(type_input),intent(inout)::selflogical::exists! File existence status! Path settingsself%project_path=trim(adjustl(get_project_path()))inquire(directory=self%project_path//"Input/",exist=exists)if(.not.exists)call error_message(901)self%basic_file_name=self%project_path//"Input/Basic.json"self%conditions_file_name=self%project_path//"Input/Conditions.json"self%output_file_name=self%project_path//"Input/Output.json"! Check the existence of the fileinquire(file=self%basic_file_name,exist=exists)if(.not.exists)call error_message(902,c_opt=self%basic_file_name)inquire(file=self%conditions_file_name,exist=exists)if(.not.exists)call error_message(902,c_opt=self%conditions_file_name)inquire(file=self%output_file_name,exist=exists)if(.not.exists)call error_message(902,c_opt=self%output_file_name)call self%read_parameters()call self%read_conditions()call self%read_output_settings()call self%read_geometry()end subroutine initialize_type_input