poly_msk_rrv Function

  1. special_fun_modules.f90
  2. nrutil
  3. poly_msk_rrv

public function poly_msk_rrv(x, coeffs, mask)

Arguments

Type IntentOptional AttributesName
real(kind=SP), intent(in), DIMENSION(:):: x
real(kind=SP), intent(in), DIMENSION(:):: coeffs
logical(kind=LGT), intent(in), DIMENSION(:):: mask

Return Value real(kind=SP), DIMENSION(size(x))


Calls

proc~~poly_msk_rrv~~CallsGraph proc~poly_msk_rrv poly_msk_rrv proc~poly_rrv poly_rrv proc~poly_msk_rrv->proc~poly_rrv proc~poly_rr poly_rr proc~poly_rrv->proc~poly_rr

Called by

proc~~poly_msk_rrv~~CalledByGraph proc~poly_msk_rrv poly_msk_rrv interface~poly poly interface~poly->proc~poly_msk_rrv

Contents

Source Code

poly_msk_rrv

Source Code

	FUNCTION poly_msk_rrv(x,coeffs,mask)
	REAL(SP), DIMENSION(:), INTENT(IN) :: coeffs,x
	LOGICAL(LGT), DIMENSION(:), INTENT(IN) :: mask
	REAL(SP), DIMENSION(size(x)) :: poly_msk_rrv
	poly_msk_rrv=unpack(poly_rrv(pack(x,mask),coeffs),mask,0.0_sp)
	END FUNCTION poly_msk_rrv