Some potentially useful functions

[zhanglw0521]

I am guessing that the following foundamental operations are worth being incorporated in ACE.jl, which may be used to resolve #136.

adjoint(A::SphericalMatrix{L1, L2, LEN1, LEN2, T, LL}) where {L1, L2, LEN1, LEN2, T, LL} = SphericalMatrix(A.val', Val{L2}(), Val{L1}())
transpose(A::SphericalMatrix{L1, L2, LEN1, LEN2, T, LL}) where {L1, L2, LEN1, LEN2, T, LL} = SphericalMatrix(transpose(A.val), Val{L2}(), Val{L1}())
/(A::SphericalMatrix{L1, L2, LEN1, LEN2, T, LL}, b::Number) where {L1, L2, LEN1, LEN2, T, LL} = SphericalMatrix(A.val/b, Val{L1}(), Val{L2}())

[cortner]

Interesting suggestion. Thank you.