source/patchdata/fortran/pdat_dbugfort3d.f File Reference

Functions
c c array iend2 double precision &	array (fi0-ng:la0+ng,&fi1-ng:la1+ng,&fi2-ng:la2+ng) integer ic0
c c array iend2 double precision ic2 iend2 do iend1 do iend0	write (6,*)"array["
Variables
c c	File
c c	la0
c c	fi1
c c	la1
c c	fi2
c c	la2
c c	ng
c c &	ibeg0
c c	iend0
c c	ibeg1
c c	iend1
c c	ibeg2
c c	iend2
c c array	c
c c array iend2 double precision &	ic1 = ibeg1
c c array iend2 double precision ic2 iend2 do iend1 do	ic0 = ibeg0
c c array iend2 double precision ic2 iend2 do iend1 do iend0	ic2 = ifirst2

---

Function Documentation

c c array iend2 double precision& array (  fi0-ng:la0+  ng, &fi1-ng:la1+  ng, &fi2-ng:la2+  ng )

c c array iend2 double precision ic2 iend2 do iend1 do iend0 write (  6  , *  )

---

Variable Documentation

c c File

c c array la0

c c array fi1

c c array la1

c c array fi2

c c array la2

c c array ng

c c array & ibeg0

c c array iend0

c c array ibeg1

c c array iend1

c c &arrdepth c ***********************************************************************implicit none c c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer ibeg2

c c iend2

c c array iend2 double precision ic2 c

Initial value: ============================================================ implicit none integer fi0

c c array iend2 double precision ic2 iend2 do iend1 do iend0 ic1 = ibeg1

c c array iend2 double precision ic2 iend2 do iend1 do iend0 ic0 = ibeg0

c c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1 &iface double precision ic0 c c ***********************************************************************c ihi0 do ic2 = ifirst2

---