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$