Preparation of cylm0(=ylm(ip,i)), cylmt1(=dylm/dtheta), cylmt2(=d2ylm/dt2), cylmf1, cylmf2 are for fai. cylmtf=d2ylm/dfdt i=1,2,....,(lmax+1)**2
Warning
A hard coded loop dimension is used here (parameter ijd
)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | LMAX | ||||
double precision | :: | COSX(IJD) | ||||
double precision | :: | FAI(IJD) | ||||
integer | :: | LPOT2P | ||||
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) |