mrctj.for

特殊函数的fortran代码

        PROGRAM MRCTJ
C
C       =======================================================
C       Purpose: This program computes the Riccati-Bessel 
C                functions of the first kind, and their
C                derivatives using subroutine RCTJ
C       Input:   x --- Argument of Riccati-Bessel function
C                n --- Order of jn(x)  ( 0