source/algorithm/femutils/standard/algs_nodeouternodeops3d.f File Reference


Functions

c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer 		ratio (0:3-1)
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision & 		fnode (filo0-ngc0:fihi0+1+ngc0,&filo1-ngc1:fihi1+1+ngc1,&filo2-ngc2:fihi2+1+ngc2, depth)
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision && 		couternodelower0 (cilo1+1:cihi1,&cilo2+1:cihi2, depth)
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision &&& 		couternodeupper0 (cilo1+1:cihi1,&cilo2+1:cihi2, depth)
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision &&&& 		couternodelower1 (cilo0:cihi0+1,&cilo2+1:cihi2, depth)
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision &&&&& 		couternodeupper1 (cilo0:cihi0+1,&cilo2+1:cihi2, depth)
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision &&&&&& 		couternodelower2 (cilo0:cihi0+1,&cilo1:cihi1+1, depth)
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision &&&&&&& 		couternodeupper2 (cilo0:cihi0+1,&cilo1:cihi1+1, depth) integer ic0

Variables

c c File
c c LLC c Revision
c c LLC c LLC c Revision
c c LLC c LLC c Jan c Description
c c LLC c LLC c Jan c filo1
c c LLC c LLC c Jan c filo2
c c LLC c LLC c Jan c & fihi0
c c LLC c LLC c Jan c fihi1
c c LLC c LLC c Jan c fihi2
c c LLC c LLC c Jan c & cilo0
c c LLC c LLC c Jan c cilo1
c c LLC c LLC c Jan c cilo2
c c LLC c LLC c Jan c & cihi0
c c LLC c LLC c Jan c cihi1
c c LLC c LLC c Jan c cihi2
c c LLC c LLC c Jan c & ratio
c c LLC c LLC c Jan c & depth
c c LLC c LLC c Jan c & ngc0
c c LLC c LLC c Jan c ngc1
c c LLC c LLC c Jan c ngc2
c c LLC c LLC c Jan c & fnode
c c LLC c LLC c Jan c & couternodelower0
c c LLC c LLC c Jan c couternodeupper0
c c LLC c LLC c Jan c & couternodelower1
c c LLC c LLC c Jan c couternodeupper1
c c LLC c LLC c Jan c & couternodelower2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer & 		filo0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer 		filo1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer 		filo2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer & 		fihi0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer 		fihi1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer 		fihi2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer & 		cilo0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer 		cilo1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer 		cilo2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer & 		cihi0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer 		cihi1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer 		ngc0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer 		ngc1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision &&&&&&& 		if0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision 		ic1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision 		if1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision 		ic2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision 		if2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer 		cilo0_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer 		cilo1_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer 		cilo2_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer & 		cihi0_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer 		cihi1_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face 		cilo1_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do 		ic2 = cilo2_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop 		if2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop 		if1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do 		ic2 = cilo2_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop 		if2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop 		if1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do 		ic2 = cilo2_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop 		if2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop 		if0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do 		ic2 = cilo2_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop 		if2
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop 		if0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do 		ic1 = cilo1_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do cihi1_loop 		if1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do cihi1_loop cihi0_loop 		if0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do cihi1_loop cihi0_loop depth
do 		ic1 = cilo1_loop
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do cihi1_loop cihi0_loop depth
do cihi1_loop 		if1
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do cihi1_loop cihi0_loop depth
do cihi1_loop cihi0_loop 		if0
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do cihi1_loop cihi0_loop depth
do cihi1_loop cihi0_loop 		XUPPER
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do cihi1_loop cihi0_loop depth
do cihi1_loop cihi0_loop 		YLOWER
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do cihi1_loop cihi0_loop depth
do cihi1_loop cihi0_loop 		YUPPER
c c LLC c LLC c Jan c couternodeupper2
c
***********************************************************************implicit
none integer cihi2 integer
depth integer ngc2 double
precision id integer cihi2_loop
c c
***********************************************************************c
c sum along XLOWER face depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi1_loop depth
do cihi2_loop cihi0_loop depth
do cihi2_loop cihi0_loop depth
do cihi1_loop cihi0_loop depth
do cihi1_loop cihi0_loop 		ZLOWER

Function Documentation

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer ratio ( 0:3-  1  ) 

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision& fnode ( filo0-ngc0:fihi0+1+  ngc0,
&filo1-ngc1:fihi1+1+  ngc1,
&filo2-ngc2:fihi2+1+  ngc2,
depth   
)

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision& & couternodelower0 ( cilo1+1:cihi1  ,
&cilo2+1:cihi2  ,
depth   
)

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision& & & couternodeupper0 ( cilo1+1:cihi1  ,
&cilo2+1:cihi2  ,
depth   
)

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision& & & & couternodelower1 ( cilo0:cihi0+  1,
&cilo2+1:cihi2  ,
depth   
)

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision& & & & & couternodeupper1 ( cilo0:cihi0+  1,
&cilo2+1:cihi2  ,
depth   
)

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision& & & & & & couternodelower2 ( cilo0:cihi0+  1,
&cilo1:cihi1+  1,
depth   
)

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision& & & & & & & couternodeupper2 ( cilo0:cihi0+  1,
&cilo1:cihi1+  1,
depth   
)

Variable Documentation

c c File

c c LLC c Revision

c c LLC c LLC c Revision

c c LLC c LLC c Jan c Description

c c LLC c LLC c Jan c filo1

c c LLC c LLC c Jan c filo2

