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_strg_data3_rank1_R4P(self,n,x,y,z)result(error)!< Write mesh with **StructuredGrid** topology (data 3, rank 1, R4P).class(xml_writer_abstract),intent(inout)::self!< Writer.integer(I4P),intent(in)::n!< Number of nodes.real(R4P),intent(in)::x(1:)!< X coordinates.real(R4P),intent(in)::y(1:)!< Y coordinates.real(R4P),intent(in)::z(1:)!< Z coordinates.integer(I4P)::error!< Error status.if((n/=size(x,dim=1)).or.(n/=size(y,dim=1)).or.(n/=size(z,dim=1)))thenself%error=1return endif call self%write_start_tag(name='Points')error=self%write_dataarray(data_name='Points',x=x,y=y,z=z)call self%write_end_tag(name='Points')error=self%errorendfunction write_geo_strg_data3_rank1_R4P