


 PROGRAM TBLA IS READY FOR INPUT.
 INPUT ONE CARD IMAGE HAVING ONES OR ZEROS
 IN COLS 1 - 38.   A ONE IN COL K MEANS TO
 TEST SUBPROGRAM NO. K.   ALL ZEROS MEANS
 TO TERMINATE EXECUTION.    INPUT NOW.
0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
0TEST OF SUBPROGRAM NO.  1    SDOT
+                                       PASS
0TEST OF SUBPROGRAM NO.  2  SDSDOT
+                                       PASS
0TEST OF SUBPROGRAM NO.  3  SDSDOT
+                                       PASS
0TEST OF SUBPROGRAM NO.  4    DDOT
+                                       PASS
0TEST OF SUBPROGRAM NO.  5  DQDOTI
+                                       PASS
0TEST OF SUBPROGRAM NO.  6  DQDOTA
+                                       PASS
0TEST OF SUBPROGRAM NO.  7   CDOTC
+                                       PASS
0TEST OF SUBPROGRAM NO.  8   CDOTU
+                                       PASS
0TEST OF SUBPROGRAM NO.  9   SAXPY
+                                       PASS
0TEST OF SUBPROGRAM NO. 10   DAXPY
+                                       PASS
0TEST OF SUBPROGRAM NO. 11   CAXPY
+                                       PASS
0TEST OF SUBPROGRAM NO. 12   SROTG
+                                       PASS
0TEST OF SUBPROGRAM NO. 13   DROTG
+                                       PASS
0TEST OF SUBPROGRAM NO. 14    SROT
+                                       PASS
0TEST OF SUBPROGRAM NO. 15    DROT
+                                       PASS
0TEST OF SUBPROGRAM NO. 16  SROTMG
+                                       PASS
0TEST OF SUBPROGRAM NO. 17  DROTMG
+                                       PASS
0TEST OF SUBPROGRAM NO. 18   SROTM
+                                       PASS
0TEST OF SUBPROGRAM NO. 19   DROTM
+                                       PASS
0TEST OF SUBPROGRAM NO. 20   SCOPY
+                                       PASS
0TEST OF SUBPROGRAM NO. 21   DCOPY
+                                       PASS
0TEST OF SUBPROGRAM NO. 22   CCOPY
+                                       PASS
0TEST OF SUBPROGRAM NO. 23   SSWAP
+                                       PASS
0TEST OF SUBPROGRAM NO. 24   DSWAP
+                                       PASS
0TEST OF SUBPROGRAM NO. 25   CSWAP
+                                       PASS
0TEST OF SUBPROGRAM NO. 26   SNRM2
+                                       PASS
0TEST OF SUBPROGRAM NO. 27   DNRM2
+                                       PASS
0TEST OF SUBPROGRAM NO. 28  SCNRM2
+                                       PASS
0TEST OF SUBPROGRAM NO. 29   SASUM
+                                       PASS
0TEST OF SUBPROGRAM NO. 30   DASUM
+                                       PASS
0TEST OF SUBPROGRAM NO. 31  SCASUM
+                                       PASS
0TEST OF SUBPROGRAM NO. 32   SSCAL
+                                       PASS
0TEST OF SUBPROGRAM NO. 33   DSCAL
+                                       PASS
0TEST OF SUBPROGRAM NO. 34   CSCAL
+                                       PASS
0TEST OF SUBPROGRAM NO. 35  CSSCAL
+                                       PASS
0TEST OF SUBPROGRAM NO. 36  ISAMAX
+                                       PASS
0TEST OF SUBPROGRAM NO. 37  IDAMAX
+                                       PASS
0TEST OF SUBPROGRAM NO. 38  ICAMAX
+                                       PASS



 PROGRAM TBLA IS READY FOR INPUT.
 INPUT ONE CARD IMAGE HAVING ONES OR ZEROS
 IN COLS 1 - 38.   A ONE IN COL K MEANS TO
 TEST SUBPROGRAM NO. K.   ALL ZEROS MEANS
 TO TERMINATE EXECUTION.    INPUT NOW.
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
