From 5315d4bd6ba3272d8ba6b6944e17bcd502d718cc Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Tue, 6 Feb 2024 17:39:04 +0000
Subject: [PATCH] more loop

---
 Trans/trans.pd | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Trans/trans.pd b/Trans/trans.pd
index 3398fa8..06c6ff7 100644
--- a/Trans/trans.pd
+++ b/Trans/trans.pd
@@ -637,10 +637,10 @@ If uplo is true, A is lower triangular.
 	for (i = 0; i < ind;i++)
 		b[i] = 0;
 
-  for (i = 0; i < $SIZE(n); i++){
-	ind = subscr(i,i);
+  loop(n0) %{
+	ind = subscr(n0,n0);
 	cb[ind] = csqrt(ca[ind]);
-  }
+  %}
 
   for (k = 0; k < $SIZE(n)-1; k++)
     {