This module holds rctj, rcty, envj, msta1, msta2, from
special_functions library, donwloaded from:
https://people.sc.fsu.edu/~jburkardt/f_src/special_functions/special_functions.html
Author:
Original FORTRAN77 version by Shanjie Zhang, Jianming Jin.
   FORTRAN90 version by John Burkardt.
Reference:
Shanjie Zhang, Jianming Jin,
   Computation of Special Functions,
   Wiley, 1996,
   ISBN: 0-471-11963-6,
   LC: QA351.C45.
    
        
      
        
Used by 
      
      
          
            
module~~special_functions_mod~~UsedByGraph 
 
module~special_functions_mod 
 
special_functions_mod 
 
module~math_utilities_mod 
 
math_utilities_mod 
 
 
 
module~math_utilities_mod->module~special_functions_mod 
 
 
 
module~radial_coupling_terms_mod 
 
radial_coupling_terms_mod 
 
 
 
module~radial_coupling_terms_mod->module~math_utilities_mod 
 
 
 
module~boundary_conditions_mod 
 
boundary_conditions_mod 
 
 
 
module~boundary_conditions_mod->module~math_utilities_mod 
 
 
 
module~pes_matrix_mod 
 
pes_matrix_mod 
 
 
 
module~pes_matrix_mod->module~math_utilities_mod 
 
 
 
module~pes_matrix_mod->module~radial_coupling_terms_mod 
 
 
 
program~scattering 
 
SCATTERING 
 
 
 
program~scattering->module~radial_coupling_terms_mod 
 
 
 
program~scattering->module~boundary_conditions_mod 
 
 
 
program~scattering->module~pes_matrix_mod 
 
 
 
 
module~propagator_mod 
 
propagator_mod 
 
 
 
program~scattering->module~propagator_mod 
 
 
 
module~propagator_mod->module~pes_matrix_mod 
 
 
 
 
 
 
    Nodes of different colours represent the following: 
    
Graph Key 
 
Module 
 
Module 
 
Submodule 
 
Submodule 
 
Subroutine 
 
Subroutine 
 
Function 
 
Function 
 
Program 
 
Program 
 
This Page's Entity 
 
This Page's Entity 
 
 
 
    
    Solid arrows point from a submodule to the (sub)module which it is
    descended from. Dashed arrows point from a module or program unit to 
    modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
    
      
           
       
     
    
    
    
    
    
    
    
 
    
    Functions 
      
    public  function envj (n, x)  
  
    
          
  utility function used by MSTA1 and MSTA2.
  Arguments 
      
    
      
        Type 
Intent Optional         Attributes 
         
        Name 
         
      
    
        
            
               
              integer(kind=4)
             
 
                           
              
             
            :: 
            n  
            
             
         
        
            
               
              real(kind=8)
             
 
                           
              
             
            :: 
            x  
            
             
         
     
  
    
    Return Value
    real(kind=8) 
     
    
     
   
      
    public  function msta1 (x, mp)  
  
    
          
  determines a backward recurrence starting point for Jn(x).
  Arguments 
      
    
      
        Type 
Intent Optional         Attributes 
         
        Name 
         
      
    
        
            
               
              real(kind=8)
             
 
                           
              
             
            :: 
            x  
            
             
         
        
            
               
              integer(kind=4)
             
 
                           
              
             
            :: 
            mp  
            
             
         
     
  
    
    Return Value
    integer(kind=4) 
     
    
     
   
      
    public  function msta2 (x, n, mp)  
  
    
          
  determines a backward recurrence starting point for Jn(x).
  Arguments 
      
    
      
        Type 
Intent Optional         Attributes 
         
        Name 
         
      
    
        
            
               
              real(kind=8)
             
 
                           
              
             
            :: 
            x  
            
             
         
        
            
               
              integer(kind=4)
             
 
                           
              
             
            :: 
            n  
            
             
         
        
            
               
              integer(kind=4)
             
 
                           
              
             
            :: 
            mp  
            
             
         
     
  
    
    Return Value
    integer(kind=4) 
     
    
     
   
     
    
    
    Subroutines 
      
    public  subroutine rctj (n, x, nm, rj, dj)  
  
    
          
  computes Riccati-Bessel function of the first kind, and derivatives.
  Arguments 
      
    
      
        Type 
Intent Optional         Attributes 
         
        Name 
         
      
    
        
            
               
              integer(kind=4)
             
 
                           
              
             
            :: 
            n  
            
             
         
        
            
               
              real(kind=8)
             
 
                           
              
             
            :: 
            x  
            
             
         
        
            
               
              integer(kind=4)
             
 
                           
              
             
            :: 
            nm  
            
             
         
        
            
               
              real(kind=8)
             
 
                           
              
             
            :: 
            rj (0:n) 
            
             
         
        
            
               
              real(kind=8)
             
 
                           
              
             
            :: 
            dj (0:n) 
            
             
         
     
  
     
   
      
    public  subroutine rcty (n, x, nm, ry, dy)  
  
    
          
  computes Riccati-Bessel function of the second kind, and derivatives.
  Arguments 
      
    
      
        Type 
Intent Optional         Attributes 
         
        Name 
         
      
    
        
            
               
              integer(kind=4)
             
 
                           
              
             
            :: 
            n  
            
             
         
        
            
               
              real(kind=8)
             
 
                           
              
             
            :: 
            x  
            
             
         
        
            
               
              integer(kind=4)
             
 
                           
              
             
            :: 
            nm  
            
             
         
        
            
               
              real(kind=8)
             
 
                           
              
             
            :: 
            ry (0:n) 
            
             
         
        
            
               
              real(kind=8)
             
 
                           
              
             
            :: 
            dy (0:n)