Generate an angular mesh and spherical harmonics at those mesh points. For an angular integration the weights are generated
New call to subr. ylmderiv for accurate derivatives of spherical harmonics.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | LMAX | ||||
double precision | :: | YR(IJD,(LMAX+1)**2) | ||||
double precision | :: | WTYR(IJD,(LMAX+1)**2) | ||||
double precision | :: | RIJ(IJD,3) | ||||
integer | :: | IJD | ||||
integer | :: | LMMAXD | ||||
double precision | :: | THET(IJD) | ||||
double precision | :: | YLM(IJD,LMMAXD) | ||||
double precision | :: | DYLMT1(IJD,LMMAXD) | ||||
double precision | :: | DYLMT2(IJD,LMMAXD) | ||||
double precision | :: | DYLMF1(IJD,LMMAXD) | ||||
double precision | :: | DYLMF2(IJD,LMMAXD) | ||||
double precision | :: | DYLMTF(IJD,LMMAXD) |