12 lines
207 B
Fortran
12 lines
207 B
Fortran
FUNCTION erf(x)
|
|
REAL erf,x
|
|
CU USES gammp
|
|
REAL gammp
|
|
if(x.lt.0.)then
|
|
erf=-gammp(.5,x**2)
|
|
else
|
|
erf=gammp(.5,x**2)
|
|
endif
|
|
return
|
|
END
|