Skip to content

Commit

Permalink
Merge pull request #5 from ckormanyos/update_comments
Browse files Browse the repository at this point in the history
Update comments
  • Loading branch information
ckormanyos authored Aug 29, 2023
2 parents f345e33 + 6727df6 commit f97ca05
Showing 1 changed file with 5 additions and 0 deletions.
5 changes: 5 additions & 0 deletions gamma.f
Original file line number Diff line number Diff line change
Expand Up @@ -22,6 +22,9 @@ SUBROUTINE TGAMMA ( X, GA )

C N[Series[1/Gamma[z], {z, 0, 48}], 51]
C Table[SeriesCoefficient[%, n], {n, 48}]
C ... and the Series generation takes several minutes.
C Don't concatenate these (potentially nested) operations,
C as that did not end at all, at least not for me.

DATA G/+1.0Q+00,
& +5.77215664901532860606512090082402431042159335939924Q-01,
Expand Down Expand Up @@ -140,6 +143,8 @@ PROGRAM GAMMA

END

C Program Output:
C
C 0.947395504039301942134227647281424E+00
C 0.110784755653406415338349971053114E+01
C 0.271139823924390323650711692085896E+01
Expand Down

0 comments on commit f97ca05

Please sign in to comment.