From 53f1a974f8591c7a1cec108c161daf4ec938625e Mon Sep 17 00:00:00 2001
From: Ji Qiang <jqiang@lbl.gov>
Date: Wed, 17 Apr 2024 20:23:57 -0700
Subject: [PATCH] add double complex in mpistub.f90

---
 src/mpistub.f90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/mpistub.f90 b/src/mpistub.f90
index 4397d26..f7d1598 100644
--- a/src/mpistub.f90
+++ b/src/mpistub.f90
@@ -35,7 +35,7 @@ module mpistub
         end interface
         interface MPI_BCAST
           module procedure MPI_BCAST1,MPI_BCAST2,MPI_BCAST3,MPI_BCAST4,&
-          MPI_BCAST5,MPI_BCAST6    
+          MPI_BCAST5,MPI_BCAST6,MPI_BCAST7    
         end interface
       contains
         !mpi initialization
@@ -133,6 +133,10 @@ subroutine MPI_BCAST6(rffile,num1,MPI_INTEGER,num2,comm2d,ierr)
           integer :: comm2d
         end subroutine MPI_BCAST6
 
+        subroutine MPI_BCAST7(rffile,num1,MPI_INTEGER,num2,comm2d,ierr)
+          double complex, dimension(:,:,:) :: rffile
+          integer :: comm2d
+        end subroutine MPI_BCAST7
         !total number of processors
         subroutine MPI_COMM_SIZE(MPI_COMM_WORLD,np,ierr)
           np = 1