angdelta Function

public pure function angdelta(a, b, c)

calculate the function delta as defined in varshalovich et al. for use in 6-j symbol:

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: a
integer, intent(in) :: b
integer, intent(in) :: c

Return Value real(kind=8)