SUBROUTINE DOINTERP_NU ( NMUALL, FBEFORE, FAFTER )

Argument Definitions (+ indicates altered content)
INTEGER            NMUALL
REAL*8            +FAFTER(NNI,*),          FBEFORE(NNI_P,*)
Description
                                                                        * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### dointerp_nu ### 
 
    Performs interpolations of functions in ni variable.
Source file:dointerp_nu.f
External Functions and Subroutines Called
REAL*8             VPOLY1Q
SUBROUTINE         LPCOEFFQ
Local Variables (+ indicates altered content)
INTEGER           +I,         +IMU,       +INI_P,     +K
INTEGER           +NNI_FIRST, +NNI_LAST
REAL*8             COEFFQ(9), +COEFFQ2(9,9),          +XNI
Referenced Common Block Variables (+ indicates altered content)
GRIDI              INTEGER            NNI
GRIDI_P            INTEGER            NNI_P
GRIDR              REAL*8             VNI(1500)
GRIDR_P            REAL*8             VNI_P(1500)
INPUTD1            INTEGER           +INI
QPREC              INTEGER            IORD,      IORD2
QPREC              INTEGER            KEND