fsml_sample_p Interface

public interface fsml_sample_p

Subroutine for subsampling a rank 1 array using Poisson sampling (subjecting individual elements independently to Bernoulli experiments), then generates an index mask for sampling.

Calls

interface~~fsml_sample_p~~CallsGraph interface~fsml_sample_p fsml_sample_p proc~s_dat_sample_p s_dat_sample_p interface~fsml_sample_p->proc~s_dat_sample_p proc~s_err_print s_err_print proc~s_dat_sample_p->proc~s_err_print

Module Procedures

public subroutine s_dat_sample_p(m, p, mask)

Subroutine for sampling a rank 1 array using Poisson sampling (subjecting individual elements independently to Bernoulli experiments), then generates an index mask for sampling. The mask can simply be applied using the pack intrinsic function: new_array = pack (old_array, mask)

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: m

size of population (array)
real(kind=wp), intent(in) :: p

inclusion probability
logical, intent(out) :: mask(m)

index mask for sampled data