ogleft Function

private function ogleft(me, Actinp) result(Actout)

LEFT-MULTIPLIES VECTOR LOWER TRIANGULAR MATRIX OBTAINED BY REDUCTION AND SUBSEQUENT INVERSION OF DERIVATIVES OF ACTIVE CONSTRAINTS

2008/01/16 | J. SCHOENMAEKERS | NEW

Type Bound

optgra

Arguments

Type IntentOptional Attributes Name
class(optgra), intent(inout) :: me
real(kind=wp), intent(in) :: Actinp(me%Numcon)

VECTOR INITAL

Return Value real(kind=wp), (me%Numcon)

VECTOR FINAL


Called by

proc~~ogleft~~CalledByGraph proc~ogleft optgra%ogleft proc~ogopti optgra%ogopti proc~ogopti->proc~ogleft proc~ogsens optgra%ogsens proc~ogsens->proc~ogleft proc~ogexec optgra%ogexec proc~ogexec->proc~ogopti

Source Code

   function ogleft(me,Actinp) result(Actout)

      !! LEFT-MULTIPLIES VECTOR LOWER TRIANGULAR MATRIX OBTAINED BY REDUCTION
      !! AND SUBSEQUENT INVERSION OF DERIVATIVES OF ACTIVE CONSTRAINTS
      !!
      !! 2008/01/16 | J. SCHOENMAEKERS | NEW

      class(optgra),intent(inout) :: me
      real(wp),intent(in) :: Actinp(me%Numcon) !! VECTOR INITAL
      real(wp) :: Actout(me%Numcon) !! VECTOR FINAL

      integer(ip) :: row , col , act
      real(wp) :: val

      do act = 1 , me%Numact
         row = me%Actcon(act)
         val = Actinp(act)
         do col = 1 , act - 1
            val = val - me%Conred(row,col)*Actout(col)
         end do
         Actout(act) = val/me%Conred(row,act)
      end do

   end function ogleft