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.
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_geo_unst_data1_rank2_R8P(self,np,nc,xyz)result(error)!< Write mesh with **UnstructuredGrid** topology (data 1, rank 2, R8P).class(xml_writer_abstract),intent(inout)::self!< Writer.integer(I4P),intent(in)::np!< Number of points.integer(I4P),intent(in)::nc!< Number of cells.real(R8P),intent(in)::xyz(1:,1:)!< X, y, z coordinates [1:3,:].integer(I4P)::error!< Error status.if(np/=size(xyz,dim=2))thenself%error=1return endif call self%write_start_tag(name='Points')error=self%write_dataarray(data_name='Points',x=xyz)call self%write_end_tag(name='Points')error=self%errorendfunction write_geo_unst_data1_rank2_R8P