clean up to remove compiler warnings

src/disentangle.F90

@@ -12,7 +12,7 @@
 
 module w90_disentangle
 
-  use w90_constants, only: dp,twopi,cmplx_i,cmplx_0,cmplx_1
+  use w90_constants, only: dp,cmplx_0,cmplx_1
   use w90_io, only: io_error,stdout,io_stopwatch
   use w90_parameters
 
@@ -44,7 +44,7 @@ subroutine dis_main()
   !                                                                  !
   !                                                                  !
   !==================================================================!  
-  use w90_io, only: io_file_unit,seedname
+  use w90_io, only: io_file_unit
 
     ! internal variables
     integer                       :: nkp,nkp2,nn,j,ierr,page_unit

src/parameters.F90

@@ -156,7 +156,8 @@ module w90_parameters
   ! [gp-end, Apr 12, 2012]
 
   logical,           public, save :: transport
-  logical,           public, save :: tran_easy_fix ! a boolean that tells the code to use the "easy_fix" method for fixing the WF parities
+  logical,           public, save :: tran_easy_fix ! a boolean that tells the code 
+                          !to use the "easy_fix" method for fixing the WF parities
   character(len=20), public, save :: transport_mode
   real(kind=dp),     public, save :: tran_win_min
   real(kind=dp),     public, save :: tran_win_max

src/plot.F90

@@ -12,7 +12,6 @@
 
 module w90_plot
 
-  use w90_constants, only : dp
   implicit none
 
   private
@@ -26,7 +25,7 @@ module w90_plot
   subroutine plot_main( )
     !============================================!
 
-    use w90_constants,   only : cmplx_0,eps6
+    use w90_constants,   only : eps6
     use w90_io,          only : stdout,io_stopwatch
     use w90_parameters,  only : num_kpts,bands_plot,dos_plot,hr_plot, &
                                 kpt_latt,fermi_surface_plot, &
@@ -475,7 +474,7 @@ subroutine plot_interpolate_gnuplot
     !           in gnuplot format                !
     !============================================!
 
-    use w90_constants,  only : dp,cmplx_0,cmplx_i,twopi
+    use w90_constants,  only : dp
     use w90_io,         only : io_file_unit,seedname
     use w90_parameters, only : num_wann,bands_num_spec_points, &
                                bands_label,num_bands_project
@@ -557,7 +556,6 @@ subroutine plot_interpolate_xmgrace
     !         in Xmgrace format                  !
     !============================================!
 
-    use w90_constants,  only : dp,cmplx_0,cmplx_i,twopi
     use w90_io,         only : io_file_unit,seedname,io_date
     use w90_parameters, only : num_wann,bands_num_spec_points
 

src/postw90/berry_wanint.F90

@@ -865,11 +865,13 @@ subroutine berry
 !          open(AA_unit,FILE=file_name,FORM='FORMATTED')
 
           if(T_odd) then
-             file_name= trim(trim(seedname)//'-sigA_'//&
-                  achar(119+alpha)//achar(119+beta)//'.dat')
+             file_name= trim(seedname)//'-sigA_'//&
+                  achar(119+alpha)//achar(119+beta)//'.dat'
+             file_name=trim(file_name)
           else
-             file_name= trim(trim(seedname)//'-sigS_'//&
-                  achar(119+alpha)//achar(119+beta)//'.dat')
+             file_name= trim(seedname)//'-sigS_'//&
+                  achar(119+alpha)//achar(119+beta)//'.dat'
+             file_name=trim(file_name)
           end if
           write(stdout,'(/,3x,a)') '* '//file_name
           tot_unit=io_file_unit()
@@ -1020,11 +1022,13 @@ subroutine berry
              '-----------------------------------------------------------------'
 
           if(T_odd) then
-             file_name= trim(trim(seedname)//'-sigS_'//&
-                  achar(119+alpha)//achar(119+beta)//achar(119+gamma)//'.dat')
+             file_name= trim(seedname)//'-sigS_'//&
+                  achar(119+alpha)//achar(119+beta)//achar(119+gamma)//'.dat'
+             file_name=trim(file_name)
           else
-             file_name= trim(trim(seedname)//'-rhobw2_'//&
-                  achar(119+alpha)//achar(119+beta)//achar(119+gamma)//'.dat')
+             file_name= trim(seedname)//'-rhobw2_'//&
+                  achar(119+alpha)//achar(119+beta)//achar(119+gamma)//'.dat'
+             file_name=trim(file_name)
           end if
           write(stdout,'(/,3x,a)') '* '//file_name
           tot_unit=io_file_unit()
@@ -1073,11 +1077,13 @@ subroutine berry
           ! Now write the cumulative contribution as a function of frequency
           !
           if(T_odd) then
-             file_name= trim(trim(seedname)//'-cutsigS_'//&
-                  achar(119+alpha)//achar(119+beta)//achar(119+gamma)//'.dat')
+             file_name= trim(seedname)//'-cutsigS_'//&
+                  achar(119+alpha)//achar(119+beta)//achar(119+gamma)//'.dat'
+             file_name=trim(file_name)
           else
-             file_name= trim(trim(seedname)//'-cutrhobw2_'//&
-                  achar(119+alpha)//achar(119+beta)//achar(119+gamma)//'.dat')
+             file_name= trim(seedname)//'-cutrhobw2_'//&
+                  achar(119+alpha)//achar(119+beta)//achar(119+gamma)//'.dat'
+             file_name=trim(file_name)
           end if
           write(stdout,'(/,3x,a)') '* '//file_name
           tot_unit=io_file_unit()

src/utility.F90

@@ -829,7 +829,7 @@ function qe_erf (x)
     !     for abs(x) le 0.47 erf is calculated directly
     !     for abs(x) gt 0.47 erf is calculated via erf(x)=1-erfc(x)
     !
-    use w90_constants, only : dp,pi
+    use w90_constants, only : dp
 
     implicit none  
     real(kind=dp), intent(in) :: x
@@ -864,7 +864,7 @@ function qe_erfc (x)
     !
     !     erfc(x) = 1-erf(x)  - See comments in erf
     !
-    use w90_constants, only : dp,pi
+    use w90_constants, only : dp
     implicit none  
     real(kind=dp),intent(in) :: x
     real(kind=dp)            :: qe_erfc
@@ -924,7 +924,7 @@ function gauss_freq (x)
     !     gauss_freq(x) = (1+erf(x/sqrt(2)))/2 = erfc(-x/sqrt(2))/2
     !             - See comments in erf
     !
-    use w90_constants, only : dp,pi
+    use w90_constants, only : dp
 
     implicit none
     real(kind=dp),intent(in) :: x