FTN4,L
      PROGRAM TXPF1(3,89),91711-16117  REV 1926  791127 
C 
C     11/27/79 CHANGED PART NUMBER FRON 91711-16100 
C     TO 91711-16117
C 
      DIMENSION IPARM(5)
C 
C*********************************************************************
C*
C*    HARDWARE FLOATING POINT DIAGNOSTIC. 
C*
C*    :RU,TXPF1,LGLU,#PASSES
C*
C*    WHERE     LGLU = LOGICAL UNIT FOR MESSAGES. 
C*           #PASSES = NUMBER OF TIMES TO RUN TEST. 
C*
C*********************************************************************
C 
C*    PICK UP RUN TIME PARAMETERS 
C 
      CALL RMPAR(IPARM) 
      LGLU = IPARM(1) 
      IF(LGLU.LE.0B) LGLU = LOGLU(IPARM(1)) 
      IPASS = IPARM(2)
      IF(IPASS.LE.0B) IPASS = 1 
C 
C*    INITIALISE ERROR COUNTER
C 
      IECNT = 0 
C 
C*    FIND OUT IF HARDWARE FLOATING POINT IS PRESENT
C*    AND, IF NOT, EXIT WITH ERROR MESSAGE. 
C 
      CALL HFPVF(HFPREV)
      IF(HFPREV.NE.0B) GOTO 10
      WRITE(LGLU,800) 
      STOP 10 
C 
C*    OUTPUT TEST RUNNING MESSAGE.
C 
  10  WRITE(LGLU,810) 
C 
C*    RUN THE HARDWARE FLOATING POINT TEST
C 
      DO 20 J=1,IPASS 
      CALL RODSK(IECNT) 
  20  CONTINUE
C 
C*    CHECK FOR ERRORS AND PRINT MESSAGES, IF NECESSARY.
C 
      IF(IECNT.GT.0B) WRITE(LGLU,820) 
C 
C*    PRINT COMPLETION MESSAGE
C 
      WRITE(LGLU,830)IPASS,IECNT
C 
  800 FORMAT(/"  TXPF1 - HFPP NOT INSTALLED AND TEST ABORTED!"/)
  810 FORMAT(/"  TXPF1 - HFPP TEST RUNNING")
  820 FORMAT(/"  TXPF1 - HFPP TEST FAILURE")
  830 FORMAT(/"  TXPF1 - HFPP TEST FINISHED",I5," PASSES",I5," ERRORS") 
C 
      END 
      END$
                                                                                                                                                                                    