posttransition.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	posttransition (dgdxglob, nobject, nk, nodedesi, ndesi, objectset)

Function/Subroutine Documentation

posttransition()

subroutine posttransition	(	real*8, dimension(2,nk,nobject)	dgdxglob,
		integer	nobject,
		integer	nk,
		integer, dimension(*)	nodedesi,
		integer	ndesi,
		character*81, dimension(4,*)	objectset
	)

!
!     Normalizing the sensitivities      
!
      implicit none
!
      character*81 objectset(4,*)
!
      integer nobject,nk,nodedesi(*),i,ndesi,m
!
      real*8 dgdxglob(2,nk,nobject),dd
!
!     Scaling the greatest sensitivity value (absolute) to 1
!
      do m=1,nobject
         if(objectset(1,m)(1:9).eq.'THICKNESS') cycle
         dd=0.d0
         do i=1,ndesi
            dd=max(dd,abs(dgdxglob(2,nodedesi(i),m)))
         enddo
         do i=1,ndesi
            dgdxglob(2,nodedesi(i),m)=dgdxglob(2,nodedesi(i),m)/dd
         enddo
      enddo
!
      return