From 634c75ee948d2f958a795a2df4ba842ba021c25e Mon Sep 17 00:00:00 2001
From: Jerome Jackson <jerome@neuroplug.net>
Date: Wed, 10 Jan 2024 11:46:11 +0000
Subject: [PATCH] remove obsolete forall

---
 src/utility.F90 | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/utility.F90 b/src/utility.F90
index 1307728be..d311670a2 100644
--- a/src/utility.F90
+++ b/src/utility.F90
@@ -219,9 +219,11 @@ subroutine utility_zgemmm(a, transa, b, transb, c, transc, prod1, eigval, prod2)
 
     if (present(prod2) .and. present(eigval)) then
       ! tmp = diag(eigval).tmp
-      forall (i=1:nb, j=1:mc)
-      tmp(i, j) = eigval(i)*tmp(i, j)
-      end forall
+      do j = 1, mc
+        do i = 1, nb
+          tmp(i, j) = eigval(i)*tmp(i, j)
+        enddo
+      enddo
       ! prod2 = op(a).tmp
       call utility_zgemm_new(a, tmp, prod2, transa, 'N')
     end if