diff --git a/src/ejecta/module_ejecta.f90 b/src/ejecta/module_ejecta.f90 index 1e380591..3ca8af2f 100644 --- a/src/ejecta/module_ejecta.f90 +++ b/src/ejecta/module_ejecta.f90 @@ -40,15 +40,17 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,age,age_r end subroutine ejecta_emplace end interface - interface - subroutine ejecta_ray_pattern(user,surf,crater,inc,xi,xf,yi,yf,ejdistribution) - use module_globals - type(usertype),intent(in) :: user - type(surftype),dimension(:,:),intent(in) :: surf - type(cratertype),intent(in) :: crater - integer(I4B),intent(in) :: inc,xi,xf,yi,yf - real(DP),dimension(xi:xf,yi:yf),intent(out) :: ejdistribution - end subroutine ejecta_ray_pattern + interface + subroutine ejecta_ray_pattern(user,surf,crater,inc,xi,xf,yi,yf,diffdistribution,ejdistribution) + use module_globals + implicit none + type(usertype),intent(in) :: user + type(surftype),dimension(:,:),intent(in) :: surf + type(cratertype),intent(inout) :: crater + integer(I4B),intent(in) :: inc,xi,xf,yi,yf + real(DP),dimension(xi:xf,yi:yf),intent(out) :: diffdistribution + real(DP),dimension(xi:xf,yi:yf),intent(out) :: ejdistribution + end subroutine ejecta_ray_pattern end interface interface