      SUBROUTINE READA(IQ,IRT,IA,PRT)
      CHARACTER*80 CARD
      CHARACTER*2 UM
      CALL DEF(IQ,IRT)
      IF(IRT.NE.0) RETURN
      READ(*,'(BN,A80)') CARD
      READ(CARD,10,ERR=12) PRT
  10  FORMAT(BN,F12.0)
      RETURN
  12  READ(CARD,13,ERR=14) UM,PRT
  13  FORMAT(BN,A2,F12.0)
      CALL UNT(UM,IA,PRT)
      IF (UM.NE.'ND') RETURN
  14  CALL DEF(-IQ,IRT)
      IRT=(-1)
      RETURN
      END
