source/algorithm/hyperbolic/algs_upfluxsum3d.f File Reference

Functions
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision &	flux (ilo0-flxgc0:ihi0+1+flxgc0,&ilo1-flxgc1:ihi1+flxgc1,&ilo2-flxgc2:ihi2+flxgc2)
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision &&	fluxsum (ilo1:ihi1,&ilo2:ihi2) integer ie0
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c	if (iface.eq.0) then ie0
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1	fluxsum (ic1, ic2)
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1 &iface double precision &	flux (ilo1-flxgc1:ihi1+1+flxgc1,&ilo2-flxgc2:ihi2+flxgc2,&ilo0-flxgc0:ihi0+flxgc0)
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1 &iface double precision &&	fluxsum (ilo2:ihi2,&ilo0:ihi0) integer ie1
c c LLC c Jan c LLC c Jan 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	fluxsum (ic2, ic0)
c c LLC c Jan c LLC c Jan 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 &	flux (ilo2-flxgc2:ihi2+1+flxgc2,&ilo0-flxgc0:ihi0+flxgc0,&ilo1-flxgc1:ihi1+flxgc1)
c c LLC c Jan c LLC c Jan 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 &&	fluxsum (ilo0:ihi0,&ilo1:ihi1) integer ie2
c c LLC c Jan c LLC c Jan 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	fluxsum (ic0, ic1)
c c LLC c Jan c LLC c Jan 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	if (iside.eq.0) then ic0
c c LLC c Jan c LLC c Jan 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 &	flux (ilo0-flxgc0:ihi0+flxgc0,&ilo1-flxgc1:ihi1+1+flxgc1,&ilo2-flxgc2:ihi2+flxgc2)
c c LLC c Jan c LLC c Jan 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 &&	fluxsum (ilo0:ihi0,&ilo2:ihi2) integer ic1
c c LLC c Jan c LLC c Jan 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	fluxsum (ic0, ic2)
c c LLC c Jan c LLC c Jan 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 &	flux (ilo0-flxgc0:ihi0+flxgc0,&ilo1-flxgc1:ihi1+flxgc1,&ilo2-flxgc2:ihi2+1+flxgc2)
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	ilo1
c c LLC c Jan c LLC c Jan c	ilo2
c c LLC c Jan c LLC c Jan c	ihi0
c c LLC c Jan c LLC c Jan c	ihi1
c c LLC c Jan c LLC c Jan c	ihi2
c c LLC c Jan c LLC c Jan c &	flxgc0
c c LLC c Jan c LLC c Jan c	flxgc1
c c LLC c Jan c LLC c Jan c	flxgc2
c c LLC c Jan c LLC c Jan c &	iface
c c LLC c Jan c LLC c Jan c &	flux
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &	ilo0
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer	ilo1
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer	ilo2
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer	ihi0
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer	ihi1
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer	ihi2
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &	flxgc0
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer	flxgc1
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer	flxgc2
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision &&	ic1
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do	ic1 = ilo1
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1	ilo1
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1	ilo2
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1	ihi0
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1	ihi1
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1	ihi2
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1 &	flxgc0
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1	flxgc1
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1	flxgc2
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1 &iface double precision &&	ic2
c c LLC c Jan c LLC c Jan 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 = ilo2
c c LLC c Jan c LLC c Jan 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	ilo1
c c LLC c Jan c LLC c Jan 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	ilo2
c c LLC c Jan c LLC c Jan 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	ihi0
c c LLC c Jan c LLC c Jan 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	ihi1
c c LLC c Jan c LLC c Jan 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	ihi2
c c LLC c Jan c LLC c Jan 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 &	flxgc0
c c LLC c Jan c LLC c Jan 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	flxgc1
c c LLC c Jan c LLC c Jan 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	flxgc2
c c LLC c Jan c LLC c Jan 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 &&	ic0
c c LLC c Jan c LLC c Jan 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	ic0 = ilo0
c c LLC c Jan c LLC c Jan 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	ilo1
c c LLC c Jan c LLC c Jan 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	ilo2
c c LLC c Jan c LLC c Jan 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	ihi0
c c LLC c Jan c LLC c Jan 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	ihi1
c c LLC c Jan c LLC c Jan 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	ihi2
c c LLC c Jan c LLC c Jan 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 &	flxgc0
c c LLC c Jan c LLC c Jan 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	flxgc1
c c LLC c Jan c LLC c Jan 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	flxgc2
c c LLC c Jan c LLC c Jan 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 &&	ic1
c c LLC c Jan c LLC c Jan 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 = ilo1
c c LLC c Jan c LLC c Jan 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	ilo1
c c LLC c Jan c LLC c Jan 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	ilo2
c c LLC c Jan c LLC c Jan 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	ihi0
c c LLC c Jan c LLC c Jan 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	ihi1
c c LLC c Jan c LLC c Jan 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	ihi2
c c LLC c Jan c LLC c Jan 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 &	flxgc0
c c LLC c Jan c LLC c Jan 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	flxgc1
c c LLC c Jan c LLC c Jan 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	flxgc2
c c LLC c Jan c LLC c Jan 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 &&	ic0
c c LLC c Jan c LLC c Jan 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	ic0 = ilo0
c c LLC c Jan c LLC c Jan 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	ilo1
c c LLC c Jan c LLC c Jan 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	ilo2
c c LLC c Jan c LLC c Jan 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	ihi0
c c LLC c Jan c LLC c Jan 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	ihi1
c c LLC c Jan c LLC c Jan 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	ihi2
c c LLC c Jan c LLC c Jan 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 &	flxgc0
c c LLC c Jan c LLC c Jan 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	flxgc1
c c LLC c Jan c LLC c Jan 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	flxgc2
c c LLC c Jan c LLC c Jan 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 &&	ic0
c c LLC c Jan c LLC c Jan 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 = ilo0

