fpc/packages/extra/numlib/direct.inc