create_surface_average_csr Subroutine

public subroutine create_surface_average_csr(surface_average_csr, equi, mesh, polar_grid, polar_map_csr, dbgout)

Creates a matrix to surface average from Cartesian field

Arguments

Type	Intent	Optional	Attributes		Name
type(csrmat_t),	intent(out),		allocatable	::	surface_average_csr	Zonal average matrix
class(equilibrium_t),	intent(inout)			::	equi	Equilibrium
type(mesh_cart_t),	intent(in)			::	mesh	Cartesian mesh
type(polar_grid_t),	intent(in)			::	polar_grid	Polar grid
type(csrmat_t),	intent(in)			::	polar_map_csr	Polar map matrix in CSR format
integer,	intent(in),	optional		::	dbgout	Specifies the number of information printed on screen