From 8124ad419dc9b52bfdd2655308bd3f621513a0fd Mon Sep 17 00:00:00 2001
From: Sunny Titus <77051845+Manangka@users.noreply.github.com>
Date: Tue, 6 Aug 2024 18:16:25 +0200
Subject: [PATCH] Fixes a compilation error occurring when using the intel 19.*
 compiler on windows (#1968)

---
 src/Exchange/DisConnExchange.f90 | 4 ++--
 src/Exchange/exg-swfgwf.f90      | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Exchange/DisConnExchange.f90 b/src/Exchange/DisConnExchange.f90
index 5c758cb7d7d..41cb8111ba8 100644
--- a/src/Exchange/DisConnExchange.f90
+++ b/src/Exchange/DisConnExchange.f90
@@ -202,7 +202,7 @@ function noder(this, model, cellid, iout)
     ! -- dummy
     class(DisConnExchangeType) :: this !< instance of exchange object
     class(NumericalModelType), pointer, intent(in) :: model
-    integer(I4B), dimension(:), pointer, intent(in) :: cellid
+    integer(I4B), dimension(:), intent(in) :: cellid
     integer(I4B), intent(in) :: iout !< the output file unit
     integer(I4B) :: noder, node
     !
@@ -231,7 +231,7 @@ function cellstr(this, ndim, cellid, iout)
     ! -- dummy
     class(DisConnExchangeType) :: this !< instance of exchange object
     integer(I4B) :: ndim !< model DIS dimension
-    integer(I4B), dimension(:), pointer, intent(in) :: cellid
+    integer(I4B), dimension(:), intent(in) :: cellid
     integer(I4B), intent(in) :: iout !< the output file unit
     character(len=20) :: cellstr
     character(len=*), parameter :: fmtndim1 = &
diff --git a/src/Exchange/exg-swfgwf.f90 b/src/Exchange/exg-swfgwf.f90
index 567a287bfbf..ce4f5e20da9 100644
--- a/src/Exchange/exg-swfgwf.f90
+++ b/src/Exchange/exg-swfgwf.f90
@@ -562,7 +562,7 @@ function noder(this, model, cellid, iout)
     ! -- dummy
     class(SwfGwfExchangeType) :: this !< instance of exchange object
     class(NumericalModelType), pointer, intent(in) :: model
-    integer(I4B), dimension(:), pointer, intent(in) :: cellid
+    integer(I4B), dimension(:), intent(in) :: cellid
     integer(I4B), intent(in) :: iout !< the output file unit
     integer(I4B) :: noder, node
     !
@@ -591,7 +591,7 @@ function cellstr(this, model, cellid, iout)
     ! -- dummy
     class(SwfGwfExchangeType) :: this !< instance of exchange object
     class(NumericalModelType), pointer, intent(in) :: model
-    integer(I4B), dimension(:), pointer, intent(in) :: cellid
+    integer(I4B), dimension(:), intent(in) :: cellid
     integer(I4B), intent(in) :: iout !< the output file unit
     character(len=20) :: cellstr
     character(len=*), parameter :: fmtndim1 = &