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))


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