remove obsolete forall

JeromeCCP9 · Jan 10, 2024 · 634c75e · 634c75e
1 parent 17684fc
commit 634c75e
Showing 1 changed file with 5 additions and 3 deletions.
diff --git 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