************************************************************************
SUBROUTINE NBSTER
************************************************************************
Near line 330 of SUBROUTINE NBSTER, a new line should be inserted
before the "  160 READ(LFNSTR,..." command, as shown below:

      IUSR = 1
      IF(LFNSTR.EQ.0) GOTO 190
  160 READ(LFNSTR,*,ERR=190,END=190) IUBAS,JUBAS

This prevents a possible run-time hang for compilers that do
recognize "READ(LFNSTR,...,END=190)" as a run-time check for
existence (as well as zero content) of the LFNSTR scratch file.
************************************************************************