$trans = $i4->clone();
	    if (defined($bhdr->{IMND_read_offset})) {
		$trans->[0][3] = $bhdr->{IMND_read_offset}[0];
		$trans->[1][3] = best_of(
					 $bhdr->{IMND_phase1_offset}[0],
					 $bhdr->{ACQ_phase1_offset}[0],
					 0);
		$trans->[2][3] = $bhdr->{IMND_slice_offset};
	    } else {
		$trans->[0][3] = mean(@{
		    best_of($bhdr->{PVM_ReadOffset}, 
			   $bhdr->{PVM_SPackArrReadOffset})
		       });
		$trans->[1][3] = mean(@{
		    best_of($bhdr->{PVM_Phase1Offset}, 
			   $bhdr->{PVM_SPackArrPhase1Offset})
		       });
		$trans->[2][3] = @{
		    best_of($bhdr->{PVM_SliceOffset}, 
			   $bhdr->{PVM_SPackArrSliceOffset}[0])

	

		       };
	    }