$AstPDSlackHash{$aststartendwclks} = join (" ",$aststartendwclks,$astpdslack);
$PTPDSlackHash{$ptstartendwclks} = join (" ",$ptstartendwclks,$ptpdslack);<br>

foreach (keys %AstPDSlackHash) {
	print XLOUT ("$AstPDSlackHash{$_} $PTPDSlackHash{$_}\n") if exists $PTPDSlackHash{$_};
}

##</code><code>##

for ($i = 7; $i <= $astlast; $i++) {$astmasterlist = join (" ",$astmaterlist,$in2sal&#91$i&#93);
}

for ($i = 7; $i <= $ptlast; $i++) {$ptmasterlist = join (" ",$ptmasterlist,$in2sal&#91$i&#93);}


##</code><code>##

$AstPDSlackHash{$aststartendwclks,$astmasterlist} = join (" ",$aststartendwclks,$astpdslack,$astmasterlist);

$PTPDSlackHash{$ptstartendwclks,$ptmasterlist} = join (" ",$ptstartendwclks,$ptpdslack,$ptmasterlist);

foreach ($astmasterlist %AstPDSlackHash) {
	print XLOUT2 ("$AstPDSlackHash{$_} $PTPDSlackHash{$_}\n") if $ptmasterlist !exists $PTPDSlackHash{$_};
}