source: PSPA/parmelaPSPA/trunk/gammp.f @ 315

Last change on this file since 315 was 12, checked in by lemeur, 12 years ago

parmela pspa initial

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.