From 812145dadd6ba77b268ba99c199bd1bee2cd7b76 Mon Sep 17 00:00:00 2001
From: Miles Curry <2590700+MiCurry@users.noreply.github.com>
Date: Mon, 21 Sep 2026 11:46:26 -0700
Subject: [PATCH] Correct -T error by correctly allocating EAll_temp

This commit fixes the error that was reported by Xiaolei (@xltu). Eall_temp is
now allocated correctly.
---
 f90/MPI/Main_MPI.f90 | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/f90/MPI/Main_MPI.f90 b/f90/MPI/Main_MPI.f90
index 08e01e66..cfe46b07 100644
--- a/f90/MPI/Main_MPI.f90
+++ b/f90/MPI/Main_MPI.f90
@@ -1163,7 +1163,7 @@ Subroutine Master_job_JmultT(sigma,d,dsigma,eAll,s_hat,comm,label)
      ! nTX is number of transmitters;
      nTx = d%nTx
      if(.not. eAll_temp%allocated) then
-         call create_solnVectorMTX(d%nTx,eAll_temp)
+         call EsMgr_create_solnVectorMTX(eAll_temp, d % nTx, grid=grid)
      end if 
      if (.not. savedSolns )then
          d_temp=d
@@ -1340,8 +1340,7 @@ Subroutine Master_job_Jmult(mHat,m,d,eAll,comm)
      type(solnVectorMTX_t)                             :: eAll_out 
      type(solnVectorMTX_t)                             :: eAll_temp 
      character(80)                                     :: job_name
-  
-   
+
      savedSolns = present(eAll)
      ! over-ride the default communicator, if needed
      if (present(comm)) then ! given communicator