---

Function Documentation

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& flux	(	ilo0-flxgc0:ihi0+1+	flxgc0,
		&ilo1-flxgc1:ihi1+	flxgc1,
		&ilo2-flxgc2:ihi2+	flxgc2
	)

c c LLC c Jan c LLC c Jan 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 && fluxsum	(	ilo1:ihi1	,
		&ilo2:ihi2
	)

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c if

(

iface.eq.

0

)

c c LLC c Jan c LLC c Jan 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 fluxsum	(	ic1	,
		ic2
	)

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 & iface double precision& flux	(	ilo1-flxgc1:ihi1+1+	flxgc1,
		&ilo2-flxgc2:ihi2+	flxgc2,
		&ilo0-flxgc0:ihi0+	flxgc0
	)

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 & iface double precision& & fluxsum	(	ilo2:ihi2	,
		&ilo0:ihi0
	)

c c LLC c Jan c LLC c Jan 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 fluxsum	(	ic2	,
		ic0
	)

c c LLC c Jan c LLC c Jan 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& flux	(	ilo2-flxgc2:ihi2+1+	flxgc2,
		&ilo0-flxgc0:ihi0+	flxgc0,
		&ilo1-flxgc1:ihi1+	flxgc1
	)

c c LLC c Jan c LLC c Jan 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 && fluxsum	(	ilo0:ihi0	,
		&ilo1:ihi1
	)

c c LLC c Jan c LLC c Jan 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 fluxsum	(	ic0	,
		ic1
	)

c c LLC c Jan c LLC c Jan 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 if

(

iside.eq.

0

)

c c LLC c Jan c LLC c Jan 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& flux	(	ilo0-flxgc0:ihi0+	flxgc0,
		&ilo1-flxgc1:ihi1+1+	flxgc1,
		&ilo2-flxgc2:ihi2+	flxgc2
	)

c c LLC c Jan c LLC c Jan 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& & fluxsum	(	ilo0:ihi0	,
		&ilo2:ihi2
	)

