view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/iSelect_xt.pm  view on Meta::CPAN

			@items = (
				$suwind[1], $in, 
				$iSelect_xt->{_inbound},$to,
				$suwind[2], $to, 
				$sufilter[1],$to,
				$suximage[1],
				$go
			);
			$flow[2] = $run->modules( \@items );

		}
		else {
			# CASE 1 Error catch
			#			print("CASE 1 iSelect_xt, purpose:$iSelect_xt->{_purpose}\n");
			my $ans = $iSelect_xt->{_error_freq};

			#	print("CASE 1 iSelect_xt, _error: $ans\n");
			#	print("CASE 1 iSelect_xt, missing purpose and/or error_freq\n");
		}

	}

	# CASE 2A: No purpose, with filter
	elsif (
		(
			not( defined $iSelect_xt->{_purpose} )
			|| $iSelect_xt->{_purpose} eq $empty_string
		)
		&& $iSelect_xt->{_error_freq} eq $false
	  )
	{

		@items = (
			$suwind[1], $in, $iSelect_xt->{_inbound}, $to,
			$suwind[2], $to, $sufilter[1],            $to,
			$sugain[1], $to, $suxwigb[1],             $go
		);
		$flow[1] = $run->modules( \@items );

		# print("iSelect_xt,  CASE 2: $flow[1]\n");
#$sugain[1], $to, 
		@items = (
			$suwind[1], $in, $iSelect_xt->{_inbound}, $to,
			$suwind[2], $to, $sufilter[1],            $to,
			$suximage[1],            $go
		);

		$flow[2] = $run->modules( \@items );

	}
	else {
#  print("2. iSelect_xt, purpose:---$iSelect_xt->{_purpose}---\n");
  # print("2. iSelect_xt, error_freq:---$iSelect_xt->{_error_freq}---\n");
  #		print("2. iSelect_xt, missing purpose and/or error in filter frequencies");
	}

=head2 RUN FLOW(S)

  output copy of picked data points
  only occurs after the number of tries
  is updated

=cut

	# for suxwigb
	$run->flow( \$flow[1] );

	# for suximage
	$run->flow( \$flow[2] );

=head2 LOG FLOW(S)

 TO SCREEN AND FILE

=cut

#	print "$flow[1]\n";
	# $log->file($flow[1]);

#	print  "$flow[2]\n";
	# $log->file($flow[2]);

}    # end calcNdisplay subroutine

=head2  sub gather_header

  define the message family to use

=cut

sub gather_header {
	my ( $self, $type ) = @_;

	if ( defined $type && $type ne $empty_string ) {

		# e.g. 'sp1' becomes sp1
		# print("1. iSelect_xt, gather_header: $type \n");

		control->set_infection($type);
		$type = control->get_ticksBgone();
		$iSelect_xt->{_gather_header} = $type;

	  # print("2. iSelect_xt, gather_header: $iSelect_xt->{_gather_header} \n");

	}
	else {
		print("iSelect_xt, gather_header: unexpected value \n\n");
	}
}

=head2  sub file_in

 Required file name
 on which to pick  mute values
 print("$iSelect_xt->{_inbound}\n\n");
 
=cut

sub file_in {

	my ( $self, $file_in ) = @_;