Updated some functions due to elemental keyword

Author: prathi-wind

src/common/m_helper_basic.f90

@@ -56,14 +56,16 @@ end function f_is_default
     !! @param var_array Array to check.
     logical pure function f_all_default(var_array) result(res)
         real(wp), intent(in) :: var_array(:)
-        logical :: res_array(size(var_array))
-        integer :: i
+        ! logical :: res_array(size(var_array))
+        ! integer :: i
 
-        do i = 1, size(var_array)
-            res_array(i) = f_is_default(var_array(i))
-        end do
+        res = all(f_is_default(var_array))
 
-        res = all(res_array)
+        ! do i = 1, size(var_array)
+        !     res_array(i) = f_is_default(var_array(i))
+        ! end do
+
+        ! res = all(res_array)
     end function f_all_default
 
     !> Checks if a real(wp) variable is an integer.

src/pre_process/m_model.fpp

@@ -532,7 +532,7 @@ contains
     !! @param ray      Ray.
     !! @param triangle Triangle.
     !! @return         True if the ray intersects the triangle, false otherwise.
-    pure function f_intersects_triangle(ray, triangle) result(intersects)
+    pure elemental function f_intersects_triangle(ray, triangle) result(intersects)
 
         type(t_ray), intent(in) :: ray
         type(t_triangle), intent(in) :: triangle