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


Functions

c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer 		ratio (0:2-1)
c c LLC c LLC c Jan 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 LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer ngc1 double
precision && 		couternodelower0 (cilo1+1:cihi1, depth)
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer ngc1 double
precision &&& 		couternodeupper0 (cilo1+1:cihi1, depth)
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer ngc1 double
precision &&&& 		couternodelower1 (cilo0:cihi0+1, depth)
c c LLC c LLC c Jan 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 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 fihi0
c c LLC c LLC c Jan c fihi1
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 cihi0
c c LLC c LLC c Jan c cihi1
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 & 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
***********************************************************************implicit
none integer & 		filo0
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer 		filo1
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer 		fihi0
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer 		fihi1
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer & 		cilo0
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer 		cilo1
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer 		cihi0
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer 		ngc0
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer ngc1 double
precision &&&&& 		if0
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer ngc1 double
precision 		ic1
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer ngc1 double
precision 		if1
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer ngc1 double
precision id integer 		cilo0_loop
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer ngc1 double
precision id integer 		cilo1_loop
c c LLC c LLC c Jan c couternodeupper1
c
***********************************************************************implicit
none integer cihi1 integer
depth integer ngc1 double
precision id integer 		cihi0_loop
c c LLC c LLC c Jan 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 		cilo1_loop
c c LLC c LLC c Jan 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 		ic1 = cilo1_loop
c c LLC c LLC c Jan 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 		if1
c c LLC c LLC c Jan 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 LLC c LLC c Jan 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 		if1
c c LLC c LLC c Jan 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 LLC c LLC c Jan 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 		if0
c c LLC c LLC c Jan 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 LLC c LLC c Jan 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 		if0
c c LLC c LLC c Jan 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 LLC c LLC c Jan 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 LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer ratio ( 0:2-  1  ) 

c c LLC c LLC c Jan 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 LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision& & couternodelower0 ( cilo1+1:cihi1  ,
depth   
)

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

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

c c LLC c LLC c Jan 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 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 fihi0

c c LLC c LLC c Jan c fihi1

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 cihi0

c c LLC c LLC c Jan c cihi1

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 & 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*********************************************************************** implicit none integer& filo0

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

c c LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer fihi0

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

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

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

c c LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer cihi0

c c LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc0

c c LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision& & & & & if0

c c LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision ic1

c c LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision if1

c c LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision id integer cilo0_loop

c c LLC c LLC c Jan c couternodeupper1 c*********************************************************************** implicit none integer cihi1 integer depth integer ngc1 double precision id integer cilo1_loop

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

c c LLC c LLC c Jan 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 cilo1_loop

Initial value:

cilo1+1
      cihi1_loop=cihi1

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

c c LLC c LLC c Jan 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 ic1 = cilo1_loop

c c LLC c LLC c Jan 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 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 LLC c LLC c Jan 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 LLC c LLC c Jan 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 if1

Initial value:

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

c sum along YLOWER side
      cilo0_loop=cilo0
      cihi0_loop=cihi0+1

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

c c LLC c LLC c Jan 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 LLC c LLC c Jan 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 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 LLC c LLC c Jan 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 LLC c LLC c Jan 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 if0

Initial value:

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

c
      return
      end

c
c***********************************************************************
c Fill hanging nodes on fine patch (i.e. those nodes that do not overlap
c a coarse level node) along patch boundary by interpolation from 
c appropriate neighboring coarse nodes
c***********************************************************************
c
      subroutine nodehangnodeinterp2d(
     &  filo0,filo1,fihi0,fihi1,
     &  cilo0,cilo1,cihi0,cihi1,
     &  bboxilo0,bboxilo1,bboxihi0,bboxihi1,
     &  bboxloc,
     &  ratio,
     &  depth,
     &  ngc0,ngc1,
     &  fnode)
c***********************************************************************
      implicit none

      integer XLOWER

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

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