source/patchdata/fortran/pdat_dbugfort1d.f File Reference

Functions
c c array iend0 double precision &	array (fi0-ng:la0+ng) integer ic0 c
c c array iend0 double precision &iend0	write (6,*)"array["
Variables
c c	File
c c	la0
c c	ng
c c	ibeg0
c c	iend0
c c array	c
c c array iend0 double precision &iend0	ic0 = ifirst0

---

Function Documentation

c c array iend0 double precision& array (  fi0-ng:la0+  ng  )

c c array iend0 double precision& iend0 write (  6  , *  )

---

Variable Documentation

c c &arrdepth c ***********************************************************************implicit none c c File

c c array la0

c c array ng

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

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

c c array iend2 double precision ic2 c

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

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 ihi1 &iside double precision ic2 c c ***********************************************************************c ihi2 do ihi0 &iside double precision ic1 c c ***********************************************************************c ihi1 do ic0 = ifirst0

---