mpbdv.f90

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

MODULE pbdv_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  :: dpr = SELECTED_REAL_KIND(12, 60)
 
CONTAINS
 

SUBROUTINE pbdv(v, x, dv, dp, pdf, pdd)

!    ====================================================
!    Purpose: Compute parabolic cylinder functions Dv(x)
!             and their derivatives
!    Input:   x --- Argument of Dv(x)
!             v --- Order of Dv(x)
!    Output:  DV(na) --- Dn+v0(x)
!             DP(na) --- Dn+v0'(x)
!             ( na = |n|, v0 = v-n, |v0| < 1,
!               n = 0,