6 # Copyright (C) 2002 Washington University School of Medicine
7 # and Howard Hughes Medical Institute
11 # Author: Christian M. Zmasek
12 # zmasek@genetics.wustl.edu
13 # http://www.genetics.wustl.edu/eddy/people/zmasek/
15 # Last modified: 02/20/02
19 # 1: number of blocks which have a size of block size + 1
20 # 2: name of resampled alignment, inc. query
25 # 7: seed for random number generator for neighbor
26 # 8...: list of node names
34 use lib $FindBin::Bin;
38 &dieWithUnexpectedError( "argumnet count off" );
42 my $block_size = shift( @ARGV );
43 my $larger_blocks = shift( @ARGV );
44 my $align = shift( @ARGV );
45 my $matrix_n = shift( @ARGV );
46 my $name = shift( @ARGV );
47 my $pwd_file = shift( @ARGV );
48 my $temp_dir = shift( @ARGV );
49 my $seed = shift( @ARGV );
59 if ( $larger_blocks > 0 ) {
63 $end = $block_size - 1;
66 for ( $x = 0; $x < scalar( @nodelist ); $x++ ) {
68 $node = $nodelist[ $x ];
70 if ( !defined( $child_pid = fork() ) ) {
71 &dieWithUnexpectedError( "cannot fork" );
73 elsif ( $child_pid ) {
74 # I'm the parent, forking off $nodelist number of children
90 || &dieWithUnexpectedError( "could not \"exec ssh $node /usr/bin/perl $RIO_SLAVE\"" );
94 if ( $larger_blocks > 0 ) {
95 $start += ( $block_size + 1 );
96 $end += ( $block_size + 1 );
98 elsif ( $larger_blocks == 0 ) {
99 $start += ( $block_size + 1 );
103 $start += $block_size;