source/algorithm/hyperbolic/algs_upfluxsum2d.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)
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision && 		fluxsum (ilo1:ihi1) integer ie0
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 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 &&ic1 c c
***********************************************************************c
ihi1 		fluxsum (ic1)
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision & 		flux (ilo1-flxgc1:ihi1+1+flxgc1,&ilo0-flxgc0:ihi0+flxgc0)
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision && 		fluxsum (ilo0:ihi0) integer ie1
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 		fluxsum (ic0)
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 &iface double precision
&&ic1 c c
***********************************************************************c
ihi1 &iface double precision & 		flux (ilo0-flxgc0:ihi0+flxgc0,&ilo1-flxgc1:ihi1+1+flxgc1)

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 ihi0
c c LLC c Jan c LLC c Jan c ihi1
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 & 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 		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 & 		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 &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 		ilo1
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 		ihi0
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 		ihi1
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 & 		flxgc0
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 		flxgc1
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 		ilo1
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 		ihi0
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 		ihi1
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 & 		flxgc0
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 		flxgc1
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 &iface double precision
&&ic1 c c
***********************************************************************c
ihi1 		ilo1
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 &iface double precision
&&ic1 c c
***********************************************************************c
ihi1 		ihi0
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 &iface double precision
&&ic1 c c
***********************************************************************c
ihi1 		ihi1
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 &iface double precision
&&ic1 c c
***********************************************************************c
ihi1 & 		flxgc0
c c LLC c Jan c LLC c Jan
c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision
&&ic0 c c
***********************************************************************c
ihi0 &iface double precision
&&ic1 c c
***********************************************************************c
ihi1 		flxgc1

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 
)

c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision &&ic1 c c ***********************************************************************c ihi1 &iface double precision &&ic0 c c ***********************************************************************c ihi0 &iface double precision && fluxsum ( 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 if ( iface.eq.  0  ) 

c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision &&ic1 c c ***********************************************************************c ihi1 &iface double precision &&ic0 c c ***********************************************************************c ihi0 &iface double precision &&ic1 c c ***********************************************************************c ihi1 fluxsum ( ic1   ) 

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

c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision &&ic1 c c ***********************************************************************c ihi1 &iface double precision &&ic0 c c ***********************************************************************c ihi0 &iface double precision &&ic1 c c ***********************************************************************c ihi1 &iface double precision && fluxsum ( ilo0:ihi0   ) 

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& & ic1 c c*********************************************************************** c ihi1 & iface double precision& & ic0 c c*********************************************************************** c ihi0 fluxsum ( ic0   ) 

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

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 ihi0

c c LLC c Jan c LLC c Jan c ihi1

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 & 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 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 & 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 & iface double precision& & ic1 c c*********************************************************************** c ihi1 ilo1

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

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

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

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

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& & ic1 c c*********************************************************************** c ihi1 & iface double precision& & ic0 c c*********************************************************************** c ihi0 ilo1

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

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

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& & ic1 c c*********************************************************************** c ihi1 & iface double precision& & ic0 c c*********************************************************************** c ihi0 & flxgc0

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& & ic1 c c*********************************************************************** c ihi1 & iface double precision& & ic0 c c*********************************************************************** c ihi0 flxgc1

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& & ic1 c c*********************************************************************** c ihi1 & iface double precision& & ic0 c c*********************************************************************** c ihi0 & iface double precision& & ic1 c c*********************************************************************** c ihi1 ilo1

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

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

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& & ic1 c c*********************************************************************** c ihi1 & iface double precision& & ic0 c c*********************************************************************** c ihi0 & iface double precision& & ic1 c c*********************************************************************** c ihi1 & flxgc0

c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& & ic1 c c*********************************************************************** c ihi1 & iface double precision& & ic0 c c*********************************************************************** c ihi0 & iface double precision& & ic1 c c*********************************************************************** c ihi1 flxgc1

Generated on Thu Jun 18 11:25:28 2009 for SAMRAI by  doxygen 1.5.1