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

source/algorithm/hyperbolic/algs_upfluxsum3d.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,&ilo2-flxgc2:ihi2+flxgc2)
c c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision && 		fluxsum (ilo1:ihi1,&ilo2:ihi2) integer ie0
c c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision ic2 c c
***********************************************************************c 		if (iface.eq.0) then ie0
c c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision ic2 c c
***********************************************************************c
ihi2 do ihi1 		fluxsum (ic1, ic2)
c 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 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 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 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 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 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 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 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 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 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 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 ilo1
c c ilo2
c c ihi0
c c ihi1
c c ihi2
c c & flxgc0
c c flxgc1
c c flxgc2
c c & iface
c c & flux
c c fluxsum c
***********************************************************************implicit
none c integer & 		ilo0
c c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision && 		ic1 = ilo1
c c fluxsum c
***********************************************************************implicit
none c integer &iface double
precision ic2 c c
***********************************************************************c
ihi2 do ihi1 &iface double
precision && 		ic2 = ilo2
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 && 		ic0 = ilo0

Function Documentation

c 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 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 fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c if (  iface.eq.  0  ) 
 

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

Initial value:

fluxsum(ic1,ic2)+flux(ic0,ic1,ic2)
         enddo
      enddo
c
      return
      end
c
      subroutine upfluxsumside3d1(
     &  ilo0,ilo1,ilo2,ihi0,ihi1,ihi2,
     &  flxgc0,flxgc1,flxgc2,
     &  iside,
     &  flux,fluxsum)
c***********************************************************************
      implicit none
c
      integer
     &  ilo0

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

Initial value:

 ilo1
      else
        ic1 = ihi1+1
      endif 
 
      do ic2=ilo2

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

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

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

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

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

c c & flux
 

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

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 ic1 = ilo1
 

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 ic2 = ilo2
 

c c fluxsum c*********************************************************************** implicit none c integer & iface double precision ic2 c c*********************************************************************** c ihi2 do ihi1 & iface double precision ic0 c c*********************************************************************** c ihi0 do ihi2 & iface double precision ic1 c c*********************************************************************** c ihi1 do ihi0 & iside double precision ic2 c c*********************************************************************** c ihi2 do ihi1 & iside double precision ic2 c c*********************************************************************** c ihi2 do ihi0 & iside double precision ic1 c c*********************************************************************** c ihi1 do ic0 = ilo0
 

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