72.These routines obtain the current value of a single option.
|
|
subroutine sngetc( |
buffer, cvalue, inform, |
|
$ |
|
cw, lencw, iw, leniw, rw, lenrw ) |
|
|
subroutine sngeti( |
buffer, ivalue, inform, |
|
$ |
|
cw, lencw, iw, leniw, rw, lenrw ) |
|
|
subroutine sngetr( |
buffer, rvalue, inform, |
|
$ |
|
cw, lencw, iw, leniw, rw, lenrw ) |
|
|
|
|
|
|
character*(*) |
buffer |
|
|
character*8 |
cvalue |
|
|
integer |
ivalue, inform |
|
|
double precision |
rvalue |
|
|
integer |
lencw, leniw, lenrw |
|
|
character*8 |
cw(lencw) |
|
|
integer |
iw(leniw) |
|
|
double precision |
rw(lenrw) |
On entry:
buffer
is a string to be decoded. Restriction: len(buffer)72.
inform should be 0 for the first call to the snget routines.
On exit:
cvalue
is a string associated with the keyword in buffer. Use
sngetc to obtain the names
...
For example, if ..., say
call sngetc( 'Bounds', inform, ... )
ivalue is an integer value associated with the keyword in buffer. Example:
call sngeti( 'Iterations limit', itnlim, inform, ... )
rvalue is a real value associated with the keyword in buffer. Example:
call sngetr( 'LU factor tol', factol, inform, ...)
inform is the number of errors encountered so far.
cw(lencw), iw(leniw), rw(lenrw) contain the required option value.