Argument Definitions (+ indicates altered content) INTEGER NMUMAX, NMUMAX_P, NMUMIN, NMUMIN_P INTEGER NNIT REAL*8 +FAFTER(NNIT,*), FBEFORE(NNIT,*)
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_mu ### Performs interpolations of functions in mu variable.
Source file: dointerp_mu.f
I/O Operations: Unit ID Unit No Access Form Operation * SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
Intrinsic Functions Called GENERIC*8 ABS
External Functions and Subroutines Called REAL*8 VPOLY1Q SUBROUTINE LPCOEFFQ
Local Variables (+ indicates altered content) INTEGER +I, +IDEBUG1, +IDEBUG2, +IDEBUG3 INTEGER +IMU, +IMU_P, +K, +NMU_FIRST INTEGER +NMU_LAST REAL*8 COEFFQ(9), +COEFFQ2(9,9), +RERROR REAL*8 +XMU
Referenced Common Block Variables (+ indicates altered content) GRIDR REAL*8 VMU(2500) GRIDR_P REAL*8 VMU_P(2500) INPUTD1 INTEGER +INI QPREC INTEGER IORD, IORD2 QPREC INTEGER KEND