align="justify"> ZR=NV +2 TO 11
ZR=5.5
Z1=ZR/2.TO 12
Z1=Z / 2.
Z2=Z1 * Z1=(- 1) * (ALOG (Z1) +0.5772156) (NV) 13,13,14
EZ=E=E=CLTO 20
K=1=E
FNV=FNV * K=K +1 (K-NV) 15,15,16
K=1=E
EZ=EZ * EK=K +1 (K-NV) 17,17,18
K=1=CL
CLS=CLS + E / (2 * K)=K +1 (K-NV) 19,19,20
AK=(Z1 ** (2 * V +1)) / (FNV * (2 * V +1))=1=0.0=E / (2 * V +1)
D=S=S + AK * (CLS +0.5 * (B1 + B2) + B5)=B1 + E / K=B2 + E / (K + NV)=B5 * (2 * V - 1. +2 * K) / (2 * V +1. +2 * K)=AK * Z2 * (2 * V - 1. +2 * K) / (K * (NV + K) * (2 * V +1. +2 * K))=K +1=ABS (D)=ABS (S) (ABS (W1-W2)-W1 * SOS) 21,21,22
Y1=EZ * 2 * S (V) 23,23,24
Y2=0.0TO 38
IF (N) 25,25,26
FN=E=ETO 30
K=1=E
EZ=EZ * EK=K +1 (K-N) 27,27,28
K=1=E
FN=FN * K=K +1 (K-N) 29,29,30
IF (V - 1) 31,31,32
FVE=ETO 34
K=1=E
FVE=FVE * K=K +1 (K-V) 33,34,34
AK=Z1 * FVE / FN=0=0.0
S=S + AK=K +1 (K-V +1) 35,35,36
35 AK=AK * EK * Z2 * (2 * K - 1.) / ((2 * K +1.) * (N + K) * (VK))
GO TO 37
Y2=EZ * S
YK1=Y1 + Y2 (Z - 5.5) 39,39,40
IF (Z-NV - 2) 39,39,41
YK=YK1TO 64
CZ=1.253314 * 2. ** (NV)=V-N +0.5=H (F, ZR)-H (F, Z)=1=0.0=1.=NV +5 =4 * NV * NV
S=S+AK*(DH*B3-B4)=B3/(F-K)=(B4+EXP(-ZR)*ZR**(F-K)-EXP(-Z)*Z**(F-K))/(F-K)=AK*(CM-(2*K- 1) ** 2) / (8 * K) (K-KS) 42,42,43
K=K +1 TO 44
YK2=CZ * S
IF (N) 45,45,46
YP=0.0TO 60
K=1=E
EZ=EZ * EK=K +1 (K-N) 47,47,48
Z3=2. / Z=Z3 * Z3 (V) 49,49,50
FV=ETO 52
50 K=1=E
FV=FV * K=K +1
IF (K-N) 51,51,52
IF (N - 1) 53,53,54
FNE=ETO 56
K=1=E
FNE=FNE * K=K +1 (K-N) 55,56,56
AK=EK * Z3 * FV / FNE=0=0.0
S=S + AK=K +1 (K-N) 57,58,58
57 AK=AK * EK * Z4 * (2 * K - 1) * (NK) / (2 * K +1.)
GO TO 59
YP=EZ * S
IF (Z-ZR) 61,61,62
YK3=YP=ZRTO 63
YK4=YP=YK1 + YK2 + YK3-YK4
CONTINUEH (Y, X)
I2=0=0=0.1E - 06=1.0=0.0=X
BN2=1.0=1. / X=2
C1=C (I2-I1) 2,2,3
I2=I2 +1=K/2.-Y=1.TO 4
I1=I1 +1=(K - 1) / 2.=X
AN=B * AN1 + A * AN2=B * BN1 + A * BN2=AN / BN=AN1=AN=BN1=BN=K +1=A...
