Test mixval to verify operation
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 testFlatten
!! Test mixval to verify operation
logical,dimension(1)::results
integer,parameter::N = 3
integer,parameter::M = 4
real(wp),dimension(N,M)::x
real(wp),dimension(N*M)::y
call random_number(x)
y = flatten(x)
results(1) = all( abs(y-reshape(x,[N*M]))<2.0_wp**4*epsilon(1.0_wp) )
if( .not.all(results) ) error stop "Failed flatten check"
end subroutine testFlatten