source:
PSPA/parmelaPSPA/trunk/erf.f
@
465
Last change on this file since 465 was 12, checked in by , 12 years ago | |
---|---|
File size: 145 bytes |
Line | |
---|---|
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.