objective_freq.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	objective_freq (dgdx, df, vold, ndesi, iobject, mi, nactdofinv, jqs, irows)

Function/Subroutine Documentation

objective_freq()

subroutine objective_freq	(	real*8, dimension(ndesi,*)	dgdx,
		real*8, dimension(*)	df,
		real*8, dimension(0:mi(2),*)	vold,
		integer	ndesi,
		integer	iobject,
		integer, dimension(*)	mi,
		integer, dimension(*)	nactdofinv,
		integer, dimension(*)	jqs,
		integer, dimension(*)	irows
	)

!
      implicit none
!
      integer ndesi,iobject,mi(*),idesvar,j,idir,
     &  jqs(*),irows(*),nactdofinv(*),node,idof,inode,mt
!      
      real*8 dgdx(ndesi,*),df(*),vold(0:mi(2),*)
!
!     ----------------------------------------------------------------
!     Calculation of the total differential:
!     dgdx = dgdx + vold^(T) * ( df )
!     ----------------------------------------------------------------
!     
      mt=mi(2)+1
!
      do idesvar=1,ndesi
         do j=jqs(idesvar),jqs(idesvar+1)-1
            idof=irows(j)
            inode=nactdofinv(idof)
            node=inode/mt+1
            idir=inode-mt*(inode/mt)
            dgdx(idesvar,iobject)=dgdx(idesvar,iobject)
     &                           +vold(idir,node)*df(j)
         enddo
      enddo
!      
      return