mcpbdn.f90

来自「数值计算和数值分析在Fortran下的特殊函数库,是数值计算的必备」· F90 代码 · 共 24 行

MODULE cpbdn_func
 
! From the book "Computation of Special Functions"
!      by Shanjie Zhang and Jianming Jin
!   Copyright 1996 by John Wiley & Sons, Inc.
! The authors state:
!   "However, we give permission to the reader who purchases this book
!    to incorporate any of these programs into his or her programs
!    provided that the copyright is acknowledged."
 
IMPLICIT NONE
INTEGER, PARAMETER    :: dp = SELECTED_REAL_KIND(12, 60)
REAL (dp), PARAMETER  :: pi = 3.141592653589793_dp

CONTAINS
 

SUBROUTINE cpbdn(n, z, cpb, cpd)

!     ==================================================
!     Purpose: Compute the parabolic cylinder functions
!               Dn(z) and Dn'(z) for a complex argument
!     Input:   z --- Complex argument of Dn(z)
!              n --- Order of Dn(z)  ( n=0,