source/patchdata/fortran/pdat_dbugfort3d.f File Reference

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

---

Function Documentation

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

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

---

Variable Documentation

c c File

c c LLC c Revision

c c LLC c Jan c Description

c c LLC c Jan c LLC c Revision

c c LLC c Jan c LLC c Jan c Description

c c LLC c Jan c LLC c Jan c LLC c Revision

c c LLC c Jan c LLC c Jan c LLC c Jan c Description

c c LLC c Jan c LLC c Jan c LLC c Jan c la0

c c LLC c Jan c LLC c Jan c LLC c Jan c fi1

c c LLC c Jan c LLC c Jan c LLC c Jan c la1

c c LLC c Jan c LLC c Jan c LLC c Jan c fi2

c c LLC c Jan c LLC c Jan c LLC c Jan c la2

c c LLC c Jan c LLC c Jan c LLC c Jan c ng

c c LLC c Jan c LLC c Jan c LLC c Jan c & ibeg0

c c LLC c Jan c LLC c Jan c LLC c Jan c iend0

c c LLC c Jan c LLC c Jan c LLC c Jan c ibeg1

c c LLC c Jan c LLC c Jan c LLC c Jan c iend1

c c LLC c Jan c LLC c Jan c LLC c Jan c ibeg2

c c LLC c Jan c LLC c Jan c LLC c Jan c iend2

c c LLC c Jan c LLC c Jan c LLC c Jan c array c

Initial value:

============================================================
      implicit none
      integer fi0

c c LLC c Jan c LLC c Jan c LLC c Jan c array la0

c c LLC c Jan c LLC c Jan c LLC c Jan c array fi1

c c LLC c Jan c LLC c Jan c LLC c Jan c array la1

c c LLC c Jan c LLC c Jan c LLC c Jan c array fi2

c c LLC c Jan c LLC c Jan c LLC c Jan c array la2

c c LLC c Jan c LLC c Jan c LLC c Jan c array ng

c c LLC c Jan c LLC c Jan c LLC c Jan c array & ibeg0

c c LLC c Jan c LLC c Jan c LLC c Jan c array iend0

c c LLC c Jan c LLC c Jan c LLC c Jan c array ibeg1

c c LLC c Jan c LLC c Jan c LLC c Jan c array iend1

c c LLC c Jan c LLC c Jan c LLC c Jan c array ibeg2

c c LLC c Jan c LLC c Jan c LLC c Jan c array iend2 double precision& ic1

c c LLC c Jan c LLC c Jan c LLC c Jan c array iend2 double precision ic2 c

Initial value:

============================================================

      do ic2=ibeg2

c c LLC c Jan c LLC c Jan c LLC c Jan c array iend2 double precision ic2 iend2 do ic1 = ibeg1

c c LLC c Jan c LLC c Jan c LLC c Jan c array iend2 double precision ic2 iend2 do iend1 do ic0 = ibeg0

c c LLC c Jan c LLC c Jan c LLC c Jan c array iend2 double precision ic2 iend2 do iend1 do iend0 ic0

c c LLC c Jan c LLC c Jan c LLC c Jan c array iend2 double precision ic2 iend2 do iend1 do iend0 ic1

c c LLC c Jan c LLC c Jan c LLC c Jan c array iend2 double precision ic2 iend2 do iend1 do iend0 ic2

---