code compiles with new function

MintonGroup · Nov 15, 2022 · 1a4e628 · 1a4e628
1 parent cc1c3b9
commit 1a4e628
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/ejecta/ejecta_ray_pattern_function.f90 b/src/ejecta/ejecta_ray_pattern_function.f90
@@ -27,7 +27,7 @@
 !***
 
 !**********************************************************************************************************
-function pattern(theta,r,rmin,rmax,thetari,ej) result(ans)
+function ejecta_ray_pattern_function(theta,r,rmin,rmax,thetari,ej) result(ans)
     use module_globals
     use module_ejecta, EXCEPT_THIS_ONE => ejecta_ray_pattern_function
     implicit none
@@ -96,4 +96,4 @@ pure function ray(theta,thetar,r,n,w) result(ans)
     return
     end function ray
 
-end function pattern
+end function ejecta_ray_pattern_function