add double complex in mpistub.f90

impact-lbl · Apr 18, 2024 · 53f1a97 · 53f1a97
1 parent ff3be39
commit 53f1a97
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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