msta2 Function

public function msta2(x, n, mp)

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

! MSTA2 determines a backward recurrence starting point for Jn(x).

Discussion:

This procedure determines the starting point for a backward
recurrence such that all Jn(x) has MP significant digits.

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:

08 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, real ( kind = 8 ) X, the argument of Jn(x).

Input, integer ( kind = 4 ) N, the order of Jn(x).

Input, integer ( kind = 4 ) MP, the number of significant digits.

Output, integer ( kind = 4 ) MSTA2, the starting point.

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: x
integer(kind=4) :: n
integer(kind=4) :: mp

Return Value integer(kind=4)


Calls

proc~~msta2~~CallsGraph proc~msta2 msta2 proc~envj envj proc~msta2->proc~envj

Called by

proc~~msta2~~CalledByGraph proc~msta2 msta2 proc~cikna cikna proc~cikna->proc~msta2 proc~ciknb ciknb proc~ciknb->proc~msta2 proc~cikva cikva proc~cikva->proc~msta2 proc~cikvb cikvb proc~cikvb->proc~msta2 proc~cjyna cjyna proc~cjyna->proc~msta2 proc~cjynb cjynb proc~cjynb->proc~msta2 proc~cjyva cjyva proc~cjyva->proc~msta2 proc~cjyvb cjyvb proc~cjyvb->proc~msta2 proc~csphik csphik proc~csphik->proc~msta2 proc~csphjy csphjy proc~csphjy->proc~msta2 proc~ikna ikna proc~ikna->proc~msta2 proc~iknb iknb proc~iknb->proc~msta2 proc~ikv ikv proc~ikv->proc~msta2 proc~jyna jyna proc~jyna->proc~msta2 proc~jynb jynb proc~jynb->proc~msta2 proc~jyv jyv proc~jyv->proc~msta2 proc~lamn lamn proc~lamn->proc~msta2 proc~lamv lamv proc~lamv->proc~msta2 proc~rctj rctj proc~rctj->proc~msta2 proc~sphi sphi proc~sphi->proc~msta2 proc~sphj sphj proc~sphj->proc~msta2 proc~ch12n ch12n proc~ch12n->proc~ciknb proc~ch12n->proc~cjynb proc~mtu12 mtu12 proc~mtu12->proc~jynb proc~rmn1 rmn1 proc~rmn1->proc~sphj 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