Argument Definitions (+ indicates altered content) REAL*8 F(*), FMU(*), FNI(*), G(*) REAL*8 GMU(*), GNI(*), +WK0(*), +WK1(*) REAL*8 WK2(*), +WK3(*)
Description * Copyright (C) 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. * * ### nfng ### Calculates nabla f nabla g; the result is returned in wk3
Source file: nfng.f
External Functions and Subroutines Called SUBROUTINE ADD, DIFF1MU, DIFF1NU, PROD2 SUBROUTINE PUTIN, PUTOUT
Local Variables (+ indicates altered content) INTEGER +I, +II, +J REAL*8 +T1, +Z
Referenced Common Block Variables (+ indicates altered content) CONSFP REAL*8 FOUR, HALF CONSFP REAL*8 PRECIS GRIDI INTEGER MXNMU, MXSIZE GRIDI INTEGER NNI GRIDR REAL*8 VETA(1500) GRIDR REAL*8 VETA1(1500) GRIDR REAL*8 VXI(2500) GRIDR REAL*8 VXI1(2500) INPUTD2 REAL*8 R SORWK INTEGER +ISYM
Argument Definitions (+ indicates altered content) REAL*8 +GRHOT(*), +RHOT(*), WK0(*), WK1(*) REAL*8 WK2(*), WK3(*), WK4(*), WK5(*) REAL*8 WK6(*), WK7(*)
Description ### testnfng ### Tests nabla f nabla g
Source file: nfng.f
External Functions and Subroutines Called SUBROUTINE NFNG, PMTX
Local Variables (+ indicates altered content) INTEGER +I, +II, +ITEST, +J
Referenced Common Block Variables (+ indicates altered content) CONSINT INTEGER IONE DEBUG INTEGER INCRMU, INCRNI GRIDI INTEGER MXNMU, NNI