my $count = verifyCount (@_);
    	my $length = verifyLength (@_);

    	if (($count == $countError) || ($length == $lengthError)) {
		return $error;
	}
	else {
		my @input = @_;
		my $result = shift(@input);
		my @result = @{$result};

		while (scalar @input > 0) { 
			my $v1 = shift(@input);
	    		my @v1vals = @{$v1};

	    		foreach $i (0..($length-1))  {
				$result[$i] = ($result[$i]+$v1vals[$i]);
	    		}
		}
		return @result;
    	}

	my $count = verifyCount (@_);
    	my $length = verifyLength (@_);

    	if (($count == $countError) || ($length == $lengthError)) {
		return $error;
	}
	else {
		my @input = @_;
		my $interim = shift(@input);
		my @interim = @{$interim};

		while (scalar @input > 0) { 
			my $v1 = shift(@input);
	    		my @v1vals = @{$v1};

	    		foreach $i (0..($length-1))  {
				$interim[$i] = ($interim[$i]+$v1vals[$i]);
	    		}
		}
		
		my @result;
		foreach $ii (0..($length-1)) {
			$result[$ii] = ($interim[$ii]/$count);
		}
		return @result;
	}

	my $count = verifyCount (@_);
   	my $length = verifyLength(@_);
	if ($count == $countError || $count > 2) {
#		print "Error - Unable to perform an Inner Product on more than two vectors.\n";
		return $error;
    	}
    	else {
		if ($length == $lengthError) {
			return $error;
		}
		else {
			my ($v1,$v2) = @_;
	    		my @v1vals = @{$v1};
	    		my @v2vals = @{$v2};
	
	    		my $sum = 0.0;
	    		my $l = scalar @v1vals;
	    		foreach $i (0..($l-1))  {
				$sum += $v1vals[$i]*$v2vals[$i];
	    		}
	    		return $sum;
		}
    	}

	my $count = verifyCount (@_);
    	my $length = verifyLength (@_);

    	if (($count == $countError) || ($length == $lengthError)) {
		return $error;
	}
	else {
		my @input = @_;
		my $result = shift(@input);
		my @result = @{$result};

		while (scalar @input > 0) { 
			my $v1 = shift(@input);
	    		my @v1vals = @{$v1};

	    		foreach $i (0..($length-1))  {
				$result[$i] = ($result[$i]-$v1vals[$i]);
	    		}
		}
		return @result;
    	}

	$count = scalar @_;
    	if ($count < 2)  {
		return -1;
    	}
    	else {
		return $count;
    	}

    	my @array = @_;
    	$v = pop(@array);
    	my $length = (scalar @{$v});
    	my $index = (scalar @array);
    
    	for $i (0..$index) {
		$vt = $_[$i];
		if ( scalar @{$vt} != $length ) {
	    		return -1;
		}
		else {
	    		return $length;
		}
    	}