sensitivity_glob.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	sensitivity_glob (dgdx, dgdxglob, nobject, ndesi, nodedesi, nk)

Function/Subroutine Documentation

sensitivity_glob()

subroutine sensitivity_glob	(	real*8, dimension(ndesi,nobject)	dgdx,
		real*8, dimension(2,nk,nobject)	dgdxglob,
		integer	nobject,
		integer	ndesi,
		integer, dimension(*)	nodedesi,
		integer	nk
	)

!
!    prepares the sensitivities for the output in the frd-file      
!
      implicit none
!
      integer nobject,ndesi,nodedesi(*),nk,
     &  iobject,node,idesvar
!
      real*8 dgdx(ndesi,nobject),dgdxglob(2,nk,nobject)
!
!     copy the sensitivities in a global node vector
!
      do idesvar=1,ndesi
         node=nodedesi(idesvar)
         do iobject=1,nobject
            dgdxglob(1,node,iobject)=dgdx(idesvar,iobject)
         enddo
      enddo
!
      return