Argument Definitions (+ indicates altered content) INTEGER N REAL*8 F(NNI+8,N+8), FD(NNI+8,N+8) REAL*8 WTRAN1(N+8,NNI+8), WTRAN2(N+8,NNI+8)
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. * * ### diffnu ### This routine calculates (\frac{\partial^2}{\partial\ni^2} + d(\ni,\mu) \frac{\partial}{\partial \ni}) f(\ni,\mu) The function is imersed in the array f(nni+8,nmut+8) To allow for the differentiation over ni variable in the form of matrix times vector the array f has to be transposed first. Results of differentiation are stored directly column-wise in another matrix which means doing back tranposition before returning to a calling routine. This routine differentiates a function over ni variable. the function is imersed in the array f(nni+6,nmut+6)
Source file: diffnu.f
External Functions and Subroutines Called SUBROUTINE GEMV, GMTRAN
Local Variables (+ indicates altered content) INTEGER +J, +N8, +N9, +NNI8
Referenced Common Block Variables (+ indicates altered content) DERIV2 REAL*8 DNI(9,1500) GRIDI INTEGER NNI
Argument Definitions (+ indicates altered content) INTEGER N REAL*8 F(NNI+8,N+8), FD(NNI+8,N+8) REAL*8 WTRAN1(N+8,NNI+8), WTRAN2(N+8,NNI+8)
Source file: diffnu.f
External Functions and Subroutines Called SUBROUTINE GEMV, GMTRAN
Local Variables (+ indicates altered content) INTEGER +J, +N8, +N9, +NNI8
Referenced Common Block Variables (+ indicates altered content) DERIV1 REAL*8 D1NI(9,1500) GRIDI INTEGER NNI