home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / D2SOURCE.ZIP / READA.FOR < prev    next >
Encoding:
Text File  |  1985-11-13  |  424 b   |  18 lines
  1.       SUBROUTINE READA(IQ,IRT,IA,PRT)
  2.       CHARACTER*80 CARD
  3.       CHARACTER*2 UM
  4.       CALL DEF(IQ,IRT)
  5.       IF(IRT.NE.0) RETURN
  6.       READ(*,'(BN,A80)') CARD
  7.       READ(CARD,10,ERR=12) PRT
  8.   10  FORMAT(BN,F12.0)
  9.       RETURN
  10.   12  READ(CARD,13,ERR=14) UM,PRT
  11.   13  FORMAT(BN,A2,F12.0)
  12.       CALL UNT(UM,IA,PRT)
  13.       IF (UM.NE.'ND') RETURN
  14.   14  CALL DEF(-IQ,IRT)
  15.       IRT=(-1)
  16.       RETURN
  17.       END
  18.