rmn1 Subroutine

public subroutine rmn1(m, n, c, x, df, kd, r1f, r1d)

************80

! RMN1 computes prolate and oblate spheroidal functions of the first kind.

Discussion:

This procedure computes prolate and oblate spheroidal radial
functions of the first kind for given m, n, c and x.

Licensing:

This routine is copyrighted by Shanjie Zhang and Jianming Jin.  However, 
they give permission to incorporate this routine into a user program 
provided that the copyright is acknowledged.

Modified:

29 July 2012

Author:

Shanjie Zhang, Jianming Jin

Reference:

Shanjie Zhang, Jianming Jin,
Computation of Special Functions,
Wiley, 1996,
ISBN: 0-471-11963-6,
LC: QA351.C45.

Parameters:

Input, integer ( kind = 4 ) M, the mode parameter;  M = 0, 1, 2, ...

Input, integer ( kind = 4 ) N, mode parameter, N = M, M + 1, M + 2, ...

Input, real ( kind = 8 ) C, spheroidal parameter.

Input, real ( kind = 8 ) X, the argument.

Input, real ( kind = 8 ) DF(*), the expansion coefficients.

Input, integer ( kind = 4 ) KD, the function code.
1, the prolate function.
-1, the oblate function.

Output, real ( kind = 8 ) R1F, R1D, the function and derivative.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: m
integer(kind=4) :: n
real(kind=8) :: c
real(kind=8) :: x
real(kind=8) :: df(200)
integer(kind=4) :: kd
real(kind=8) :: r1f
real(kind=8) :: r1d

Calls

proc~~rmn1~~CallsGraph proc~rmn1 rmn1 proc~sckb sckb proc~rmn1->proc~sckb proc~sphj sphj proc~rmn1->proc~sphj proc~msta1 msta1 proc~sphj->proc~msta1 proc~msta2 msta2 proc~sphj->proc~msta2 proc~envj envj proc~msta1->proc~envj proc~msta2->proc~envj

Called by

proc~~rmn1~~CalledByGraph proc~rmn1 rmn1 proc~rmn2so rmn2so proc~rmn2so->proc~rmn1 proc~rswfo rswfo proc~rswfo->proc~rmn1 proc~rswfo->proc~rmn2so proc~rswfp rswfp proc~rswfp->proc~rmn1