Main Page | Namespace List | Class Hierarchy | Class List | File List | Namespace Members | Class Members | File Members | Related Pages

source/algorithm/hyperbolic/algs_upfluxsum2d.f File Reference


Functions

c c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision & 		flux (ilo0-flxgc0:ihi0+1+flxgc0,&ilo1-flxgc1:ihi1+flxgc1)
c c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision && 		fluxsum (ilo1:ihi1) integer ie0
c c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c 		if (iface.eq.0) then ie0
c c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 		fluxsum (ic1)
c 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 fluxsum c
***********************************************************************implicit
none c integer &iface double
precision &&ic1 c c
***********************************************************************c
ihi1 &iface double precision && 		fluxsum (ilo0:ihi0) integer ie1
c 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 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 ilo1
c c ihi0
c c ihi1
c c & flxgc0
c c flxgc1
c c & iface
c c & flux
c c fluxsum c
***********************************************************************implicit
none c integer & 		ilo0

Function Documentation

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

c 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 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  ) 
 

Initial value:

 ilo1
      else 
        ie1 = ihi1+1
      endif 
 
      do ic0=ilo0

c 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   ) 
 

Initial value:

fluxsum(ic1)+flux(ic0,ic1)
      enddo
c
      return
      end
c
      subroutine upfluxsumside2d1(
     &  ilo0,ilo1,ihi0,ihi1,
     &  flxgc0,flxgc1,
     &  iface,
     &  flux,fluxsum)
c***********************************************************************
      implicit none
c
      integer
     &  ilo0

c 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 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 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 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 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 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 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 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 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 & iface
 

c c & flux
 

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

Generated on Fri Dec 2 11:18:59 2005 for SAMRAI by  doxygen 1.4.2