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