Argument Definitions (+ indicates altered content) INTEGER +N
Description * Copyright (C) 1996 Leif Laaksonen, Dage Sundholm * 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. * * ### nmucalc ### Calculates nmu for given nni and practical infinity values (a single grid case is assumed) and adjusts nmu to be of the form 6k+1 and 5k+5+1 (if mcsor is chosen)
Source file: nmucalc.f
Intrinsic Functions Called DOUBLE PRECISION DBLE GENERIC*4 LOG GENERIC*8 SQRT
Parameter Variables Used INTEGER K5 (K5 = 5) INTEGER K6 (K6 = 6)
Local Variables (+ indicates altered content) INTEGER +IG, +NK, +NTEMP REAL*8 +HNU, +XMI0
Referenced Common Block Variables (+ indicates altered content) CONSFP REAL*8 PII GRIDI INTEGER +MXNMU, NGRIDS GRIDI INTEGER +NMU(10), NNI GRIDR REAL*8 +HMU(10) INPUTD2 REAL*8 R, RGRID(10) SORI INTEGER IORDER(10) SORI INTEGER IPOISS