Fixed bad interface

MintonGroup · Jul 23, 2021 · 5abbc6b · 5abbc6b
1 parent 638bd45
commit 5abbc6b
Showing 1 changed file with 11 additions and 9 deletions.
diff --git 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