boundxc Subroutine

  subroutine boundxc

    !! Routine to convert variable bounds to their real values
    !! author: P J Knight, CCFE, Culham Science Centre
    !! None
    !! This subroutine converts the scaled iteration variable bounds
    !! back to their real values.
    !!     !
    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    use numerics, only: nvar, bondl, bondu, scale, ixc, boundl, boundu

    implicit none

    !  Local variables

    integer :: i

    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    do i = 1,nvar
       bondl(i) = boundl(ixc(i))*scale(i)
       bondu(i) = boundu(ixc(i))*scale(i)
    end do

  end subroutine boundxc