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_on_scratch_dataarray3_rank2_R4P(self,x,y,z)result(n_byte)!< Write a dataarray with 3 components of rank 2 (R4P).class(xml_writer_appended),intent(inout)::self!< Writer.real(R4P),intent(in)::x(1:,1:)!< X component.real(R4P),intent(in)::y(1:,1:)!< Y component.real(R4P),intent(in)::z(1:,1:)!< Z component.integer(I4P)::n_byte!< Number of bytesinteger(I4P)::n1!< Counter.integer(I4P)::n2!< Counter.n_byte=self%write_on_scratch_dataarray(x=[((x(n1,n2),y(n1,n2),z(n1,n2),n1=1,size(x,dim=1)),n2=1,size(x,dim=2))])endfunction write_on_scratch_dataarray3_rank2_R4P