SUBROUTINE N2F ( F, WK0, WK1, WK2, WK3 )

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

SUBROUTINE TESTN2F ( F, WK0, WK1, WK2, WK3 )

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