3.18 SUBROUTINE CHECK_INP

      subroutine check_inp(keylist,ls,val,nr,ival,ni,set,ierr)
      implicit double precision (a-h,o-z)
      character*(*) keylist(*),set

Checks if input parameter is in ''keylist''. If the parameter is found, its current input value is copied to the corresponding entry in val or ival. If it is not found and no default is known, an error results (depending on input value of ierr).

keylist:

list of the parameter names (length nr+ni)

ls:

max. number of significant characters in "keylist"

ni:

number of integer values associated to keylist

nr:

number of floating point values associated to keylist

ival:

array of integer values associated to keylist(1:ni)

val:

array of floating values, associated with keylist(ni+1:ni+nr)

set:

name of input set

ierr:

If zero on input, unknown parameters are ignored. If nonzero on input, unknown parameters are printed and an error results. On exit, this is set to the number of errors.