src: remove unused parameters

src/beamdata.f90

@@ -10,7 +10,7 @@ contains
   subroutine init_btr(rtrparam,ywork,ypwork,xc,du1,gri,ggri,psjki,ppabs,ccci, &
                       tau0,alphaabs0,dids0,ccci0,p0jk,ext,eyt,iiv)
     use gray_params, only : raytracing_parameters
-    use const_and_precisions, only : zero,half,two
+    use const_and_precisions, only : half,two
     implicit none
     type(raytracing_parameters), intent(in) :: rtrparam
     real(wp_),  dimension(:,:), intent(out), pointer :: ywork,ypwork, &

src/beams.f90

@@ -50,7 +50,6 @@ contains
     ! Reads the wave launcher parameters for the case
     ! where w(z, α) and 1/R(z, α) depend on the launcher angle α.
 
-    use const_and_precisions, only : pi,vc=>ccgs_
     use gray_params,          only : antenna_parameters
     use simplespline,         only : spli, difcs
     use utils,                only : get_free_unit,locate

src/coreprofiles.f90

@@ -18,7 +18,6 @@ contains
     real(wp_), intent(in) :: psin
     real(wp_), intent(out) :: dens,ddens
 ! local variables
-    integer, parameter :: nn=3, nn1=nn+1, nn2=nn+2
     integer :: ier,nu
     real(wp_) :: profd,dprofd,dpsib,tt,fp,dfp,fh,dfh
     real(wp_), dimension(1) :: xxs,ffs

src/dispersion.f90

@@ -44,8 +44,7 @@ subroutine harmnumber(yg,mu,npl,nhmin,nhmax,iwr)
 ! local constants
 !  expcr = maximum value for mu*(gamma-1) above which the distribution function
 !          is considered to be 0
-!  eps   = small number to have a correct rounding when ygnc/yg is an integer
+  real(wp_), parameter :: expcr=16.0_wp_
-  real(wp_), parameter :: expcr=16.0_wp_,eps=1.e-8_wp_
 ! arguments
 !  yg  = omegac/omega
 !  npl = parallel N
@@ -1333,4 +1332,4 @@ end subroutine fsup
     zi =  u*rpi
   end subroutine zetac
 !
-end module dispersion
+end module dispersion

src/eccd.f90

@@ -863,7 +863,7 @@ contains
     REAL(wp_), INTENT(out) :: K,dKdu
     INTEGER :: nfun
     REAL(wp_) :: gam2,err,flag,Integr
-    REAL(wp_), PARAMETER :: a = zero, b = one, rtol = 1e-4_wp_, atol = 1e-12_wp_
+    REAL(wp_), PARAMETER :: rtol = 1e-4_wp_, atol = 1e-12_wp_
 
     r2 = (1+Zeff)/fc   ! global parameter needed for integrand, HSL_f(t)
 

src/graycore.f90

@@ -617,7 +617,7 @@ contains
       ywrk0,ypwrk0,xc0,du10,gri,ggri,index_rt)
 !   beam tracing initial conditions  igrad=1
 !   !!!!!! check ray tracing initial conditions   igrad=0 !!!!!!
-    use const_and_precisions, only : wp_,izero,zero,one,pi,half,two,degree,ui=>im
+    use const_and_precisions, only : wp_,zero,one,pi,half,two,degree,ui=>im
     use math, only : catand
     use gray_params, only : idst
     use beamdata, only : nray,nrayr,nrayth,rwmax
@@ -1227,7 +1227,7 @@ contains
 
   subroutine plas_deriv(xv,bres,xgcn,psinv,dens,btot,bv,derbv, &
      xg,yg,derxg,deryg,ajphi)
-    use const_and_precisions, only : wp_,zero,pi,ccj=>mu0inv
+    use const_and_precisions, only : wp_,zero,ccj=>mu0inv
     use gray_params, only : iequil
     use equilibrium, only : psia,equinum_fpol,equinum_psi,equian,sgnbphi
     use coreprofiles, only : density
@@ -1523,8 +1523,6 @@ contains
     real(wp_),intent(out) :: anprre,anprim,alpha,didp
     integer, intent(out) :: nhmin,nhmax,iokhawa
     integer, intent(out) :: error
-! local constants
-    real(wp_), parameter :: taucr=12.0_wp_,xxcr=16.0_wp_,eps=1.e-8_wp_
 ! local variables
     real(wp_) :: rbavi,rrii,rhop
     integer :: lrm,ithn,ierrcd
@@ -2044,7 +2042,6 @@ bb: do
 
 
   subroutine print_surfq(qval)
-    use const_and_precisions, only : wp_, one
     use equilibrium, only : psinr,nq,fq,frhotor,rmaxis,zmaxis, &
                             zbsup,zbinf
     use magsurf_data, only : contours_psi,npoints,print_contour

src/magsurf_data.f90

@@ -115,7 +115,7 @@ contains
     integer, parameter :: nnintp=101,ncnt=100,nlam=101,ksp=3,     &
              njest=nnintp+ksp+1,nlest=nlam+ksp+1,     &
              lwrk=4*(nnintp+nlam)+11*(njest+nlest)+njest*nnintp+nlest+54, &
-             kwrk=nnintp+nlam+njest+nlest+3,lw01=nnintp*4+nlam*3+nnintp*nlam
+             kwrk=nnintp+nlam+njest+nlest+3
 
     ! local variables
     integer :: ier,ierr,l,jp,inc,inc1,iopt,njp,nlm,ninpr

src/pec.f90

@@ -83,8 +83,6 @@ contains
     use gray_params, only : nnd
     use beamdata, only : nray,nstep
     implicit none
-! local constants
-    real(wp_), parameter :: rtbc=one
 ! arguments
     real(wp_), dimension(nray,nstep), intent(in) :: psjki,ppabs,ccci
     integer, dimension(nray), intent(in) :: iiv

src/polarization.f90

@@ -47,7 +47,7 @@ contains
   end subroutine polellipse
 
   subroutine pol_limit(anv,bv,bres,sox,ext,eyt) !,gam)
-    use const_and_precisions, only : wp_,ui=>im,pi,zero,one
+    use const_and_precisions, only : wp_,ui=>im,zero,one
     implicit none
 ! arguments
     real(wp_), dimension(3), intent(in) :: anv,bv