view release on metacpan or  search on metacpan

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

sub calc {

=head2 establish par file names

 TODO if no sorting is ever needed
 rm file name from $itemp_picks_sorted_par to itemp_picks

=cut

    $mkparfile_in = $itemp_picks_ . $iPicks2par->{_file_in};

    $mkparfile_out = $itemp_picks_sorted_par_ . $iPicks2par->{_file_in};

    $iPicks2par->{_TX_inbound}  = $DATA_SEISMIC_TXT . '/' . $mkparfile_in;
    $iPicks2par->{_TX_outbound} = $DATA_SEISMIC_TXT . '/' . $mkparfile_out;

    # print("iPicks2par,calc,inbound is: $iPicks2par->{_TX_inbound} \n");

    $mkparfile->clear();
    $mkparfile->string1('t');
    $mkparfile->string2('x');
    $mkparfile[1] = $mkparfile->Step();

    # SORT a TEXT FILE
    my @sort;
    $sort[1] = (
        " sort 			\\
		-n								\\
		"
    );

=head2 DEFINE FLOW(S)
 
 
 In the old manner (non oops):

	$flow[1] = (" 						\\
		$mkparfile[1] 					\\
		< $mkparfile_inbound[1]			\\
		>$mkparfile_outbound[1]			\\
										\\
		"); 

=cut

    #   print("Regular xt data\n\n");

    @items = (
        $sort[1], $in, $iPicks2par->{_TX_inbound},
        $to, $mkparfile[1], $out, $iPicks2par->{_TX_outbound}
    );

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

=head2

  RUN FLOW(S)
  output copy of picked data points
  only occurs after the number of tries
  is updated

=cut

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

=pod

  LOG FLOW(S)TO SCREEN AND FILE

=cut

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

}    # end calc subroutine

1;