SUBROUTINE QISETD(NUM,VALUE,OK) - Set double precision parameter to required value

Service routine which can be used to reset the default double precision input parameters QIUPAR(NUM), NUM=1,2,...,18, set in QIINIT, to a required value VALUE. The logical flag OK is .TRUE. if NUM takes on any of its allowed integer values.