subroutine ksunsc (x,sx,scale,ndv) implicit double precision (a-h,o-z) dimension x(1),sx(1),scale(ndv,2) c c routine to un-scale design variables before returning c to the real world c c author - Gregory A. Wrenn c location - Lockheed Engineering and Sciences Co. c 144 Research Drive c Hampton, Va. 23666 c c last modification - 28 March 1991 c do 10 i = 1,ndv ss = scale(i,1) x(i) = sx(i) * ss 10 continue c return end