11 lines
245 B
Fortran
11 lines
245 B
Fortran
FUNCTION elle(phi,ak)
|
|
REAL elle,ak,phi
|
|
CU USES rd,rf
|
|
REAL cc,q,s,rd,rf
|
|
s=sin(phi)
|
|
cc=cos(phi)**2
|
|
q=(1.-s*ak)*(1.+s*ak)
|
|
elle=s*(rf(cc,q,1.)-((s*ak)**2)*rd(cc,q,1.)/3.)
|
|
return
|
|
END
|