Commit 0b4ca9ec authored by Matthias Redies's avatar Matthias Redies

update modern code

parent 561ba426
......@@ -2,7 +2,7 @@ module m_LegendrePoly
implicit none
contains
real function LegendrePoly(l,x) result(p)
pure function LegendrePoly(l,x) result(p)
implicit none
integer, intent(in) :: l
......@@ -38,7 +38,7 @@ contains
end select
end function LegendrePoly
real function LegendrePoly_scalar(l,x) result(p)
pure function LegendrePoly_scalar(l,x) result(p)
implicit none
integer, intent(in) :: l
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment