From 24cc1f9727cbe01f540728edcac4ab46faaa0458 Mon Sep 17 00:00:00 2001
From: Christopher Albert <albert@tugraz.at>
Date: Fri, 17 Jan 2025 23:46:43 +0100
Subject: [PATCH] Suppress warnings

---
 src/MC/chamb_divB0.f90        | 15 ++++++++++-----
 src/MC/sub_alpha_lifetime.f90 |  4 ++--
 test/source/test_arnoldi.f90  | 10 ++++++----
 3 files changed, 18 insertions(+), 11 deletions(-)

diff --git a/src/MC/chamb_divB0.f90 b/src/MC/chamb_divB0.f90
index 609425f8..47414d89 100644
--- a/src/MC/chamb_divB0.f90
+++ b/src/MC/chamb_divB0.f90
@@ -4,7 +4,7 @@ subroutine chamb(y,phi,ierr)
   !  Input parameters:
   !            formal: y(i) - coordinates on the poloidal cross section
   !                    phi  - toroidal angle
-  ! Outout parameters:
+  ! Output parameters:
   !            formal: ierr -error code (0 if the point is inside 1 - othervice)
 
   use libneo_kinds, only : real_kind
@@ -12,9 +12,14 @@ subroutine chamb(y,phi,ierr)
   implicit none
 
 
-  integer :: ierr,ir,ip,iz
-  real(kind=real_kind) :: phi
-  real(kind=real_kind), dimension(2) :: y
+  real(kind=real_kind), dimension(2), intent(in) :: y
+  real(kind=real_kind), intent(in) :: phi
+  integer, intent(out) :: ierr
 
-  ierr = 0  ! dummy routine here. TODO: implement
+  ! dummy routine here. TODO: implement
+  associate(dummy => y)
+  end associate
+  associate(dummy => phi)
+  end associate
+  ierr = 0
 end subroutine chamb
diff --git a/src/MC/sub_alpha_lifetime.f90 b/src/MC/sub_alpha_lifetime.f90
index 9e2264bf..a9b555e5 100644
--- a/src/MC/sub_alpha_lifetime.f90
+++ b/src/MC/sub_alpha_lifetime.f90
@@ -159,7 +159,7 @@ subroutine orbit_timestep(z,dtau,dtaumin,ierr)
   real(kind=real_kind), parameter :: relerr=1d-6
   real(kind=real_kind), parameter :: vdr_dv=0.03d0
 
-  integer :: ierr,j
+  integer :: ierr
   real(kind=real_kind) :: dtau,dtaumin,phi,tau1,tau2
 
   real(kind=real_kind), dimension(2)    :: y
@@ -400,7 +400,7 @@ subroutine regst(z,dtau,ierr)
   integer, parameter          :: ndim=5
   real(kind=real_kind), parameter :: relerr=1d-6
 
-  integer :: ierr,j
+  integer :: ierr
   real(kind=real_kind) :: dtau,tau1,tau2
 
   real(kind=real_kind), dimension(ndim) :: z
diff --git a/test/source/test_arnoldi.f90 b/test/source/test_arnoldi.f90
index 9e959a71..05ff63ae 100644
--- a/test/source/test_arnoldi.f90
+++ b/test/source/test_arnoldi.f90
@@ -1,5 +1,7 @@
 program test_arnoldi
+#ifdef PARALLEL
   use mpiprovider_module, only : mpro
+#endif
 
   use arnoldi, only: calc_ritz_eigenvalues, leigen,ngrow,tol,eigvecs
   use libneo_kinds, only : complex_kind
@@ -114,7 +116,7 @@ program test_arnoldi
 contains
 
   subroutine next_iteration(n, hold, hnew)
-    use libneo_kinds, only : real_kind, complex_kind
+    use libneo_kinds, only : complex_kind
 
     implicit none
 
@@ -125,9 +127,9 @@ subroutine next_iteration(n, hold, hnew)
     complex(kind=complex_kind) :: alpha, beta, x(n), y(n)
 
     x = hold+yvec
-    y = cmplx(0d0,0d0)
-    alpha = cmplx(1d0,0d0)
-    beta = cmplx(0d0,0d0)
+    y = cmplx(0d0,0d0,kind=complex_kind)
+    alpha = cmplx(1d0,0d0,kind=complex_kind)
+    beta = cmplx(0d0,0d0,kind=complex_kind)
     call zgemv('N',n,n,alpha,mmat,n,x,1,beta,y,1)
     hnew = y
   end subroutine next_iteration