cva2 Subroutine

public subroutine cva2(kd, m, q, a)

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

! CVA2 computes a specific characteristic value of Mathieu functions.

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:

22 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 ) KD, the case code:
1, for cem(x,q)  ( m = 0,2,4,...)
2, for cem(x,q)  ( m = 1,3,5,...)
3, for sem(x,q)  ( m = 1,3,5,...)
4, for sem(x,q)  ( m = 2,4,6,...)

Input, integer ( kind = 4 ) M, the order of the Mathieu functions.

Input, real ( kind = 8 ) Q, the parameter of the Mathieu functions.

Output, real ( kind = 8 ) A, the characteristic value.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: kd
integer(kind=4) :: m
real(kind=8) :: q
real(kind=8) :: a

Calls

proc~~cva2~~CallsGraph proc~cva2 cva2 proc~cv0 cv0 proc~cva2->proc~cv0 proc~cvql cvql proc~cva2->proc~cvql proc~cvqm cvqm proc~cva2->proc~cvqm proc~refine refine proc~cva2->proc~refine proc~cv0->proc~cvql proc~cv0->proc~cvqm proc~cvf cvf proc~refine->proc~cvf

Called by

proc~~cva2~~CalledByGraph proc~cva2 cva2 proc~mtu0 mtu0 proc~mtu0->proc~cva2 proc~mtu12 mtu12 proc~mtu12->proc~cva2