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

Functions
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer	ratio (0:3-1)
c 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 couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision &&	couternodelower0 (cilo1+1:cihi1,&cilo2+1:cihi2, depth)
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision &&&	couternodeupper0 (cilo1+1:cihi1,&cilo2+1:cihi2, depth)
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision &&&&	couternodelower1 (cilo0:cihi0+1,&cilo2+1:cihi2, depth)
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision &&&&&	couternodeupper1 (cilo0:cihi0+1,&cilo2+1:cihi2, depth)
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision &&&&&&	couternodelower2 (cilo0:cihi0+1,&cilo1:cihi1+1, depth)
c 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	filo1
c c	filo2
c c &	fihi0
c c	fihi1
c c	fihi2
c c &	cilo0
c c	cilo1
c c	cilo2
c c &	cihi0
c c	cihi1
c c	cihi2
c c &	ratio
c c &	depth
c c &	ngc0
c c	ngc1
c c	ngc2
c c &	fnode
c c &	couternodelower0
c c	couternodeupper0
c c &	couternodelower1
c c	couternodeupper1
c c &	couternodelower2
c c couternodeupper2 c ***********************************************************************implicit none integer &	filo0
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision &&&&&&&	if0
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision	ic1 = cilo1_loop
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision	if1
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision	ic2 = cilo2_loop
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision	if2
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision id integer	cilo0_loop
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision id integer	cilo1_loop
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision id integer	cilo2_loop
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision id integer &	cihi0_loop
c c couternodeupper2 c ***********************************************************************implicit none integer cihi2 integer depth integer ngc2 double precision id integer	cihi1_loop
c 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 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 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 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 couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer ratio (  0:3-  1  )

c 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 couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision& & couternodelower0 (  cilo1+1:cihi1  , &cilo2+1:cihi2  , depth  )

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

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

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

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

c 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 couternodeupper2 c*********************************************************************** implicit none integer filo1

c c couternodeupper2 c*********************************************************************** implicit none integer filo2

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

c c couternodeupper2 c*********************************************************************** implicit none integer fihi1

c c couternodeupper2 c*********************************************************************** implicit none integer fihi2

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

c c couternodeupper2 c*********************************************************************** implicit none integer cilo1

c c couternodeupper2 c*********************************************************************** implicit none integer cilo2

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

c c couternodeupper2 c*********************************************************************** implicit none integer cihi1

c c cihi2

c c & ratio

c c & depth

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

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

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer ngc2

c c & fnode

c c & couternodelower0

c c couternodeupper0

c c & couternodelower1

c c couternodeupper1

c c & couternodelower2

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

c 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

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 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 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) 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 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 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 ic1=cilo1_loop

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

c 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 couternodeupper2 c*********************************************************************** implicit none integer cihi2 integer depth integer ngc2 double precision id integer cilo2_loop

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

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

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

---