I tested the linear equation solver LSLZG using the sample program in the Manual asa follows
!///////////////////////////////////////////////////////////
!/// for testing IMSL routine//////////////////////////////
include 'link_fnl_shared.h'
use lslzg_int
use wrcrn_int
INTEGER N,NZ
PARAMETER(N=6,NZ=15)
INTEGER IROW(NZ),JCOL(NZ)
COMPLEX A(NZ),B(N),X(N)
DATA A/(3.0,7.0),(3.0,2.0),(-3.0,0.0),(-1.0,3.0),(4.0,2.0), &
(10.0,7.0),(-5.0,4.0),(1.0,6.0),(-1.0,12.0),(-5.0,0.0), &
(12.0,2.0),(-2.0,8.0),(-2.0,-4.0),(-1.0,2.0),(-7.0,7.0)/
DATA B/(3.0,17.0),(-19.0,5.0),(6.0,18.0),(-38.0,32.0), &
(-63.0,49.0),(-57.0,83.0)/
DATA IROW/6,2,2,4,3,1,5,4,6,5,5,6,4,2,5/
DATA JCOL/6,2,3,5,3,1,1,4,1,4,5,2,1,4,6/
CALL LSLZG(A,IROW,JCOL,B,X)
CALL WRCRN ('X',X)
END
!/// end of testing IMSL routine///////////////////////////
My question is how to expand default size of the workspace? can you provide a modified program for the above to expand the default workspace?
