*DECK MINSOL SUBROUTINE MINSOL (USOL, IDMN, ZN, ZM, PERTB) C***BEGIN PROLOGUE MINSOL C***SUBSIDIARY C***PURPOSE Subsidiary to SEPELI C***LIBRARY SLATEC C***TYPE SINGLE PRECISION (MINSOL-S) C***AUTHOR (UNKNOWN) C***DESCRIPTION C C This subroutine orthogonalizes the array USOL with respect to C the constant array in a weighted least squares norm. C C Entry at MINSOL occurs when the final solution is C to be minimized with respect to the weighted C least squares norm. C C***SEE ALSO SEPELI C***ROUTINES CALLED (NONE) C***COMMON BLOCKS SPLPCM C***REVISION HISTORY (YYMMDD) C 801001 DATE WRITTEN C 891214 Prologue converted to Version 4.0 format. (BAB) C 900402 Added TYPE section. (WRB) C***END PROLOGUE MINSOL