search

ivan-pi / pdecheb

Chebyshev Polynomial Software for Elliptic-Parabolic Systems of PDEs
2 stars 0 forks source link

Constant for machine precision #4

Open ivan-pi opened 1 year ago

ivan-pi commented 1 year ago

The code below

https://github.com/ivan-pi/pdecheb/blob/f4294351471375835c79cbfbe508eb8e2f1b39b0/pdecheb/inichb.f#L268-L279

can be replaced with a call to the intrinsic function epsilon:

twou = epsilon(1.0D0)

This could also become a parameter instead of a dynamic variable in a common block.