Verify operation of writeMat
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.
subroutine testWriteMat
!! Verify operation of writeMat
integer,parameter::N = 5
integer,parameter::M = 4
real(wp),dimension(N,M)::A
integer::i,j
forall(i=1:N,j=1:M) A(i,j) = real(i+j,wp)
call writeMat('data.mat','A',A,.true.)
end subroutine testWriteMat