1 MODULE spherical_harmonics
2 INTEGER, PARAMETER :: dp
= SELECTED_REAL_KIND ( 14, 200 )
4 FUNCTION dlegendre (x
, l
, m
) RESULT (dplm
)
16 IF ( l
== mm
+ 1 ) THEN
24 END FUNCTION dlegendre
25 END MODULE spherical_harmonics
26 ! { dg-final { cleanup-modules "spherical_harmonics" } }