Author: Bill Ross
Date:   10/17/91

PROBLEM: Nmode was checking input on the nonexistent variable IOSTART
	 rather than ISTART.

*** old rdinp.f
--- new rdinp.f
***************
*** 114,121
          write(6, '(a,i3,a)') 'IOSEEN (',ioseen,') must be 0, 1 or 2.'
          inerr = 1
        endif
!       if (iostart.ne.0 .and. iostart.ne.1) then
!         write(6, '(a,i3,a)') 'IOSTART (',iostart,') must be 0 or 1.'
          inerr = 1
        endif
        if (iflag.lt.-1 .or. iflag.gt.1) then

--- 114,121 -----
          write(6, '(a,i3,a)') 'IOSEEN (',ioseen,') must be 0, 1 or 2.'
          inerr = 1
        endif
!       if (istart.ne.0 .and. istart.ne.1) then
!         write(6, '(a,i3,a)') 'ISTART (',istart,') must be 0 or 1.'
          inerr = 1
        endif
        if (iflag.lt.-1 .or. iflag.gt.1) then