source/patchdata/fortran/pdat_dbugfort2d.f File Reference

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

---

Function Documentation

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

c c array iend1 double precision& ic1 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 ng

c c array & ibeg0

c c array iend0

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

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

c c array iend1 double precision& ic1 c

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

c c array iend1 double precision& ic1 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 ihi2 &iface double precision ic1 c c ***********************************************************************c ihi1 do ihi0 &iside double precision ic2 c c ***********************************************************************c ihi2 do ic1 = ibeg1

---