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

Functions
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer	ratio (0:2-1)
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision &	fnode (filo0-ngc0:fihi0+1+ngc0,&filo1-ngc1:fihi1+1+ngc1, depth)
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision &&	couternodelower0 (cilo1+1:cihi1, depth)
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision &&&	couternodeupper0 (cilo1+1:cihi1, depth)
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision &&&&	couternodelower1 (cilo0:cihi0+1, depth)
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision &&&&&	couternodeupper1 (cilo0:cihi0+1, depth) integer ic0
Variables
c c	File
c c	filo1
c c	fihi0
c c	fihi1
c c &	cilo0
c c	cilo1
c c	cihi0
c c	cihi1
c c &	ratio
c c &	depth
c c &	ngc0
c c	ngc1
c c &	fnode
c c &	couternodelower0
c c	couternodeupper0
c c &	couternodelower1
c c couternodeupper1 c ***********************************************************************implicit none integer &	filo0
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision &&&&&	if0
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision	ic1 = cilo1_loop
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision	if1
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision id integer	cilo0_loop
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision id integer	cilo1_loop
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision id integer	cihi0_loop
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision id integer cihi1_loop c c ***********************************************************************c c sum along XLOWER side depth do cihi1_loop depth do cihi1_loop depth do	ic0 = cilo0_loop
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision id integer cihi1_loop c c ***********************************************************************c c sum along XLOWER side depth do cihi1_loop depth do cihi1_loop depth do cihi0_loop depth do cihi0_loop	XUPPER
c c couternodeupper1 c ***********************************************************************implicit none integer cihi1 integer depth integer ngc1 double precision id integer cihi1_loop c c ***********************************************************************c c sum along XLOWER side depth do cihi1_loop depth do cihi1_loop depth do cihi0_loop depth do cihi0_loop	YLOWER

---

Function Documentation

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer ratio (  0:2-  1  )

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision& fnode (  filo0-ngc0:fihi0+1+  ngc0, &filo1-ngc1:fihi1+1+  ngc1, depth  )

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision& & couternodelower0 (  cilo1+1:cihi1  , depth  )

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision& & & couternodeupper0 (  cilo1+1:cihi1  , depth  )

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision& & & & couternodelower1 (  cilo0:cihi0+  1, depth  )

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision& & & & & couternodeupper1 (  cilo0:cihi0+  1, depth  )

---

Variable Documentation

c c File

c c couternodeupper1 c*********************************************************************** implicit none integer filo1

c c couternodeupper1 c*********************************************************************** implicit none integer fihi0

c c couternodeupper1 c*********************************************************************** implicit none integer fihi1

c c couternodeupper1 c*********************************************************************** implicit none integer & cilo0

c c couternodeupper1 c*********************************************************************** implicit none integer cilo1

c c couternodeupper1 c*********************************************************************** implicit none integer cihi0

c c cihi1

c c & ratio

c c & depth

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

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

c c & fnode

c c & couternodelower0

c c couternodeupper0

c c & couternodelower1

c c couternodeupper1 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,id) = fnode(if0,if1,id) + & couternodelower1(ic0,id) enddo enddo c sum along YUPPER side cilo0_loop=cilo0 cihi0_loop=cihi0+1 if1=(cihi1+1)*ratio(1) do id = 1

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision id integer cihi1_loop c c*********************************************************************** c c sum along XLOWER side depth do cihi1_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,id) = fnode(if0,if1,id) + & couternodelower0(ic1,id) enddo enddo c sum along XUPPER side cilo1_loop=cilo1+1 cihi1_loop=cihi1 if0=(cihi0+1)*ratio(0) do id = 1

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 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 if0=cilo0*ratio(0) do id = 1

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision id integer cihi0_loop

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision id integer cihi1_loop c c*********************************************************************** c c sum along XLOWER side depth do cihi1_loop depth do cihi1_loop depth do cihi0_loop depth do ic0 = cilo0_loop

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision id integer cihi1_loop c c*********************************************************************** c c sum along XLOWER side depth do cihi1_loop depth do cihi1_loop depth do cihi0_loop depth do cihi0_loop XUPPER

c c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision id integer cihi1_loop c c*********************************************************************** c c sum along XLOWER side depth do cihi1_loop depth do cihi1_loop depth do cihi0_loop depth do cihi0_loop YLOWER

---