[daip] SNSMO bug

[Michael Bietenholz]

SNSMO dies for no apparent reason when the last record is flagged.
Problem is in RFFXFG - it's because the IRET=-1 from TABIO gets kept
and returned as the IRET from RFFXFG, even though RFFXFG ended fine.
A simple fix below (this is DEC02 version; but seems like DEC03 version
has same problem but the LOOPR label is 20 not 100)


           michael bietenholz


      SUBROUTINE RFFXFG (NUMIF, RE1KOL, IM1KOL, DE1KOL, RA1KOL, WT1KOL,
.....
      DO 100 LOOPR = 1,NUMREC
         ISNRNO = LOOPR
         CALL TABIO ('READ', IRCODE, ISNRNO, RECORD, BUFFER, IRET)
C                                       MFB mod: need to reset IRET
C                                       in case last record flagged
         IF (IRET.LT.0) THEN
              IRET = 0
              GO TO 100
              END IF
C                                       end of MFB mod
         IF (IRET.NE.0) GO TO 900