prefilter.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	prefilter (co, nodedesi, ndesi, xo, yo, zo, x, y, z, nx, ny, nz)

Function/Subroutine Documentation

prefilter()

subroutine prefilter	(	real*8, dimension(3,*)	co,
		integer, dimension(*)	nodedesi,
		integer	ndesi,
		real*8, dimension(ndesi)	xo,
		real*8, dimension(ndesi)	yo,
		real*8, dimension(ndesi)	zo,
		real*8, dimension(ndesi)	x,
		real*8, dimension(ndesi)	y,
		real*8, dimension(ndesi)	z,
		integer, dimension(ndesi)	nx,
		integer, dimension(ndesi)	ny,
		integer, dimension(ndesi)	nz
	)

!
!     Filtering of sensitivities      
!
      implicit none
!
      integer nodedesi(*),ndesi,m,nx(ndesi),
     &        ny(ndesi),nz(ndesi),kflag
!
      real*8 xo(ndesi),yo(ndesi),zo(ndesi),
     &       x(ndesi),y(ndesi),z(ndesi),co(3,*)
!   
!     Create set of designnodes and perform the sorting
!     needed for near3d_se
!
      do m=1,ndesi
         xo(m)=co(1,nodedesi(m))
         x(m)=xo(m)
         nx(m)=m
         yo(m)=co(2,nodedesi(m))
         y(m)=yo(m)
         ny(m)=m
         zo(m)=co(3,nodedesi(m))
         z(m)=zo(m)
         nz(m)=m
      enddo
      kflag=2
      call dsort(x,nx,ndesi,kflag)
      call dsort(y,ny,ndesi,kflag)
      call dsort(z,nz,ndesi,kflag)
!
      return