15 lines
351 B
Fortran
15 lines
351 B
Fortran
FUNCTION gammq(a,x)
|
|
REAL a,gammq,x
|
|
CU USES gcf,gser
|
|
REAL gammcf,gamser,gln
|
|
if(x.lt.0..or.a.le.0.)pause 'bad arguments in gammq'
|
|
if(x.lt.a+1.)then
|
|
call gser(gamser,a,x,gln)
|
|
gammq=1.-gamser
|
|
else
|
|
call gcf(gammcf,a,x,gln)
|
|
gammq=gammcf
|
|
endif
|
|
return
|
|
END
|