poly_msk_ddv Function

  1. special_fun_modules.f90
  2. nrutil
  3. poly_msk_ddv

public function poly_msk_ddv(x, coeffs, mask)

Arguments

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

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


Contents

Source Code

poly_msk_ddv

Source Code

	FUNCTION poly_msk_ddv(x,coeffs,mask)
	REAL(DP), DIMENSION(:), INTENT(IN) :: coeffs,x
	LOGICAL(LGT), DIMENSION(:), INTENT(IN) :: mask
	REAL(DP), DIMENSION(size(x)) :: poly_msk_ddv
	poly_msk_ddv=unpack(poly_ddv(pack(x,mask),coeffs),mask,0.0_dp)
	END FUNCTION poly_msk_ddv