pack_field Subroutine

private pure subroutine pack_field(src, dst, nq, np)

Flatten a (neq x n_pt) field into a length-neq*n_pt 1-D array. Ordering: (eq=1,cell=1), (eq=2,cell=1), ..., (eq=neq,cell=n_pt).

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	src(nq,np)
real(kind=wp),	intent(out)			::	dst(nq*np)
integer,	intent(in)			::	nq
integer,	intent(in)			::	np