We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3258e58 commit c6e4ffcCopy full SHA for c6e4ffc
src/stdlib_math.fypp
@@ -474,14 +474,14 @@ contains
474
#:endfor
475
476
#:for k1, t1 in REAL_KINDS_TYPES
477
- pure elemental function deg2rad_${k1}$(theta)result(result)
+ elemental function deg2rad_${k1}$(theta)result(result)
478
${t1}$, intent(in) :: theta
479
${t1}$ :: result
480
result = theta * PI_${k1}$ / 180.0_${k1}$
481
482
end function deg2rad_${k1}$
483
484
- pure elemental function rad2deg_${k1}$(theta)result(result)
+ elemental function rad2deg_${k1}$(theta)result(result)
485
486
487
result = theta * 180.0_${k1}$ / PI_${k1}$
0 commit comments