Suppress warnings

itpplasma · Jan 17, 2025 · 24cc1f9 · 24cc1f9
1 parent a06d0f5
commit 24cc1f9
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 11 deletions.
diff --git a/src/MC/chamb_divB0.f90 b/src/MC/chamb_divB0.f90
@@ -4,17 +4,22 @@ 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
 
   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
@@ -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
@@ -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