*DECK DPLPDM SUBROUTINE DPLPDM (MRELAS, NVARS, LMX, LBM, NREDC, INFO, IOPT, + IBASIS, IMAT, IBRC, IPR, IWR, IND, IBB, ANORM, EPS, UU, GG, + AMAT, BASMAT, CSC, WR, SINGLR, REDBAS) C***BEGIN PROLOGUE DPLPDM C***SUBSIDIARY C***PURPOSE Subsidiary to DSPLP C***LIBRARY SLATEC C***TYPE DOUBLE PRECISION (SPLPDM-S, DPLPDM-D) C***AUTHOR (UNKNOWN) C***DESCRIPTION C C THIS SUBPROGRAM IS FROM THE DSPLP( ) PACKAGE. IT PERFORMS THE C TASK OF DEFINING THE ENTRIES OF THE BASIS MATRIX AND C DECOMPOSING IT USING THE LA05 PACKAGE. C IT IS THE MAIN PART OF THE PROCEDURE (DECOMPOSE BASIS MATRIX). C C***SEE ALSO DSPLP C***ROUTINES CALLED DASUM, DPNNZR, LA05AD, XERMSG C***COMMON BLOCKS LA05DD C***REVISION HISTORY (YYMMDD) C 811215 DATE WRITTEN C 890605 Added DASUM to list of DOUBLE PRECISION variables. C 890605 Removed unreferenced labels. (WRB) C 891009 Removed unreferenced variable. (WRB) C 891214 Prologue converted to Version 4.0 format. (BAB) C 900315 CALLs to XERROR changed to CALLs to XERMSG. (THJ) C 900328 Added TYPE section. (WRB) C 900510 Convert XERRWV calls to XERMSG calls, convert do-it-yourself C DO loops to DO loops. (RWC) C***END PROLOGUE DPLPDM