*DECK DPINTM SUBROUTINE DPINTM (M, N, SX, IX, LMX, IPAGEF) C***BEGIN PROLOGUE DPINTM C***SUBSIDIARY C***PURPOSE Subsidiary to DSPLP C***LIBRARY SLATEC C***TYPE DOUBLE PRECISION (PINITM-S, DPINTM-D) C***AUTHOR Hanson, R. J., (SNLA) C Wisniewski, J. A., (SNLA) C***DESCRIPTION C C DPINTM LIMITS THE TYPE OF STORAGE TO A SEQUENTIAL SCHEME. C THE MATRIX IS STORED BY COLUMNS. C SPARSE MATRIX INITIALIZATION SUBROUTINE. C C M=NUMBER OF ROWS OF THE MATRIX. C N=NUMBER OF COLUMNS OF THE MATRIX. C SX(*),IX(*)=THE WORK ARRAYS WHICH ARE USED TO STORE THE SPARSE C MATRIX. THESE ARRAYS ARE AUTOMATICALLY MAINTAINED BY C THE PACKAGE FOR THE USER. C LMX=LENGTH OF THE WORK ARRAY SX(*). C LMX MUST BE AT LEAST N+7 WHERE C FOR GREATEST EFFICIENCY LMX SHOULD BE AT LEAST N+NZ+6 C WHERE NZ IS THE MAXIMUM NUMBER OF NONZEROES TO BE C STORED IN THE MATRIX. VALUES OF LMX BETWEEN N+7 AND C N+NZ+6 WILL CAUSE DEMAND PAGING TO OCCUR. C THIS IS IMPLEMENTED BY THE PACKAGE. C IX(*) MUST BE DIMENSIONED AT LEAST LMX C IPAGEF=UNIT NUMBER WHERE DEMAND PAGES WILL BE STORED. C C THIS SUBROUTINE IS A MODIFICATION OF THE SUBROUTINE LINITM, C SANDIA LABS. REPT. SAND78-0785. C MODIFICATIONS BY K.L. HIEBERT AND R.J. HANSON C REVISED 811130-1000 C REVISED YYMMDD-HHMM C C***SEE ALSO DSPLP C***ROUTINES CALLED XERMSG C***REVISION HISTORY (YYMMDD) C 811215 DATE WRITTEN C 890831 Modified array declarations. (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 910403 Updated AUTHOR and DESCRIPTION sections. (WRB) C***END PROLOGUE DPINTM