*DECK DPLPCE SUBROUTINE DPLPCE (MRELAS, NVARS, LMX, LBM, ITLP, ITBRC, IBASIS, + IMAT, IBRC, IPR, IWR, IND, IBB, ERDNRM, EPS, TUNE, GG, AMAT, + BASMAT, CSC, WR, WW, PRIMAL, ERD, ERP, SINGLR, REDBAS) C***BEGIN PROLOGUE DPLPCE C***SUBSIDIARY C***PURPOSE Subsidiary to DSPLP C***LIBRARY SLATEC C***TYPE DOUBLE PRECISION (SPLPCE-S, DPLPCE-D) C***AUTHOR (UNKNOWN) C***DESCRIPTION C C THE EDITING REQUIRED TO CONVERT THIS SUBROUTINE FROM SINGLE TO C DOUBLE PRECISION INVOLVES THE FOLLOWING CHARACTER STRING CHANGES. C C USE AN EDITING COMMAND (CHANGE) /STRING-1/(TO)STRING-2/. C /REAL (12 BLANKS)/DOUBLE PRECISION/, C /SASUM/DASUM/,/DCOPY/,DCOPY/. C C REVISED 811219-1630 C REVISED YYMMDD-HHMM C C THIS SUBPROGRAM IS FROM THE DSPLP( ) PACKAGE. IT CALCULATES C THE APPROXIMATE ERROR IN THE PRIMAL AND DUAL SYSTEMS. IT IS C THE MAIN PART OF THE PROCEDURE (COMPUTE ERROR IN DUAL AND PRIMAL C SYSTEMS). C C***SEE ALSO DSPLP C***ROUTINES CALLED DASUM, DCOPY, DPRWPG, IDLOC, LA05BD C***REVISION HISTORY (YYMMDD) C 811215 DATE WRITTEN C 890531 Changed all specific intrinsics to generic. (WRB) C 890605 Removed unreferenced labels. (WRB) C 890606 Changed references from IPLOC to IDLOC. (WRB) C 891214 Prologue converted to Version 4.0 format. (BAB) C 900328 Added TYPE section. (WRB) C***END PROLOGUE DPLPCE