Fix error in cgtsv

wlmb · Jan 5, 2025 · da86c7c · da86c7c
1 parent b71ef36
commit da86c7c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Photonic/Utils.pm b/lib/Photonic/Utils.pm
@@ -350,7 +350,7 @@ sub vectors2Dlist { #2D vector fields ready for gnuploting
 
 sub cgtsv {
     confess "Wrong number of arguments" unless @_ == 4;
-    my ($c, $d, $e, $b) = map $_->new_or_inplace($_), @_;
+    my ($c, $d, $e, $b) = map $_->new_or_inplace, @_;
     my $i = PDL::LinearAlgebra::Complex::cgtsv($c, $d, $e, $b);
     confess "Error solving tridiag system: info=$i" if $i->any;
     $b;