Merge pull request #26 from jameswurster/master

(warnings) removed compiler warnings
danieljprice · Jul 15, 2020 · d5c24f0 · d5c24f0
2 parents 51b0d0b + 083eb0e
commit d5c24f0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/main/evwrite.F90 b/src/main/evwrite.F90
@@ -416,7 +416,7 @@ subroutine write_evlog(iprint)
                          use_dust,maxdusttypes,do_radiation,particles_are_injected
  use energies,      only:ekin,etherm,emag,epot,etot,rmsmach,vrms,accretedmass,mdust,mgas,xyzcom
  use energies,      only:erad
- use part,          only:npart,nptmass,ndusttypes
+ use part,          only:nptmass,ndusttypes
  use viscosity,     only:irealvisc,shearparam
  use boundary,      only:dxbound,dybound,dzbound
  use units,         only:unit_density

diff --git a/src/main/utils_indtimesteps.F90 b/src/main/utils_indtimesteps.F90
@@ -385,11 +385,11 @@ subroutine write_binsummary(npart,nbinmax,dtmax,timeperbin,iphase,ibin,xyzh)
     endif
  enddo over_part
 
- ninbin(:) = reduce_mpi('+',ninbin(:))
+ ninbin(:) = int(reduce_mpi('+',ninbin(:)),kind=kind(ninbin))
  ntypesprint = 0
  itypelist(:) = 0
  do itype=1,maxtypes
-    noftypeinbin(:,itype) = reduce_mpi('+',noftypeinbin(:,itype))
+    noftypeinbin(:,itype) = int(reduce_mpi('+',noftypeinbin(:,itype)),kind=kind(noftypeinbin))
     if (any(noftypeinbin(:,itype) > 0)) then
        ntypesprint = ntypesprint + 1
        itypelist(ntypesprint) = itype