source:
PSPA/parmelaPSPA/trunk/erf.f
@
405
Last change on this file since 405 was 12, checked in by , 12 years ago | |
---|---|
File size: 145 bytes |
Rev | Line | |
---|---|---|
[12] | 1 | FUNCTION ERF(X) |
2 | IF(X.LT.0.)THEN | |
3 | ERF=-GAMMP(.5,X**2) | |
4 | ELSE | |
5 | ERF=GAMMP(.5,X**2) | |
6 | ENDIF | |
7 | RETURN | |
8 | END |
Note: See TracBrowser
for help on using the repository browser.