add_scalar Interface

interface
private module function add_scalar(a, b) result(c)

Arguments

Type	Intent	Optional	Attributes		Name
class(array_type),	intent(in),		target	::	a
real(kind=real32),	intent(in)			::	b

Return Value type(array_type),pointer