11 lines
198 B
Fortran
11 lines
198 B
Fortran
function expo(x)
|
|
c ================
|
|
c
|
|
INCLUDE 'IMPLIC.FOR'
|
|
crit=80.
|
|
if(x.lt.-crit) x=-crit
|
|
if(x.gt.crit) x=crit
|
|
expo=exp(x)
|
|
return
|
|
end
|