Argument Definitions (+ indicates altered content) REAL*8 BORB(NNI,MXNMU), D(NNI,MXNMU)
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. * * ### initDiff ### Initializes arrays used for evaluating first and second derivatives
Source file: initDiff.f
External Functions and Subroutines Called SUBROUTINE LAGRPOLQ
Local Variables (+ indicates altered content) INTEGER +I, +IB, +IE, +IG INTEGER +IMU, +K REAL*8 +A1(9), +A2(9), +AA1(9), +AA2(9) REAL*8 DC1(9,7,9), DC2(9,7,9) REAL*8 +W1, +W2
Referenced Common Block Variables (+ indicates altered content) DERIV1 REAL*8 +D1MU(9,2500) DERIV1 REAL*8 +D1NI(9,1500) DERIV2 REAL*8 +DMU(9,2500) DERIV2 REAL*8 +DNI(9,1500) DERIV3 REAL*8 +DMU1(4,10) DERIV3 REAL*8 +DMU2(4,10) DERIV3 REAL*8 +DNI1(4), +DNI2(4) GRIDI INTEGER IEMU(10), MXNMU GRIDI INTEGER NGRIDS, NNI GRIDR REAL*8 HMU(10), HNI