Merge pull request #1012 from KineticTheory/fix_ifort1913_warnings

Fix warnings reported by Intel ifort 19.1.3.
lanl · Jan 10, 2021 · 94cf450 · 94cf450
2 parents 1761272 + 085863d
commit 94cf450
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/c4/fc4/Draco_MPI.F90 b/src/c4/fc4/Draco_MPI.F90
@@ -46,6 +46,7 @@ subroutine check_mpi_error(error)
 #ifdef C4_MPI
     integer                         :: error_string_len, ierror
     character(MPI_MAX_ERROR_STRING) :: error_string
+    external mpi_error_string, MPI_Abort
 
     ! Check and report a nonzero error code
     if (error .ne. 0) then
@@ -62,6 +63,7 @@ end subroutine check_mpi_error
   subroutine fc4_mpi_init(ierr)
     implicit none
     integer, intent(out) :: ierr
+    external mpi_init, mpi_comm_size, mpi_comm_rank
 
     ierr = 0
     fc4_rank = 0
@@ -86,6 +88,7 @@ subroutine fc4_mpi_finalize(ierr)
     implicit none
     integer, intent(out) :: ierr
 #ifdef C4_MPI
+    external mpi_finalize
     call mpi_finalize(ierr)
     call check_mpi_error(ierr)
 #endif
@@ -98,6 +101,7 @@ subroutine fc4_mpi_barrier(ierr)
     implicit none
     integer, intent(out) :: ierr
 #ifdef C4_MPI
+    external mpi_barrier
     call mpi_barrier(MPI_COMM_WORLD,ierr)
     call check_mpi_error(ierr)
 #endif