Merge pull request #8 from mohawk2/type-fix

preserve input type in _to_diagonal
KJ7LNW · Dec 20, 2024 · 86de74c · 86de74c
2 parents 7f7ab6a + 6b3eb20
commit 86de74c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/PDL/IO/Touchstone.pm b/lib/PDL/IO/Touchstone.pm
@@ -1308,7 +1308,7 @@ sub _to_diagonal
 
 	if (!@dims || (@dims == 1 && $dims[0] == 1))
 	{
-		$ret = zeroes($n_ports,$n_ports);
+		$ret = zeroes($v->type,$n_ports,$n_ports);
 		$ret->diagonal(0,1) .= $v;
 	}
 	elsif (@dims == 1 && $dims[0] == $n_ports)