diff --git a/src/ejecta/ejecta_ray_pattern_function.f90 b/src/ejecta/ejecta_ray_pattern_function.f90
index 2f0e9d4b..26d00f81 100644
--- 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
\ No newline at end of file
+end function ejecta_ray_pattern_function
\ No newline at end of file