c c LLC c Jan c LLC c Jan 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 fluxsum	(	ic0	,
		ic2
	)

c c LLC c Jan c LLC c Jan 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& flux	(	ilo0-flxgc0:ihi0+	flxgc0,
		&ilo1-flxgc1:ihi1+	flxgc1,
		&ilo2-flxgc2:ihi2+1+	flxgc2
	)

---

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 ilo1

c c LLC c Jan c LLC c Jan c ilo2

c c LLC c Jan c LLC c Jan c ihi0

c c LLC c Jan c LLC c Jan c ihi1

c c LLC c Jan c LLC c Jan c ihi2

c c LLC c Jan c LLC c Jan c & flxgc0

c c LLC c Jan c LLC c Jan c flxgc1

c c LLC c Jan c LLC c Jan c flxgc2

c c LLC c Jan c LLC c Jan c & iface

c c LLC c Jan c LLC c Jan c & flux

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer& ilo0

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer ilo1

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer ilo2

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer ihi0

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer ihi1

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer ihi2

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & flxgc0

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer flxgc1

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer flxgc2

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& & ic1

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ic1 = ilo1

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 ilo1

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 ilo2

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 ihi0

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 ihi1

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 ihi2

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 & flxgc0

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 flxgc1

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 flxgc2

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 & iface double precision& & ic2

c c LLC c Jan c LLC c Jan 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 = ilo2

c c LLC c Jan c LLC c Jan 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 ilo1

c c LLC c Jan c LLC c Jan 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 ilo2

c c LLC c Jan c LLC c Jan 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 ihi0

c c LLC c Jan c LLC c Jan 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 ihi1

c c LLC c Jan c LLC c Jan 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 ihi2

c c LLC c Jan c LLC c Jan 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 & flxgc0

c c LLC c Jan c LLC c Jan 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 flxgc1

c c LLC c Jan c LLC c Jan 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 flxgc2

c c LLC c Jan c LLC c Jan 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& & ic0

c c LLC c Jan c LLC c Jan 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 ic0 = ilo0

c c LLC c Jan c LLC c Jan 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 ilo1

c c LLC c Jan c LLC c Jan 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 ilo2

c c LLC c Jan c LLC c Jan 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 ihi0

c c LLC c Jan c LLC c Jan 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 ihi1

c c LLC c Jan c LLC c Jan 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 ihi2

c c LLC c Jan c LLC c Jan 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 & flxgc0

c c LLC c Jan c LLC c Jan 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 flxgc1

c c LLC c Jan c LLC c Jan 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 flxgc2

c c LLC c Jan c LLC c Jan 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& & ic1

c c LLC c Jan c LLC c Jan 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 = ilo1

c c LLC c Jan c LLC c Jan 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 ilo1

c c LLC c Jan c LLC c Jan 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 ilo2

c c LLC c Jan c LLC c Jan 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 ihi0

c c LLC c Jan c LLC c Jan 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 ihi1

c c LLC c Jan c LLC c Jan 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 ihi2

c c LLC c Jan c LLC c Jan 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 & flxgc0

c c LLC c Jan c LLC c Jan 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 flxgc1

c c LLC c Jan c LLC c Jan 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 flxgc2

c c LLC c Jan c LLC c Jan 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& & ic0

c c LLC c Jan c LLC c Jan 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 ic0 = ilo0

c c LLC c Jan c LLC c Jan 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 ilo1

c c LLC c Jan c LLC c Jan 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 ilo2

c c LLC c Jan c LLC c Jan 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 ihi0

c c LLC c Jan c LLC c Jan 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 ihi1

c c LLC c Jan c LLC c Jan 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 ihi2

c c LLC c Jan c LLC c Jan 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 & flxgc0

c c LLC c Jan c LLC c Jan 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 flxgc1

c c LLC c Jan c LLC c Jan 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 flxgc2

c c LLC c Jan c LLC c Jan 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& & ic0

c c LLC c Jan c LLC c Jan 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 = ilo0

---