c c LLC c LLC c Jan c & fihi0

c c LLC c LLC c Jan c fihi1

c c LLC c LLC c Jan c fihi2

c c LLC c LLC c Jan c & cilo0

c c LLC c LLC c Jan c cilo1

c c LLC c LLC c Jan c cilo2

c c LLC c LLC c Jan c & cihi0

c c LLC c LLC c Jan c cihi1

c c LLC c LLC c Jan c cihi2

c c LLC c LLC c Jan c & ratio

c c LLC c LLC c Jan c & depth

c c LLC c LLC c Jan c & ngc0

c c LLC c LLC c Jan c ngc1

c c LLC c LLC c Jan c ngc2

c c LLC c LLC c Jan c & fnode

c c LLC c LLC c Jan c & couternodelower0

c c LLC c LLC c Jan c couternodeupper0

c c LLC c LLC c Jan c & couternodelower1

c c LLC c LLC c Jan c couternodeupper1

c c LLC c LLC c Jan c & couternodelower2

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer& filo0

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer filo1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer filo2

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer & fihi0

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer fihi1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer fihi2

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer & cilo0

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cilo1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cilo2

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer & cihi0

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc0

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision& & & & & & & if0

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision ic1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision if1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision ic2

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision if2

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cilo0_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cilo1_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cilo2_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer & cihi0_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi1_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face cilo1_loop

Initial value:

cilo1+1
      cihi1_loop=cihi1
      cilo2_loop=cilo2+1
      cihi2_loop=cihi2

      if0=cilo0*ratio(0)
      do id = 1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do ic2 = cilo2_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop if2

Initial value:

ic2*ratio(2)
            do ic1=cilo1_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop if1

Initial value:

ic1*ratio(1)
               fnode(if0,if1,if2,id) = fnode(if0,if1,if2,id) +
     &                                 couternodelower0(ic1,ic2,id)
            enddo
         enddo
      enddo

c sum along XUPPER face
      cilo1_loop=cilo1+1
      cihi1_loop=cihi1
      cilo2_loop=cilo2+1
      cihi2_loop=cihi2

      if0=(cihi0+1)*ratio(0)
      do id = 1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do ic2 = cilo2_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop if2

Initial value:

ic2*ratio(2)
            do ic1=cilo1_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop if1

Initial value:

ic1*ratio(1)
               fnode(if0,if1,if2,id) = fnode(if0,if1,if2,id) +
     &                                 couternodeupper0(ic1,ic2,id)
            enddo
         enddo
      enddo

c sum along YLOWER face
      cilo0_loop=cilo0
      cihi0_loop=cihi0+1
      cilo2_loop=cilo2+1
      cihi2_loop=cihi2

      if1=cilo1*ratio(1)
      do id = 1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do ic2 = cilo2_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop if2

Initial value:

ic2*ratio(2)
            do ic0=cilo0_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop if0

Initial value:

ic0*ratio(0)
               fnode(if0,if1,if2,id) = fnode(if0,if1,if2,id) +
     &                                 couternodelower1(ic0,ic2,id)
            enddo
         enddo
      enddo

c sum along YUPPER face
      cilo0_loop=cilo0
      cihi0_loop=cihi0+1
      cilo2_loop=cilo2+1
      cihi2_loop=cihi2

      if1=(cihi1+1)*ratio(1)
      do id = 1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do ic2 = cilo2_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop if2

Initial value:

ic2*ratio(2)
            do ic0=cilo0_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop if0

Initial value:

ic0*ratio(0)
               fnode(if0,if1,if2,id) = fnode(if0,if1,if2,id) +
     &                                 couternodeupper1(ic0,ic2,id)
            enddo
         enddo
      enddo

c sum along ZLOWER face
      cilo0_loop=cilo0
      cihi0_loop=cihi0+1
      cilo1_loop=cilo1
      cihi1_loop=cihi1+1

      if2=cilo2*ratio(2)
      do id = 1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do ic1 = cilo1_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do cihi1_loop if1

Initial value:

ic1*ratio(1)
            do ic0=cilo0_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do cihi1_loop cihi0_loop if0

Initial value:

ic0*ratio(0)
               fnode(if0,if1,if2,id) = fnode(if0,if1,if2,id) +
     &                                 couternodelower2(ic0,ic1,id)
            enddo
         enddo
      enddo

c sum along ZUPPER face
      cilo0_loop=cilo0
      cihi0_loop=cihi0+1
      cilo1_loop=cilo1
      cihi1_loop=cihi1+1

      if2=(cihi2+1)*ratio(2)
      do id = 1

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do cihi1_loop cihi0_loop depth do ic1 = cilo1_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do cihi1_loop cihi0_loop depth do cihi1_loop if1

Initial value:

ic1*ratio(1)
            do ic0=cilo0_loop

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do cihi1_loop cihi0_loop depth do cihi1_loop cihi0_loop if0

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do cihi1_loop cihi0_loop depth do cihi1_loop cihi0_loop XUPPER

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do cihi1_loop cihi0_loop depth do cihi1_loop cihi0_loop YLOWER

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do cihi1_loop cihi0_loop depth do cihi1_loop cihi0_loop YUPPER

c c LLC c LLC c Jan c couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cihi2_loop c c*********************************************************************** c c sum along XLOWER face depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi1_loop depth do cihi2_loop cihi0_loop depth do cihi2_loop cihi0_loop depth do cihi1_loop cihi0_loop depth do cihi1_loop cihi0_loop ZLOWER

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