*$ CREATE FNTEXP.ADD *COPY FNTEXP * *=== Fntexp ===========================================================* * * *----------------------------------------------------------------------* * * * Copyright (C) 1989-2005 by Alfredo Ferrari & Paola Sala * * All Rights Reserved. * * * * * * Auxiliary common for the Finter interpolation routine * * * *----------------------------------------------------------------------* * * LOGICAL LEXNP, LXNPM1 COMMON / EXPEXP / LEXNP, LXNPM1 SAVE / EXPEXP /