From 1a4e628b9822a7203a1417d18836dfe2ca46e228 Mon Sep 17 00:00:00 2001 From: Austin Michael Blevins Date: Tue, 15 Nov 2022 09:49:42 -0500 Subject: [PATCH] code compiles with new function --- src/ejecta/ejecta_ray_pattern_function.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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