Argument Definitions (+ indicates altered content) REAL*8 F(*), WK0(*), WK1(*), WK2(*) REAL*8 +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. * * ### n2f ### Calculates nabla^2 f and returns it as wk3
Source file: n2f.f
External Functions and Subroutines Called SUBROUTINE ADD, DIFFMU, DIFFNU, PUTIN SUBROUTINE PUTOUT
Local Variables (+ indicates altered content) INTEGER +I, +II, +J REAL*8 +T1
Referenced Common Block Variables (+ indicates altered content) CONSFP REAL*8 FOUR, PRECIS GRIDI INTEGER MXNMU, MXSIZE GRIDI INTEGER NNI GRIDR REAL*8 VETA(1500) GRIDR REAL*8 VXI(2500) INPUTD2 REAL*8 R SORWK INTEGER +ISYM
Argument Definitions (+ indicates altered content) REAL*8 +F(*), WK0(*), WK1(*), WK2(*) REAL*8 WK3(*)
Description ### testn2f ### Tests nabla^2 f
Source file: n2f.f
External Functions and Subroutines Called SUBROUTINE N2F, PMTX
Local Variables (+ indicates altered content) INTEGER +I, +II, +ITEST, +J REAL*8 +X, +Z
Referenced Common Block Variables (+ indicates altered content) CONSINT INTEGER IONE DEBUG INTEGER INCRMU, INCRNI GRIDI INTEGER MXNMU, 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