source:
PSPA/parmelaPSPA/trunk/gammp.f
@
315
Last change on this file since 315 was 12, checked in by , 12 years ago | |
---|---|
File size: 220 bytes |
Line | |
---|---|
1 | FUNCTION GAMMP(A,X) |
2 | IF(X.LT.0..OR.A.LE.0.)PAUSE |
3 | IF(X.LT.A+1.)THEN |
4 | CALL GSER(GAMMP,A,X,GLN) |
5 | ELSE |
6 | CALL GCF(GAMMCF,A,X,GLN) |
7 | GAMMP=1.-GAMMCF |
8 | ENDIF |
9 | RETURN |
10 | END |
Note: See TracBrowser
for help on using the repository browser.