adding implicit none to interfaces

Author: pmocz

eos/private/eosdt_eval.f90

@@ -58,6 +58,7 @@ subroutine get_values_for_eosdt_interface( &
                skip, ierr)
             use const_def, only: dp
             use eos_def, only: nv
+            implicit none
             integer, intent(in) :: handle
             logical, intent(in) :: dbg
             real(dp), intent(in) :: &

eos/public/eos_def.f90

@@ -41,6 +41,7 @@ subroutine other_eos_frac_interface( &
             frac, dfrac_dlogRho, dfrac_dlogT, &
             ierr)
             use const_def, only: dp
+            implicit none
             integer, intent(in) :: handle ! eos handle; from star, pass s% eos_handle
             integer, intent(in) :: species
             integer, pointer :: chem_id(:) ! maps species to chem id
@@ -68,6 +69,7 @@ subroutine other_eos_interface( &
             Rho, logRho, T, logT, &
             res, d_dlnd, d_dlnT, d_dxa, ierr)
             use const_def, only: dp
+            implicit none
             integer, intent(in) :: handle ! eos handle; from star, pass s% eos_handle
 
             integer, intent(in) :: species

star_data/public/star_pgstar.f90

@@ -36,18 +36,21 @@ module star_pgstar
    abstract interface
 
       subroutine pgstar_plot_interface(id, device_id, ierr)
+         implicit none
          integer, intent(in) :: id, device_id
          integer, intent(out) :: ierr
       end subroutine pgstar_plot_interface
 
       subroutine other_do_plot_in_grid_interface( &
             id, device_id, xleft, xright, ybot, ytop, txt_scale, ierr)
+         implicit none
          integer, intent(in) :: id, device_id
          real, intent(in) :: xleft, xright, ybot, ytop, txt_scale
          integer, intent(out) :: ierr
       end subroutine other_do_plot_in_grid_interface
 
       subroutine pgstar_decorator_interface(id, xmin, xmax, ymin, ymax, plot_num, ierr)
+         implicit none
          integer, intent(in) :: id
          !Not doubles
          real, intent(in) :: xmin, xmax, ymin, ymax