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.
Source Code
function write_dataarray1_rank1_I1P(self,data_name,x,is_tuples)result(error)!< Write `<DataArray... NumberOfComponents="1"...>...</DataArray>` tag (I1P).class(xml_writer_appended),intent(inout)::self!< Writer.character(*),intent(in)::data_name!< Data name.integer(I1P),intent(in)::x(1:)!< Data variable.logical,intent(in),optional::is_tuples!< Use "NumberOfTuples".integer(I4P)::error!< Error status.character(len=:),allocatable::data_type!< Data type.integer(I4P)::n_components!< Number of components.data_type='Int8'n_components=1call self%write_dataarray_tag_appended(data_type=data_type,number_of_components=n_components,data_name=data_name,&is_tuples=is_tuples)call self%ioffset_update(n_byte=self%write_on_scratch_dataarray(x=x))error=self%errorendfunction write_dataarray1_rank1_I1P